摘要：
数据库系统工程师考试大纲（2004年新版） （来自CSAI.cn） 2004年05月30日 一、考试说明 1、考试要求 （1... 阅读全文
摘要：
以前CSDN上有好多人问过这个问题，但是好象没有人给出满意的答案。我也是经过好长时间摸索才找到答案，现在在这给大家分享： procedureTForm1.FormCreate(Sender:TObject); var NewField:TField; i:integer; begin //表中有两字段SName,Birth，现在我们动态生成一个计算字段Age，显示出年龄 NewFi... 阅读全文
摘要：
procedureKillProgram(Classname:string;WindowTitle:string); const PROCESS_TERMINATE=$0001; var ProcessHandle:THandle; ProcessID:Integer; TheWindow:HWND; begin TheWind... 阅读全文
摘要：
/修改 var Form1:TForm1; StartButton:hWnd; OldBitmap:THandle; NewImage:TPicture; /将代码放入FormCreate事件 procedureTForm1.FormCreate(Sender:TObject); begin NewImage:=TPicture.c... 阅读全文
摘要：
有时候我们需要对其它应用程序发送和接收的网络数据进行拦截,比如要对IE发送的HTTP头进行分析,得到请求的地址等.这次我们可以用一些例如WPE, Sniffer之类的工具来达到目的.但是工具功能有限,要想实现更强大的功能,还是我们自己动手来DIY吧. 拦截网络数据封包的方法有三种,一是将网卡设为混杂模式,这次就可以监视到局域网上所有的数据包,二是HOOK目标进程的发送和接收的API函数,第三种... 阅读全文
摘要：
不知道大家在使用QQ时有没有想到它的缩入伸出的功能是如何实现的呢？实现这个效果的关键在于如何判断当前鼠标指针下面的窗体是不是我们的程序窗体。GetCursorPos()是一个可以获得鼠标指针在屏幕中的坐标的API函数，利用它与FindVCLWindow()的结合就可以轻易地获得鼠标指针下的VCL可视组件，但当一个窗体中不只一个VCL可视组件，例如可能还有TPanel、TMemo等等类型时，那么我们... 阅读全文
摘要：
开发中有时需要在流中查找某个字串,这些字串有可能是ASCII表后半部分或混杂.但是网上提供的例程效果不佳而且代码冗长. 后来自己抽个时间写了一个,代码极少,效率很高.仅供各位参考: function ScanStream(T:Tstream;S:String):integer; var i,j:integer; p:Pchar; begin getMem(p,T.size);//分配... 阅读全文
摘要：
procedure TForm1.FormCreate(Sender: TObject); begin AnimateWindow(Handle,2000{速度：2秒},AW_BLEND); { AW_HOR_POSITIVE = $00000001; AW_HOR_NEGATIVE = $00000002; AW_VER_POSITIVE = $00000004; AW_VER_... 阅读全文
摘要：
如果你想要改变Windows的缺省打印机,你必须在Windows的WIN.INI中改变设备键。 发送一条 WM_WININICHANGE 消息： var strIni: array[0..MAX_PATH] of Char; arrWindows: array[0..64] of Char; begin GetWindowsDirectory(strIni, SizeOf(strI... 阅读全文
摘要：
uses dao97,dao2000; procedure CompactMdbDatabase(srcDbname,dstDbname,oldpwd,newpwd:string;bAccess97:boolean=true); var idbEngine:_dbEngine; begin if oldpwd '' then oldpwd := ';pwd='+oldpwd; if ne... 阅读全文
摘要：
// 方法一 ：利用不规则图片 (1) procedure TForm1.FormCreate(Sender: TObject); begin self.ClientWidth := HotImage1.Width ; self.ClientHeight := HotImage1.Height ; brush.style:=bsClear; end; (2)把Form1 的 Bor... 阅读全文
摘要：
类 别:COM & ActiveX (一) 使用动态创建的方法 首先创建 Excel 对象,使用ComObj: var ExcelApp: Variant; ExcelApp := CreateOleObject( 'Excel.Application' ); 1) 显示当前窗口: ExcelApp.Visible := True; 2) 更改 Excel 标题栏: ExcelApp.Captio... 阅读全文