监视打印机部分线程内容

• 
  　　分　　类：硬件
  语　　种：简体中文
  编辑器：DELPHI6
  平　　台：Win2k/XP/NT
  作品源代码： -
  软件或演示： -
  代码大小： -
  软件大小： -
  
  unit UTrdGetJobs;
  
  interface
  
  uses
  Classes,winspool,Windows,SysUtils;
  
  type
  TCallBack=Procedure(JobRecord:String) of Object;
  
  TGetJobs = class(TThread)
  private
  
  protected
  FPrinterName:String;
  FCallBack:TCallBack;
  Function GetJob():String;Virtual;Abstract;
  procedure Execute; override;
  Public
  constructor Create(PrinterName:String;ACallBack:TCallBack);
  end;
  
  TGetJobs9X=Class(TGetJobs)
  Protected
  Function GetJob():String;Override;
  end;
  
  TGetJobsNT=Class(TGetJobs)
  Protected
  Function GetJob():String;Override;
  end;
  
  implementation
  
  { Important: Methods and properties of objects in VCL or CLX can only be used in a method called using Synchronize, for example, Synchronize(UpdateCaption); and UpdateCaption could look like,
  procedure TrdGetJobs.UpdateCaption;
  begin
  Form1.Caption := 'Updated in a thread';
  end; }
  
  { TrdGetJobs }
  
  constructor TGetJobs.Create(PrinterName: String; ACallBack: TCallBack);
  begin
  FPrinterName:=PrinterName;
  FCallBack:=ACallBack;
  
  FreeOnTerminate := True;
  inherited Create(False);
  
• [1] [2] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 监视打印机部分线程内容 相关文章：
• ·监视打印机部分线程内容
• 监视打印机部分线程内容 相关软件

上一篇:关于SMTP和POP3使用及关于客户-服务端的自动连线问题

下一篇:获取其他进程中ListBox和ComboBox的内容

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐