DBR Delphi-Ecke

// Getestet mit D4 unter WinME

// Mit dem folgenden Code ruft man den Dialog "Anschluss konfigurieren" auf.
// Bei Druckern kann das Ergebnis je nach Betriebssystem und Version sehr
// unterschiedlich aussehen.

uses winspool; 
 
procedure AnschlussConfig(h: Thandle; s: string); 
begin 
  if not ConfigurePort(nil, h, pchar(s)) then 
    showmessage('Einstellung wurde nicht vorgenommen'); 
end; 
 
// -- Beispielaufrufe -- 
 
procedure TForm1.Button7Click(Sender: TObject); 
begin 
  AnschlussConfig(handle, 'COM2:'); 
end; 
 
procedure TForm1.Button7Click(Sender: TObject); 
begin 
  AnschlussConfig(handle, 'LPT1:'); 
end;