Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.09.18;
Скачать: CL | DM;

Вниз

Активно ли окно?   Найти похожие ветки 

 
lord Zeratul ©   (2005-07-26 14:35) [0]

Не могу решить следующую задачу: определить стоит ли фокус на окне WinAmp или нет (т.е. активен ли WinAmp). Для этих целей реализовал функцию, которая в случае успеха фозвращает true:

function TFormMain.WinAmpVisible:boolean;
var
Handle: HWND;
lpRect:boolean;
begin
 lpRect:=false;
 Handle:=FindWindow("Winamp v1.x",nil);
 if Handle<>0 then
 begin
    if GetFocus=Handle then lpRect:=true;
 end;
 Result:=lpRect;
end;

А по нажатию кнопки на форме, например:
if WinAmpVisible=true then Label1.Caption:="Active"
 else Label1.Caption:="Not active"

И ето нот воркинг!!! В чём дело? Возможно вызываю не ту API функцию?! Спасибо!


 
begin...end ©   (2005-07-26 14:39) [1]

GetForegroundWindow ?


 
lord Zeratul ©   (2005-07-26 15:01) [2]

Угу! Спасибо! Заработало! Нужно было внимательней справочник API читать...



Страницы: 1 вся ветка

Текущий архив: 2005.09.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.049 c
2-1123573788
rolex
2005-08-09 11:49
2005.09.18
В событии Form1 onShow пишу Form2.ShowModal, но Form1 не показыва


5-1099377771
Kair
2004-11-02 09:42
2005.09.18
PropertyEditor, paSubProperties


6-1115804056
User3000
2005-05-11 13:34
2005.09.18
Ф-ия для получения трафика из UserGate-a


1-1124996882
Phantomouse
2005-08-25 23:08
2005.09.18
Альтернатива TWEbBrowser


6-1110760527
antoxa
2005-03-14 03:35
2005.09.18
Подскажите на "чем из Delphi" писать для интернет (сервер Linux)