รับชื่ออุปกรณ์เครื่องพิมพ์และชื่อพอร์ตใน Delphi

ใช้เครื่องพิมพ์;

{$IFNDEF ชนะ32}

ค่าคงที่ MAX_PATH = 144;

{$ENDIF}

ขั้นตอน TForm1.Button1Click (ผู้ส่ง: TObject);

var

pDevice : pChar;

pDriver : pChar;

พอร์ต: pChar;

hDMode : THandle;

เริ่ม

ถ้า PrintDialog1.Execute ให้เริ่มต้น

GetMem(pDevice, cchDeviceName);

GetMem(pDriver, MAX_PATH);

GetMem(พอร์ต, 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('อุปกรณ์ := ' + StrPas(pDevice));

Memo1.Lines.Add('ไดรเวอร์ := ' + StrPas(pDriver));

Memo1.Lines.Add('พอร์ต := ' + StrPas(pPort));

FreeMem(pDevice, cchDeviceName);

FreeMem(pDriver, MAX_PATH);

FreeMem(pPort, MAX_PATH);

จบ;

จบ;