Delphi でプリンターのデバイス名とポート名を取得する

PRinter を使用します。

{$IFNDEF WIN32}

const 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);

終わり;

終わり;