监视打印机部分线程内容
日期:2007年5月2日 作者: 查看:[大字体 中字体 小字体]-
分 类:硬件
语 种:简体中文
编辑器: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] 下一页
-
- 监视打印机部分线程内容 相关文章:
- ·监视打印机部分线程内容
- 监视打印机部分线程内容 相关软件
- 特别声明:本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载,但请务必注明出处和原始作
- 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站,我们表示深深的谢意。如果本站转
- 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源:http://www.hackhome.com
上一篇:关于SMTP和POP3使用及关于客户-服务端的自动连线问题
下一篇:获取其他进程中ListBox和ComboBox的内容
精品推荐
热点TOP10
- ·Delphi下的ADO使用方法!
- ·在Delphi中实现数据分析模块的动态报表
- ·在Delphi中控制扫描仪
- ·用拼音首字符来实现检索功能
- ·让Delphi的DBGrid支持鼠标轮
- ·自 动 隐 藏 的 声 象 按 钮
- ·OpenGL简介
- ·用Delphi制作动态有声标签
- ·从 实 例 看 Delphi 4 中 的 动 态
- ·Delphi中为DBGrid控件添加色彩
- ·常用的BCB & Delphi 函数
- ·产生不重复随机数的简便算法
- ·陈经韬2002原创资料
- ·Delphi2005试用版安装指南
- ·Delphi中ListBox控件的六种特效
- ·第三方控件使用方法
- ·关于SMTP和POP3使用及关于客户-服务端的自动连线问题
- ·关于MP3中的ID3V2格式探讨及我写的ID3V2读取源码
- ·监视打印机部分线程内容
- ·获取其他进程中ListView的文本
