Форум: "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.036 c
1-22687           shane54               2002-03-26 13:45  2002.04.08  
При обработки нажатия на Enter...


3-22608           {bas}                 2002-03-18 18:31  2002.04.08  
RX


3-22531           mcmax                 2002-03-14 10:54  2002.04.08  
Помогите составить запрос с внешними объединениями


7-22853           viksoft               2001-12-13 12:41  2002.04.08  
Автоматический запуск программы при старте Windows


3-22583           dymka                 2002-03-17 10:47  2002.04.08  
Репликация метаданных