• 欢迎访问搞代码网站,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站!
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏搞代码吧

Delphi中设置默认打印机_Delphi

Delphi 搞代码 3年前 (2018-08-09) 152次浏览 已收录 0个评论

type
  TForm1 = class(TForm)
    Button1: TButton;
    ComboBox1: TComboBox;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }   
  public
    { Public declarations }

http://www.gaodaima.com/?p=65730Delphi中设置默认打印机_Delphi

  end;

{…}

procedure TForm1.FormCreate(Sender: TObject);
begin
  { tell printer to go to the default by setting
    the PrinterIndex value to -1 }
  Printer.PrinterIndex := -1;

  { make our combobox non-editable }
  ComboBox1.Style      := csDropDownList;

  { set our combobox items to the printer printers }
  ComboBox1.Items      := Printer.Printers;

  { set combobox to view the default printer
    according to printer printerindex as set above }
  ComboBox1.ItemIndex  := Printer.PrinterIndex;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  MyHandle  : THandle;
  MyDevice,
  MyDriver,
  MyPort: array [0..255] of Char;
begin
  { set printer to the selected according to the
    combobox itemendex }
  Printer.PrinterIndex := ComboBox1.ItemIndex;

  { get our printer properties }
  Printer.GetPrinter(MyDevice,
                     MyDriver,
                     MyPort,
                     MyHandle);

  { create string of exactly what WriteProfileString()
    wants to see by concat each of the above received
    character arrays }
  StrCat( MyDevice, ‘,’);
  StrCat( MyDevice, MyDriver );
  StrCat( MyDevice, ‘,’);
  StrCat( MyDevice, MyPort );

  { copy our new default printer into our windows ini file
    to the [WINDOWS] section under DEVICE= }
  WriteProfileString(‘WINDOWS’,
                     ‘DEVICE’,
                     MyDevice );

  { tell all applications that the windows ini file has
    changed, this will cause them all to recheck default
    printer }
  SendMessage(HWND_BROADCAST,
              WM_WININICHANGE,
              0,
              LongInt(pChar(‘windows’)));
  end;
end;

欢迎大家阅读《Delphi中设置默认打印机_Delphi》,跪求各位点评,若觉得好的话请收藏本文,by 搞代码


搞代码网(gaodaima.com)提供的所有资源部分来自互联网,如果有侵犯您的版权或其他权益,请说明详细缘由并提供版权或权益证明然后发送到邮箱[email protected],我们会在看到邮件的第一时间内为您处理,或直接联系QQ:872152909。本网站采用BY-NC-SA协议进行授权
转载请注明原文链接:Delphi中设置默认打印机_Delphi
喜欢 (0)
[搞代码]
分享 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址