Standarddrucker ermitteln |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
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;
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;
begin
Caption:=GetDefaultPrinter;
end;