Автор: http://www.sources.ru
// добавьте ShellAPI в USES ShellExecute(handle, nil, 'rundll32.exe', 'shell32.dll,SHHelpShortcuts_RunDLL AddPrinter', '', SW_SHOWNORMAL); end;