Как открыть диалог Add Printer

Автор: http://www.sources.ru

// добавьте ShellAPI в USES

ShellExecute(handle, nil,
  'rundll32.exe',
  'shell32.dll,SHHelpShortcuts_RunDLL AddPrinter',
  '', SW_SHOWNORMAL);
end;