Как наити нужную программу???

[Johnson™]

Помогите начинающему... Нужно чтобы моя программа работала только если запушена и в данный момент активна другая программ. Пытаюсь...
 

Код:

  AppWnd:= GetForegroundWindow();
   id:=FindWindow('OWL_Window','Имя программы');
   if id=AppWnd then
     begin
....
     end;

Почему то не выходит... хотя программа запущена и активна.

[Xeysan]

А как ты запускаешь программу? Может в момент запуска искомое окно уже не активное?

[sss]

FindWindow ищет по Caption (WM_GETTEXT), а не по имени программы.
Смотри GetProcessImageFileName...

[Anonymous]

FindWindow ищет по заголовку программы когда...

Код:

hwnd:= FindWindow(nil,'Заголовок программы');
if hwnd<>0 then Оно ...

всё работает, а когда сравниваю с активным окном не работает

[Anonymous]

Надо чтобы программа обрабатывалась при запущеном другом приложении при условии что приложение за которам наблюдаю активно т.е. в нем работают а не минимизировано. Даже если оно не активно тоничего происходить и не должно, но даже когда я её активной делаю ничего не меняется. Создается такое впечатление что GetForegroundWindow возвращает не тот дескриптор. Как ещё можно узнать дескриптор окна в котором в данный момент работает пользователь???

[Гром]

Если это родительская программа - передавай своей ее имя в параметре.

[blackman]

Не допустить запуск второй копии программы

procedure TForm1.FormCreate(Sender: TObject);

var ExtendedStyle:dword;
Wnd : hWnd; buff : ARRAY[0.. 127] OF Char;

begin
Wnd := GetWindow(Handle, gw_HWndFirst); WHILE Wnd <> 0 DO BEGIN  IF (Wnd <> Application.Handle)
AND (GetWindow(Wnd, gw_Owner) = 0)  THEN BEGIN   GetWindowText (Wnd, buff, sizeof (buff ));
 IF StrPas (buff) = Application.Title THEN
  BEGIN        Halt;   END;
END;  Wnd := GetWindow (Wnd, gw_hWndNext); END;

END;

[nebula]

procedure TForm1.Timer1Timer(Sender: TObject);
var
  fw: HWND;
  cn: PChar;
  c: PChar;
begin
  fw := GetForegroundWindow;
  GetMem(c, GetWindowTextLength(fw) + 1);
  GetMem(cn, 255);
  GetWindowText(fw, c, GetWindowTextLength(fw) + 1);
  GetClassName(fw, cn, 255);
  ListBox1.AddItem('class: ' + string(cn) + ', caption: ' + string(c), nil);
  FreeMem(cn);
  FreeMem(c);
end;

Скорее всего, ты не то окно ищешь в FindWindow. Запусти эти строчки и активизируй нужное приложение, по полученному имени класса и заголовку и ищи.

[johnson™]

если использовать FindWindow то все работает приложение определяется только моя программа не будет работать только в том случае если в системе не будет приложения за которым наблюдаю...

[Ощртыщт™]

Пробовал такой код...
     id:=FindWindow('OWL_Window','Заголовок');
     if (id<>0)and(IsWindowVisible(id)=true) then    
не работает...(((
если использовать только
     if (id<>0)then    
всё нормально...

[Anonymous]

procedure TForm1.Timer1Timer(Sender: TObject);
var
  fw: HWND;
  cn: PChar;
  c: PChar;
begin
  fw := GetForegroundWindow;
  GetMem(c, GetWindowTextLength(fw) + 1);
  GetMem(cn, 255);
  GetWindowText(fw, c, GetWindowTextLength(fw) + 1);
  GetClassName(fw, cn, 255);
  ListBox1.AddItem('class: ' + string(cn) + ', caption: ' + string(c), nil);
  FreeMem(cn);
  FreeMem(c);
end;


Попробовал находит именно то что надо и называется как надо...

Скорее всего, ты не то окно ищешь в FindWindow. Запусти эти строчки и активизируй нужное приложение, по полученному имени класса и заголовку и ищи.

[Johnson™]

Создаётся такое впечатление что

AppWnd:= GetForegroundWindow
id:=FindWindow('OWL_Window',Заголовок');
if (id=AppWnd)then  
id и AppWnd всегда неравны даже если одно приложение работает, а в этой последовательности случайно нет окон которые всегда считаются активными и находятся в фокусе???

[cg_spooler]

ID - номер процесса, кот. выдается при каждом запуске проги.
Т.е. Inc(ID) идет при каждом запуске проги. Не стоит привязываться к нему, т.к. он будет постоянно меняться, даже при повторном запуске той-же проги.