Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];




Вниз

Как получить handle активного окна 


Turalyon   (2002-02-06 13:41) [0]

Помогите пожалуйста.
В Help - е нашел функцию GetActiveWindow() но она возвращает handle активного окна в thread... а мне надо первое окно в Z-order-е, может я тупой, но у меня не получается. Помогите пожалуйста...



savva   (2002-02-06 13:54) [1]


GetTopWindow
The GetTopWindow function examines the Z order of the child windows associated with the specified parent window and retrieves a handle to the child window at the top of the Z order.

HWND GetTopWindow(
HWND hWnd // handle to parent window
);
Parameters
hWnd
[in] Handle to the parent window whose child windows are to be examined. If this parameter is NULL, the function returns a handle to the window at the top of the Z order.
Return Values
If the function succeeds, the return value is a handle to the child window at the top of the Z order. If the specified window has no child windows, the return value is NULL. To get extended error information, use the GetLastError function.



savva   (2002-02-06 14:03) [2]

то есть тебе надо GetTopWindow(NULL);



Turalyon   (2002-02-06 14:28) [3]

Ошибку выдает "Invalid variant type conversion"...

procedure TForm1.Button1Click(Sender: TObject);
var mh : HWnd;
begin
mh := GetTopWindow(NULL); < Здесь гад :(
end;



savva   (2002-02-06 14:30) [4]

извини, это я по привычке на С..

GetTopWindow(nil);
или

GetTopWindow(0);



Turalyon   (2002-02-06 14:42) [5]

Ок. Спасиб, вроде запускается...



savva   (2002-02-06 14:49) [6]

не за что




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.035 c
7-22852           Drv                   2001-12-04 18:08  2002.04.08  
Удаленный доступ


1-22751           Art1                  2002-03-25 14:19  2002.04.08  
Что нужно для ActiveX?


1-22680           mike.dld              2002-03-28 16:50  2002.04.08  
StringGrid --> Excel


4-22894           BDRON                 2002-02-05 21:17  2002.04.08  
Запустить две программы подряд.


3-22522           Eduard                2002-03-14 11:07  2002.04.08  
Table unknown