Hallo,
ich benötige für ein Programm den Defaultprinter um diesen in einer extrigen Combobox darzustellen.
Dazu wollte ich die in diesem Thread vorgestellte GetDefaultPrinterA Procedure verwenden, nur weiß ich nicht recht wie ich diese Anwenden soll.
Muss ich vor Aufruf, Speicher reservieren und wenn ja wieviel?
Im moment mach ich es so:
Delphi-Quellcode:
function getDefaultPrinterName:string;
var
lprnName: PAnsiChar;
lBufSize: DWord;
begin
GetMem(lprnName, 1000);
try
GetDefaultPrinterA(lprnName, lBufSize);
Result := lprnName;
finally
FreeMem(lprnName);
end;
end;
Wobei die Procedure GetDefaultPrinterA so eingebunden wurde wie oben gezeigt.