Форум: "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.054 c
14-22808          Дмитрий_Ч             2002-02-26 17:29  2002.04.08  
SOS!!!


3-22533           rvs                   2002-03-14 16:22  2002.04.08  
Delphi+MySql ---- начинающий


1-22632           VictorT               2002-03-27 14:01  2002.04.08  
Кол-во строк в текстовом файле


1-22740           snoup                 2002-03-26 23:47  2002.04.08  
Почему не работает вот такая фигня: if timeover = 10 then label1.color:=clred;??????


1-22730           Gayrus                2002-03-27 03:22  2002.04.08  
TComboBox