Показать сообщение отдельно
  #1  
Старый 22.07.2014, 20:43
Noooob Noooob вне форума
Прохожий
 
Регистрация: 24.12.2013
Сообщения: 38
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию ShellExecute и FindWindow

Код:
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 то все работает.Почему?
Ответить с цитированием