uses Windows, Messages, SysUtils; var hcount:integer;
//这是一个窗口响应函数，注意：Result:=true很重要，因为只有这样才能连续扫描所有子窗口 function lpEnumFunc(hwnd:integer;uint:integer):boolean;stdcall; var hw,hs,wlong:integer; sbuf,sb2:array[0..256] of char; sb1:string; begin //得到窗口的属性 wlong:=GetWindowLong(hwnd,GWL_STYLE); //若属性为es_password则为密码窗 if (wlong and ES_PASSWORD)<>0 then begin inc(hcount); //发送获取窗口标题的消息 sendmessage(hwnd,wm_gettext,40,integer(@sbuf)); //设置得到的密码 strpcopy(sbuf,format(''''[Password %d] = %s'''',[hcount,sbuf])); //显示密码 end; //result为true时继续扫描下一个子窗口 result:=true; end;
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
