احصل على اسم جهاز الطابعة واسم المنفذ في دلفي

يستخدم الطابعات.

{$IFNDEF WIN32}

ثابت MAX_PATH = 144؛

{$ENDIF}

الإجراء TForm1.Button1Click(Sender: TObject);

فار

pDevice : pChar؛

pDriver : pChar;

المنفذ: pChar؛

hDMode: المقبض؛

يبدأ

إذا PrintDialog1.Execute ثم تبدأ

GetMem(pDevice, cchDeviceName);

GetMem(pDriver, MAX_PATH);

GetMem(pPort, MAX_PATH);

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

إذا كان lStrLen(pDriver) = 0 فابدأ

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

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

نهاية؛

إذا كان lStrLen(pPort) = 0 فابدأ

GetProfileString('Devices', 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('Port := ' + StrPas(pPort));

FreeMem(pDevice, cchDeviceName);

FreeMem(pDriver, MAX_PATH);

FreeMem(pPort, MAX_PATH);

نهاية؛

نهاية؛