如何设置默认打印机？

问题点数：20、回复次数：2Top

1 楼Bob7946（X度空间）回复于 2001-11-06 15:48:05 得分 17

窗体上有个TComBox，命名为cb1，为当前的所以打印机列表。  
  窗体名为Form1  
   
  procedure   TForm1.FormCreate(Sender:   TObject);  
  begin  
      cb1.items.assign(printer.printers);  
  end;  
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  var   LPrinter:string;  
          PrinIniFile:Tinifile;  
          LStr:string;  
  begin  
      LStr:=printer.Printers[cb1.itemindex];  
      delete(Lstr,pos('   on   ',Lstr),Length(LStr));  
      PrinIniFile:=TIniFile.Create('WIN.ini');  
      try  
          LPrinter:=PrinIniFile.ReadString('Devices',LStr,'');  
          PrinIniFile.writestring('windows','device',LStr+','+LPrinter);  
      finally  
          PrinIniFile.free;  
      end;  
  end;  
  Top

2 楼962veiri（风尘旅人）回复于 2001-11-06 15:50:07 得分 3

楼上说的正确Top

相关问题

• lstr
• prininifile
• lprinter
• 打印机
• 窗体
• printers
• tinifile
• cb
• tobject
• procedure tform

• 帖主：borland_Inprise
• Bob7946
• 962veiri

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载