Delphi中获取打印机设备名和端口名

uses printers;

procedure TForm1.Button1Click(Sender: TObject);

var

pDevice : pChar;

pDriver : pChar;

pPort : pChar;

hDMode : THandle;

begin

if PrintDialog1.Execute then begin

GetMem(pDevice, cchDeviceName);

GetMem(pDriver, MAX_PATH);

GetMem(pPort, MAX_PATH);

Printer.GetPrinter(pDevice, pDriver, pPort, hDMode);

if lStrLen(pDriver) = 0 then begin

GetProfileString('Devices', pDevice, '', pDriver, MAX_PATH);

pDriver[pos(',', pDriver) - 1] := #0;

end;

if lStrLen(pPort) = 0 then begin

GetProfileString('Devices', pDevice, '', pPort, MAX_PATH);

lStrCpy(pPort, @pPort[lStrLen(pPort)+2]);

end;

Memo1.Lines.Add('Device := ' + StrPas(pDevice));

Memo1.Lines.Add('Driver := ' + StrPas(pDriver));

Memo1.Lines.Add('Port := ' + StrPas(pPort));

FreeMem(pDevice, cchDeviceName);

FreeMem(pDriver, MAX_PATH);

FreeMem(pPort, MAX_PATH);

end;

end;