Obtener el nombre del dispositivo de la impresora y el nombre del puerto en Delphi

utiliza impresoras;

{$IFNDEFWIN32}

constante MAX_PATH = 144;

{$ENDIF}

procedimiento TForm1.Button1Click (Remitente: TObject);

var

pDispositivo: pChar;

pDriver: pChar;

pPort: pChar;

ModoHD: THandle;

comenzar

si PrintDialog1.Execute entonces comienza

GetMem(pDevice, cchDeviceName);

GetMem(pDriver, MAX_PATH);

GetMem(pPort, MAX_PATH);

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

si lStrLen(pDriver) = 0 entonces comienza

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

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

fin;

si lStrLen(pPort) = 0 entonces comienza

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

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

fin;

Memo1.Lines.Add('Dispositivo := ' + StrPas(pDevice));

Memo1.Lines.Add('Conductor := ' + StrPas(pDriver));

Memo1.Lines.Add('Puerto := ' + StrPas(pPort));

FreeMem(pDevice, cchDeviceName);

FreeMem(pDriver, MAX_PATH);

FreeMem(pPort, MAX_PATH);

fin;

fin;