Home » Tipps & Tricks » Drucker » Druckereigenschaften » Standarddrucker ermitteln

Standarddrucker ermitteln

Diese Routine ermittelt den Standarddrucker und gibt die Bezeichnung als String zurück:

function GetDefaultPrinter : string;
var
  ResStr : array[0..255] of char;
begin
  GetProfileString('Windows','device','',ResStr,255);
  Result:=StrPas(ResStr);
end;

Aufrufen könnte man die Funktion dann folgendermaßen:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption:=GetDefaultPrinter;
end;