Скачать: CL | DM;

получить handle окна по неполному имени   Найти похожие ветки 

← →
Dimich1978   (2006-05-05 13:22) [0]

т.е. задача такова что надо найти окно и получить его 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);

---

← →
Сергей М. ©   (2006-05-05 13:56) [1]

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


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

---

← →
Dimich1978   (2006-05-05 14:19) [2]

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

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

---

← →
Сергей М. ©   (2006-05-05 14:25) [3]

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


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

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

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

---

← →
Dimich1978   (2006-05-05 16:36) [4]

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

---

← →
Dimich1978   (2006-05-05 16:37) [5]

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

---

← →
ANB ©   (2006-05-05 19:40) [6]

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

---

← →
begin...end ©   (2006-05-05 19:43) [7]

> Dimich1978   (05.05.06 13:22)

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

---

← →
AbrosimovA ©   (2006-05-06 09:16) [8]

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;

---

← →
KASioZ   (2006-05-06 10:10) [9]

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



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 //Окно нашли выполняем действия


---

← →
Dimich1978   (2006-05-07 09:27) [10]

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

---

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

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.029 c