Как проверять, запущено ли приложение

TStartupInfo si;
TProcessInformation pi;
AnsiString cmdline;
 
ZeroMemory(&si,sizeof(si)); si.cb = sizeof(si);
 
cmdline = "c:\\Proga.exe"; // запускаем эту программу
 
if (!CreateProcess( NULL, // No module name (use command line).
cmdline.c_str(), // Command line.
NULL, // Process handle not inheritable.
NULL, // Thread handle not inheritable.
false, // Set handle inheritance to FALSE.
0, // No creation flags.
NULL, // Use parent's environment block.
NULL, // Use parent's starting directory.
&si, // Pointer to STARTUPINFO structure.
&pi )) // Pointer to PROCESS_INFORMATION structure.
 
{ ShowMessage("CreateProcess failed."); }
else { ShowMessage("Ok !"); }

if (!CreateProcess( NULL, // No module name (use command line).

STARTUPINFO si;
PROCESS_INFORMATION pi; 
DWORD dw=0;
 
memset(&si,NULL,sizeof(si));
if(CreateProcess(NULL,"C:\\1.exe",NULL,NULL,FALSE,NULL,NULL,NULL,&si,&pi)) // Успешно запустили
{
    while(1)
    {
        GetExitCodeProcess(pi.hProcess,&dw);
        if(dw!=STILL_ACTIVE) // Процесс завершился
        {
           ......
               ......
               break;   
        }
            Sleep(1000);
    }
}

typedef struct 
{
  HANDLE hProcess;
  HWND hWnd;
}Params;
 
//процедура потока
DWORD WINAPI ThreadProc(Params* tp)
{
  //по-моему, WaitFor... удобнее использовать, да и симпатичнее смотрится :)
  WaitForSingleObject(tp->hProcess,INFINITE);
  PostMessage(tp->hWnd,WM_USER+100,(WPARAM)tp->hProcess,0);//посылаем сообщение о завершении процесса
  delete tp;//освобождаем память
}
...
//где-нибудь в основном потоке
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  STARTUPINFO si;
  PROCESS_INFORMATION pi; 
  DWORD dw=0;
  memset(&si,NULL,sizeof(si));
  if(CreateProcess(NULL,ApplicationExe->ExeName.c_str(),NULL,NULL,FALSE,NULL,NULL,NULL,&si,&pi)) // O'n~i"a*?i'i^ c,a`i"o'n~o`e`e"e`
  {
    Params *param=new Params;//не забыть освободить память
    param->hProcess=pi.hProcess;
    param->hWnd=Handle;//хэндл того окна, которому надо послать сообщение
    CreateThread(NULL,0,(DWORD (WINAPI*)(void*))ThreadProc,param,0,NULL);
  }
}
...
//где-то в обработчике сообщения WM_100 окна
void __fastcall TForm1::OnWm(TMessage& msg)
{
  ShowMessage(String().sprintf("Process %Xh have been finished",msg.WParam));
}
//для этого в объявлении TForm1 можно прописать
class TForm1 : public TForm
{
...
protected:
void __fastcall OnWm(TMessage& msg);
BEGIN_MESSAGE_MAP
VCL_MESSAGE_HANDLER(WM_USER+100, TMessage, OnWm)
END_MESSAGE_MAP(TForm)
...
};

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "sSkinManager"
#pragma link "sLabel"
#pragma link "sButton"
#pragma link "sComboBox"
#pragma link "sStatusBar"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::sButton1Click(TObject *Sender)
{
sStatusBar1->Panels->Items[0]->Text = "Сервер запущен";
Sleep(1000);
STARTUPINFO si;
PROCESS_INFORMATION pi;
DWORD dw=0;
AnsiString parametrs;
memset(&si,NULL,sizeof(si));
if (CreateProcess(NULL,"srcds.exe -console -game cstrike -map de_dust2",NULL,NULL,FALSE,NULL,NULL,NULL,&si,&pi))
while(1)
    {
        GetExitCodeProcess(pi.hProcess,&dw);
        if(dw!=STILL_ACTIVE) // Процесс завершился
        {
          CreateProcess(NULL,"srcds.exe -console -game cstrike -map de_dust2",NULL,NULL,FALSE,NULL,NULL,NULL,&si,&pi);
              if (sStatusBar1->Panels->Items[0]->Text == "Сервер остановлен") break;
        }
            Sleep(1000);
}
}     
 
//---------------------------------------------------------------------------
void __fastcall TForm1::sButton2Click(TObject *Sender)
{
sComboBox1->Items->LoadFromFile("cstrike\\maplist.txt");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::sButton3Click(TObject *Sender)
{
sStatusBar1->Panels->Items[0]->Text = "Сервер остановлен";
}
//---------------------------------------------------------------------------