来自:sunstone 时间:00-3-12 07:57:04 ID:198292
这分怎吗分?
我的例子
//callback过程,用于查找窗口控件
function EnumChildWindowsProc(H: HWnd; lparam: longint): Boolean; stdcall;
var
Buffer: array[0..10] of Char;
begin
Result := True; //設定為True才會再找下一個
getclassname(h,buffer,10);
if trim(StrPas(Buffer))='Edit' then
begin
ThisUrl:= StrAlloc(250);
SendMessage(h,WM_GETTEXT,249,Integer(ThisUrl));
Result:=False;//設定為false不找下一個
end;
end;
procedure GetUrl;
begin
EnumChildWindows(getforegroundwindow, @EnumChildWindowsProc, 0);
end;