2017年4月14日
delphi程序向另一个可执行程序发消息（使用GetForegroundWindow; 找出当前操作系统中活动的第一个窗口）
function FindWindowThroughWindowText(WindowText: string): THandle;var hCurrentWindow: THandle; cnt: Integer; WindowTitle: array [0 .. 254] of Char;beg Read More
posted @ 2017-04-14 22:34 findumars Views(1670) Comments(0) Diggs(0)
Tobject 类解析
TObject = class //创建 constructor Create; //释放 procedure Free; //初始化实列 class function InitInstance(Instance: Pointer): TObject; //清除实列 procedure Cleanu Read More
posted @ 2017-04-14 22:34 findumars Views(384) Comments(0) Diggs(0)
内存映射实现进程通讯
unit FileMap;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, StdCtrls, Dialogs;type //定义TFileMap类 TFileMap = class(TCom Read More
posted @ 2017-04-14 22:32 findumars Views(1108) Comments(0) Diggs(0)
Delphi 导出数据至Excel的7种方法
一; delphi 快速导出excel uses ComObj,clipbrd; function ToExcel(sfilename:string; ADOQuery:TADOQuery):boolean; const xlNormal=-4143; var y : integer; tsList Read More
posted @ 2017-04-14 22:29 findumars Views(9590) Comments(0) Diggs(0)
Delphi皮肤之 - 图片按钮
效果如图，支持普通、移上去、按下、弹起、禁用5种状态。 unit BmpBtn; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TButt Read More
posted @ 2017-04-14 22:14 findumars Views(2490) Comments(0) Diggs(0)