| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

получить handle окна по неполному имени [D7, Win2k, WinXP]

Dimich1978 ©   (2006-05-05 13:22:00) 

т.е. задача такова что надо найти окно и получить его handle, но окно может изменяться.
к примеру найти окно Delphi 7 на прямую не получиться т.к. если к примеру открыт проект , название окна будет выглядеть как Delphi 7- Project1.dpr . Как можно найти по совпадению. Нарыл код который делает это. Но на практике, функция возвращает handle=0 т.е. окно не найдено. в конце отрабатывает "Window Not Found!"
Вот Код

//-----------------
function EnumWindowsProc(hWindow : hWnd; lParam : LongInt) : Bool {$IFDEF Win32} stdcall; {$ELSE} ; export; {$ENDIF}
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
 with WindowInfo do begin
   Caption := Caption;
   ClassName := ClassName;
   WindowHandle := 0;
   EnumWindows(@EnumWindowsProc, LongInt(@WindowInfo));
   FindAWindow := WindowHandle;
 end;
end;
//-----------------

procedure TForm1.close_start(Sender: TObject);
var
   h: THANDLE;
   TheWindowHandle : THandle;
begin
TheWindowHandle := FindAWindow('Delphi 7 - ', '');
 if TheWindowHandle = 0 then
   ShowMessage('Window Not Found!')
 else
   BringWindowToTop(TheWindowHandle);

---

Dimich1978   (2006-05-07 09:27:00) [1]

Сделал в лоб. Т.е. просто храню в файле окна которыенадо закрывать. Можно добавлять и удалять записи. Более универсально получилось..можно закрывать не только 1С-ие окна, а практически любые. Хотя для интереса хотелось бы разобраться с данным вопросом.

---

KASioZ   (2006-05-06 10:10:00) [2]

Самый простой способ на мой взгляд в данной ситуации это искать окно по его классу.
Имя класса окна чаще всего не зависит от его заголовка.
Или же если невозможно искать по классу то тогда бери список всех окон в системе,
затем бери отдельно заголовок каждого окна и сравнивай его с условием.
Например:



function GetWndList: TStrings;
begin
//Берем список всех окон и помещаем их в строковый массив
end;

ListBox1.Items.Clear;
ListBox1.Items:=GetWndList;
for i:=0 to ListBox1.Items.Count -1 do
      if pos ('Delphi 7', ListBox1.Items.Strings[i])= 1 then //Окно нашли выполняем действия


---

AbrosimovA   (2006-05-06 09:16:00) [3]

function EnumProc (Wd: HWnd; Param: LongInt): Boolean; stdcall;
Var
  Nm:Array[0..255] of Char;
  Len,PosSym: integer;
Begin
GetWindowText(Wd,Nm,255);
Len:=Length(String(Nm));
Capt:=Copy(String(Nm),1,Len);
PosSym:=Pos(Form1.Edit1.Text,Capt);
if  PosSym<>0 then begin
 Form1.ListBox1.Items.Add(String(Nm)+'-'+IntToStr(Wd));
 H:=Wd;
end;
EnumProc:=true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Clear;
EnumWindows(@EnumProc, 0);
end;

---

begin...end   (2006-05-05 19:43:00) [4]

> Dimich1978   (05.05.06 13:22)

У меня этот код работает.

---

ANB   (2006-05-05 19:40:00) [5]

EnumWindows спасет отца русской демократии. Подробности в хелпе.

---

Dimich1978   (2006-05-05 16:37:00) [6]

http://www.delphiworld.narod.ru/base/api_find_window_and_activate_it.html
Вот прямая ссылка , где говориться что в обход типа можно....

---

Dimich1978   (2006-05-05 16:36:00) [7]

Вот теперь по существу....
Хорошо, а выше описанный код почему не будет работать?

---

Сергей М.   (2006-05-05 14:25:00) [8]

> по существу ничего


По существу желаете ?

Извольте сделать запрос к msdn.microsoft.com по ключ.фразе "EnumWindows" ..

Или не царское это дело ?

---

Dimich1978   (2006-05-05 14:19:00) [9]

> Не слишком ли много тебе захотелось ?

Флейм..по существу ничего...

---

Сергей М.   (2006-05-05 13:56:00) [10]

> по неполному имени


Не слишком ли много тебе захотелось ?

---

Наверх