как определить закрытие приложения

[Анастасия123456789]

вот у меня код такой.....
procedure TForm2.N6Click(Sender: TObject);
begin
ShellExecute(Self.Handle, 'open', 'TEST_OS.exe', nil, nil, SW_SHOWNORMAL);
form2.Hide
end;
вот как можно ли определить был али закончена работа с запущеным приложением....мне нужно когда закончена работа с запущеным приложением октрыть другую форму.......

[Пепел Феникса]

function WinExecAndWait(Path: PChar; Visibility: Word): Word;
var
  InstanceID: THandle;
  Msg: TMsg;
begin
  InstanceID := WinExec(Path, Visibility);
  if InstanceID < 32 then 
    WinExecAndWait := InstanceID
  else
    repeat
       while PeekMessage(Msg, 0, 0, 0, pm_Remove) do
       begin
         if Msg.Message = wm_Quit then Halt(Msg.WParam);
         TranslateMessage(Msg);
         DispatchMessage(Msg);
       end;
    until GetModuleUsage(InstanceID) = 0;
  WinExecAndWait := 0;
end;

Path - путь с параметрами.
Visibility - режим видимости(SW_**** - константы, такие же как в ShellExecute)

применение(на вашем же примере):

procedure TForm2.N6Click(Sender: TObject);
begin
WinExecAndWait(PChar('TEST_OS.exe',SW_SHOWNORMAL);//правда вроде нужно полный путь указывать
form2.Hide
end;

единственное знакоки АПИ подскажите в каком модуле находится GetModuleUsage?

кстати еще можно воспользоватся списком всех задач(имя проги что вы запускаете вы то знаете, функцию можете найти посмотрев мои собщения)

[Анастасия123456789]

а можна на другом примере...... а то чет я не пойму ниче....... куды мне пихать открыть и показать форму........

[KORN]

а разобраться не хочешь7 скажи спасибо что вообще ответили... вечно харчами перебираете... уважения никакого, да и совести...