Delphi에서 프린터 장치 이름 및 포트 이름 가져오기

PRinter를 사용합니다.

{$IFNDEF WIN32}

const MAX_PATH = 144;

{$ENDIF}

절차 TForm1.Button1Click(Sender: TObject);

var

p디바이스: pChar;

pDriver : pChar;

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

FreeMem(pDevice, cchDeviceName);

FreeMem(pDriver, MAX_PATH);

FreeMem(pPort, MAX_PATH);

끝;

끝;