FindWindow

← →
sveloga © (2003-01-23 13:19) [0]

никак не пойму где грабли зарылись:

Procedure xxx ();
var
Child: TMainBase;
hwnd: integer;
begin
hwnd := FindWindow (nil, "MainBase");
if hwnd <> 0 then
begin
{}
end
else
begin
Child := TMainBase.Create(Application);
Child.Caption := "MainBase";
end;
end;

Hикак не желает находить оконо когда оно уже существует...

← →
LongIsland © (2003-01-23 13:29) [1]

hwnd := FindWindow ("TMainBase", "MainBase");

← →
sveloga © (2003-01-23 14:58) [2]

Такой вариант тоже пробовал, результат тот же.

← →
Zz_ (2003-01-23 15:00) [3]

FindWindowEx

← →
sveloga © (2003-01-23 15:17) [4]

Там красным по белому написано: [Now Supported on Windows NT]

А у меня именно НТ :-(

← →
MBo © (2003-01-23 15:21) [5]

Now по-русски "Теперь"
Однако и твой первый вариант рабочий, если имя верно.
Можно искать и только по классу окна
hwnd := FindWindow ("TMainBase",nil);

Если искать только по классу, то он хэнл выдает, если даже этого окна еще не создано.

Лучше искать вручную

wnd:=128;
repeat
if isWindow(wnd) then Begin
// найдено следуещее окно
... getWindowText ... getClassName ...
if SearchOK then break;
end;
wnd:=wnd+4;
until not ((wnd<10000000{???}));

FindWindow Найти похожие ветки