menggunakan PRinter;
{$IFNDEF MENANG32}
konstanta MAX_PATH = 144;
{$ENDIF}
prosedur TForm1.Button1Click(Pengirim: TObject);
var
pPerangkat : pChar;
pDriver : pChar;
pPort: pChar;
hDMode : Pegangan;
mulai
jika PrintDialog1.Execute kemudian mulai
GetMem(pDevice, cchDeviceName);
GetMem(pDriver, MAX_PATH);
GetMem(pPort, MAX_PATH);
Printer.GetPrinter(pDevice, pDriver, pPort, hDMode);
jika lStrLen(pDriver) = 0 maka mulailah
GetProfileString('Perangkat', pPerangkat, ', pDriver, MAX_PATH);
pDriver[pos(',', pDriver) - 1] := #0;
akhir;
jika lStrLen(pPort) = 0 maka mulailah
GetProfileString('Perangkat', pPerangkat, ', pPort, MAX_PATH);
lStrCpy(pPort,@pPort[lStrLen(pPort)+2]);
akhir;
Memo1.Lines.Add('Perangkat := ' + StrPas(pPerangkat));
Memo1.Lines.Add('Driver := ' + StrPas(pDriver));
Memo1.Lines.Add('Port := ' + StrPas(pPort));
FreeMem(pDevice, cchDeviceName);
FreeMem(pDriver, MAX_PATH);
FreeMem(pPort, MAX_PATH);
akhir;
akhir;