大饼先生

function GetButtonHandle(hwnd:Integer;TF:TForm1):Boolean;stdcall;
var
Buffer: array[0..255] of Char;
begin
Result := True; //设定为True才会再找下一个
if iswindowenabled(hwnd)=false then//判断是否有enable的东东
begin
enablewindow(hwnd,true);
end;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
//设置窗体在最前端
setwindowpos(form1.Handle,HWND_TOPMOST,form1.Left,form1.Top,form1.Width,form1.Height,0)
end;


procedure TForm1.Timer1Timer(Sender: PObj);
var
ButtonHandle:integer;
MyButtonHandle:HWND;
begin
edit2.Text:=inttostr(getforegroundwindow);
ButtonHandle:=getforegroundwindow;
EnumChildWindows(ButtonHandle,@GetButtonHandle,integer(@ButtonHandle));
end;