怎么获得其他程序有焦点的控件的句柄?
我用这段代码取出来的句柄不对啊

var
HWND: DWORD;
Pid: Integer;
begin
Sleep(2000);
HWND := GetForegroundWindow;
Pid := GetWindowThreadProcessId(HWND, nil);
if AttachThreadInput(Pid, GetCurrentThreadId, True) then
begin
HWND := GetFocus;
AttachThreadInput(Pid, GetCurrentThreadId, False);
ShowMessage(IntToStr(HWND));
end
else raise Exception.Create( 'Couldn ' 't Find Window! ');
end;

[解决办法]
句柄取错没？