VPF::Как найти окно по неполному названию

Vit

Дата 3.5.2002, 19:03 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 1
Всего: 207

Код не мой, взят где-то из интернета, авторство не помню, я его работоспособность проверял, но почему-то работает не в 100% случаев, копать дальше не было времени, но может кому пригодится и в таком варианте.

Код


type
  PFindWindowStruct = ^TFindWindowStruct;
  TFindWindowStruct = record
    Caption : string;
    ClassName : string;
    WindowHandle : THandle;
  end;

function EnumWindowsProc(hWindow : hWnd; lParam  : LongInt) : Bool; stdcall;
var
  lpBuffer : PChar;
  WindowCaptionFound : bool;
  ClassNameFound : bool;
begin
  GetMem(lpBuffer, 255);
  Result := True;
  WindowCaptionFound := False;
  ClassNameFound := False;
  try
    if GetWindowText(hWindow, lpBuffer, 255) > 0 then
      if Pos(PFindWindowStruct(lParam).Caption, StrPas(lpBuffer)) > 0 then WindowCaptionFound := true;
    if PFindWindowStruct(lParam).ClassName = '' then ClassNameFound := True
    else if GetClassName(hWindow, lpBuffer, 255) > 0 then
           if Pos(PFindWindowStruct(lParam).ClassName, StrPas(lpBuffer))> 0 then ClassNameFound := True;
    if (WindowCaptionFound and ClassNameFound) then
      begin
        PFindWindowStruct(lParam).WindowHandle := hWindow;
        Result := False;
      end;
  finally
    FreeMem(lpBuffer, sizeof(lpBuffer^));
  end;
end;

function FindAWindow(Caption : string; ClassName : string) : THandle;
  var WindowInfo : TFindWindowStruct;
begin
  WindowInfo.Caption := Caption;
  WindowInfo.ClassName := ClassName;
  WindowInfo.WindowHandle := 0;
  EnumWindows(@EnumWindowsProc, LongInt(@WindowInfo));
  FindAWindow := WindowInfo.WindowHandle;
end;

procedure TForm1.Button1Click(Sender: TObject);
  var TheWindowHandle : THandle;
begin
   TheWindowHandle := FindAWindow('Opera', '');
   if TheWindowHandle<>0 then
     begin
       Showwindow(TheWindowHandle, sw_restore);
       BringWindowToTop(TheWindowHandle);
     end
   else
     ShowMessage('Window Not Found!');
end;

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

Mikel

Дата 4.5.2002, 13:40 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник Клуба
Сообщений: 882
Регистрация: 30.3.2002
Где: Саратов

Репутация: нет
Всего: 2

А как на счет

Код

Function TForm1.Find(s:string):hWnd;
VAR  Wnd:hWnd;
     buff:ARRAY [0..127] OF Char;
begin
Find:=0;
Wnd:=GetWindow(Handle,gw_HWndFirst);
WHILE Wnd<>0 DO
  BEGIN
   IF (Wnd<>Application.Handle)AND
      IsWindowVisible(Wnd)AND
      (GetWindow(Wnd,gw_Owner)=0)AND
      (GetWindowText(Wnd,buff,sizeof(buff))<>0)
       THEN
        BEGIN
        GetWindowText(Wnd,buff,sizeof(buff));
        if pos(s,StrPas(buff))>0 then begin
                                      Find:=Wnd;
                                      Break;
                                      End;
        END;
  Wnd:=GetWindow(Wnd,gw_hWndNext);
  END;
end;

--------------------

...so remember, it's better to burn out than to fade away

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »