职称评审管理信息系统的设计与实现 ( 广州铁路集团公司科研所 陈亮 ) 摘要 : 职称评审管理信息系统以职称评审工作为对象，处理职称评审中的各种业务，建立职称评审质量保证体系，本系统通过网上申报收集申报人的各种基本信息资料 , 通过职称评审后台子系统管理申报人的...

2008-04-09 04:31:52

procedure TForm1.Button1Click(Sender: TObject);var s : string;begin combobox1.Clear; s := ''''01''''; combobox1.Items.AddObject(''''北京'''',TObject(s)); s := ''''02''''; combobox1.Items.AddObject(''''天津'''',TObject(s)); s := ''''03''''; combobox1...

2008-04-09 04:31:50

前一阵因为工作需要写了一个类来进行windows拨号，整理了一下，多封装了几个windows ras api，放上来大家提提意见。现在支持读取windows拨号连接列表、拨号、挂断、创建/删除连接，可以适用98/2000/XP，windows me 和NT没测试过，想来应该是可以的。以后有时间写成comp...

2008-04-09 04:31:50

{以下代码可以分析Windows下的鼠标处的对象类名，句柄及其递归父类等信息，是很久以前火鸟的工具软件视窗超人中的一段代码。其触发使用了Timer控件，其实更好的实现是用Windows Mouse Hook来做触发，就当抛砖引玉吧；此代码还实现了不依赖于Windows2000以上要求的半透...

2008-04-09 04:31:49

Delphi的包是Delphi IDE的核心技术，没有包也就没有了Delphi的可视化编程。包也可以用在我们开发的项目中，其好处是可以代码共享，减小工程尺寸，单纯通过替换包文件就能实现工程的升级和补?５?俏颐且?釉匕??鸵??腊?幸丫?嬖诘睦唷９赜谌绾味??釉匕?淖柿媳...

2008-04-09 04:31:48

前两天简单实现了一个Delphi下的MVC模式，没想到真的就遇到问题了，想想就在不久前和人争论用不用MVC的时候还暗自认为遇到麻烦是功力不够的表现，呵呵，汗啊，报应来得真快。 其实说起来都不是什么大问题，先是重复触发更新的问题。TA有3个属性，每个改动都会Change，T...

2008-04-09 04:31:47

uses CommCtrl; var OldWindowProc: TWndMethod; procedure TForm1.MyWindowProc(var Msg: TMessage); begin if Msg.Msg = CN_NOTIFY then begin case TWMNotify(msg).NMHdr.code of MCN_GETDAYSTATE: Memo1.Lines.Add(''''MCN_GETDAYSTATE'''');//點了翻页 MCN_SELECT...

2008-04-09 04:31:47

copy from 一、序言 二、通用源代码格式规则 2.1 缩格 2.2 页边空格 2.3 begin…end 配对 三、object pascal 3.1 括号 3.2 保留字和关键字 3.3 过程和函数（例程） 3.3.1 命名/格式化 3.3.2 形式参数 3.3.2.1 格式化 3.3.2.2 命名 3.3.2.3 参数的排序 3.3.2.4 常量参数...

2008-04-09 04:31:46

全透明窗体（效果比较好） uses里加上ExtCtrls procedure tform1.setformtransparent; var I: Integer; FullRgn, ClientRgn, ControlRgn: THandle; Margin, MarginX, MarginY, X, Y: Integer; W,H,S :Integer; bX,bY :Integer; c :TColor; begin Margin := (Width - Cl...

2008-04-09 04:31:44

利用windows的一个*.dll御截漏洞,可以实现在win9x,nt,w2k下进程的深度隐藏,按CTRL ALT DEL看不到,用终极防线也看不到,这是我的最新发现,想和大家一起讨论, 我已实现了这一功能,源程在http://njhhack.freehomepages.com/source/hideproc.zip 我的oicq:10772919 e-mail:n...

2008-04-09 04:31:43