Obtenir le nom du périphérique d'impression et le nom du port dans Delphi

utilise des PRinters ;

{$IFNDEF WIN32}

const MAX_PATH = 144 ;

{$ENDIF}

procédure TForm1.Button1Click(Expéditeur : TObject);

var

pAppareil : pChar;

pDriver : pChar;

pPort : pChar ;

hdMode : THandle ;

commencer

si PrintDialog1.Execute alors commencez

GetMem(pDevice, cchDeviceName);

GetMem(pDriver, MAX_PATH);

GetMem(pPort, MAX_PATH);

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

si lStrLen(pDriver) = 0 alors commencez

GetProfileString('Périphériques', pDevice, ', pDriver, MAX_PATH);

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

fin;

si lStrLen(pPort) = 0 alors commencez

GetProfileString('Périphériques', pDevice, ', pPort, MAX_PATH);

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

fin;

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

fin;

fin;