Rufen Sie den Namen des Druckergeräts und den Portnamen in Delphi ab

verwendet Drucker;

{$IFNDEF WIN32}

const MAX_PATH = 144;

{$ENDIF}

procedure TForm1.Button1Click(Sender: TObject);

var

pDevice: pChar;

pDriver: pChar;

pPort: pChar;

hDMode : THandle;

beginnen

Wenn PrintDialog1.Execute, dann beginnen

GetMem(pDevice, cchDeviceName);

GetMem(pDriver, MAX_PATH);

GetMem(pPort, MAX_PATH);

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

Wenn lStrLen(pDriver) = 0, dann beginnen

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

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

Ende;

Wenn lStrLen(pPort) = 0, dann beginnen

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

lStrCpy(pPort,@pPort[lStrLen(pPort)+2]);

Ende;

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

Ende;

Ende;