Получить имя устройства принтера и имя порта в Delphi

использует PRinters;

{$IFNDEF WIN32}

константный MAX_PATH = 144;

{$ENDIF}

процедура TForm1.Button1Click(Отправитель: TObject);

вар

pDevice: pChar;

pDriver: pChar;

pПорт: pChar;

hDMode: THandle;

начинать

если PrintDialog1.Execute, то начать

GetMem(pDevice, cchDeviceName);

GetMem(pDriver, MAX_PATH);

GetMem(pPort, MAX_PATH);

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

если lStrLen(pDriver) = 0, то начнем

GetProfileString('Устройства', pDevice, ', pDriver, MAX_PATH);

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

конец;

если lStrLen(pPort) = 0, то начнем

GetProfileString('Устройства', pDevice, ', pPort, MAX_PATH);

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

конец;

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

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

Memo1.Lines.Add('Порт := ' + StrPas(pPort));

FreeMem(pDevice, cchDeviceName);

FreeMem(pDriver, MAX_PATH);

FreeMem(pPort, MAX_PATH);

конец;

конец;