DBR Delphi-Ecke

// Es wird der Assistent zum Hinzufügen eines Druckers geöffnet.

// Getestet mit D4 unter WinME

uses ShellApi;

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  shellexecute(application.handle, 'open', 'rundll32.exe', 
   'shell32.dll,SHHelpShortcuts_RunDLL AddPrinter', nil, sw_show); 
end;