獲取打印機端口號

最新推荐文章于 2024-06-26 02:58:54 发布

原创最新推荐文章于 2024-06-26 02:58:54 发布 · 2.3k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#path #button #forms #windows #class

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,Printers;

type
TForm1 = class(TForm)
    Button1: TButton;
    PrintDialog1: TPrintDialog;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation
{$IFNDEF WIN32}
const MAX_PATH = 144;
{$ENDIF}

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
pDevice : pChar;
pDriver : pChar;
pPort   : pChar;
hDMode : THandle;
begin
//if PrintDialog1.Execute then
begin
    GetMem(pDevice, cchDeviceName);
    GetMem(pDriver, MAX_PATH);
    GetMem(pPort, MAX_PATH);
    Printer.GetPrinter(pDevice, pDriver, pPort, hDMode);
    if lStrLen(pDriver) = 0 then begin
      GetProfileString('Devices', pDevice,'' , pDriver, MAX_PATH);
      pDriver[pos(',', pDriver) - 1] := #0;
    end;
    if lStrLen(pPort) = 0 then begin
      GetProfileString('Devices', pDevice,'' , pPort, MAX_PATH);
      lStrCpy(pPort, @pPort[lStrLen(pPort)+2]);
    end;
    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);
end;
end;