[Noooob]

Код:

var
 h:hwnd;
 s:Pansichar;
begin
ShellExecute(Form1.Handle, 'open', PChar(ExtractFilePath(application.ExeName)+'serv.exe'), nil, nil, SW_HIDE);
h:=FindWindow(0,'Agent');
h:=findWindowex(h,0,'TPanel','pnInetId');
h:=findWindowex(h,0,'TEdit',nil);
s:=GetMemory(100);
Sendmessage(h,WM_GETTEXT,20,integer(s));
Showmessage(s);
FreeMemory(s);
end;

FindWindow не находит окно. Если сменить на SW_SHOW то все работает.Почему?

[M.A.D.M.A.N.]

Окно невидимое.

[Noooob]

А как-то заменить можно?

[Alegun]

FindWindow находит все видимые и не видимые окна - значит окна такого на момент поиска ещё не существует. Попробуйте выполнить задержку (напр. Sleep(500)) после вызова ShellExecute

[lmikle]

1. А не проще анализировать возврат ShellExecute?
2. Есть еще CreateProcess, по полученному хэндлу процесса можно получить дескриптор окна...
3. Ну или, как советовали, подождать.