получить 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)

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

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С-ие окна, а практически любые. Хотя для интереса хотелось бы разобраться с данным вопросом.

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