2012年2月21日
网上摘的 杀进程函数
摘要： 需要引用单元 Tlhelp32function KillTask(ExeFileName: string): integer; //杀进程函数const PROCESS_TERMINATE = $0001;var ContinueLoop: BOOL; FSnapshotHandle: THandle; FProcessEntry32: TProcessEntry32;begin result := 0; FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);//取得系统快照 FProcessEntr... 阅读全文
posted @ 2012-02-21 15:26 leon_kin 阅读(287) 评论(0) 推荐(0)
转 Dll创建一个"日历"窗体(一)
摘要： 首先点击File->New->Other-> Dynamic Link Libary把工程文件保存为:CalendarLib.pas 再创建一个Form并放入一个TMonthCalendar控件borderStyle属性设为:bsToolWindow保存为 DllFormUnit.pas?unit DllFormUnit; interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls; typeTDllForm = class( 阅读全文
posted @ 2012-02-21 15:14 leon_kin 阅读(325) 评论(0) 推荐(0)