VPF::Проблемка... - Форум программистов

Pariah

Дата 31.3.2006, 07:55 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 95
Регистрация: 25.1.2006

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

дарова народ smile

подскажите исходный код как сделать так что пока моя прога не найдёт окно с определённым заголовком она не перестанет работать!
и ещо как сделать так чтоб FindWindow находил любой заголовок где есть например Word а не только определённое окно с точным именем!
буду очень признателен smile

Yanis

Дата 31.3.2006, 09:05 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 13
Всего: 111

Цитата(Pariah @ 31.3.2006, 07:55

)

подскажите исходный код как сделать так что пока моя прога не найдёт окно с определённым заголовком она не перестанет работать!

Код


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;

или

Код


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;

Посмотрел в DRKB . Не проверял... Но помниться, что первым вариантом пользовался лично.

Цитата(Pariah @ 31.3.2006, 07:55

)

Искать в repeat...until или while...do, в зависимости от того что нужно.

Это сообщение отредактировал(а) Yanis - 31.3.2006, 09:06

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

*щёлк*

Romikgy

Дата 31.3.2006, 09:10 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 13
Всего: 146

одна тема - один вопрос!!!

Цитата(Pariah @ 31.3.2006, 06:55

)

пока моя прога не найдёт окно с определённым заголовком она не перестанет работать!

сделай поиск в цикле , а выход по нахождению окна

Цитата(Pariah @ 31.3.2006, 06:55

)

FindWindow находил любой заголовок где есть например Word а не только определённое окно с точным именем!

перебирай все окна и бери их заголовки, и сравнивай есть ли в них

Цитата(Pariah @ 31.3.2006, 06:55

)

например Word

if Pos('Word','Title a window') <> 0 then

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

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