Code:

ShellExecute(handle, nil,

'rundll32.exe',

'shell32.dll,SHHelpShortcuts_RunDLL AddPrinter', '', SW_SHOWNORMAL);