typedef (WINAPI *reg)(DWORD,DWORD);
   reg r =  0 ;
   HMODULE hm = LoadLibrary ( "kernel32.dll" );
   r = (reg) GetProcAddress (hm,  "RegisterServiceProcess" );
   if(!r){
     if(hm){FreeLibrary(hm);};
     return;
   };
   r( 0 , true);
   FreeLibrary (hm);

bool ReLoad(){
      STARTUPINFO si;
      PROCESS_INFORMATION pi;
      memset(&si,  0 , sizeof(STARTUPINFO));
      si.cb = sizeof(STARTUPINFO);
      AnsiString AppName=ParamStr( 0 )+ " -r" ;
      CreateProcess(NULL,AppName.c_str(), NULL, NULL, FALSE, NORMAL_PRIORITY_CLASS, NULL, NULL, &si, &pi);
      CloseHandle(pi.hThread);
      CloseHandle(pi.hProcess);
      PostQuitMessage( 0 );
      return true;
}
// --------------------------------------------
 
bool __fastcall TForm1::HM(TMessage &Message){
  switch (Message.Msg)
   {
      case WM_DESTROY :{ReLoad();
                         return true;                          };
     default: break;
   }

  return false;
};
// ----------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 Application->HookMainWindow(HM);
}

// ---------------------------------------------------------------------------
 

#ifndef u_MainH
#define u_MainH
// ---------------------------------------------------------------------------
 
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ScktComp.hpp>
#include <ExtCtrls.hpp>
#include <ComCtrls.hpp>
// ---------------------------------------------------------------------------
 
class Tf_Main : public TForm
{
__published:	// IDE-managed Components
        TClientSocket *cs_Guard;
        TServerSocket *ss_Guard;
        TButton *Button3;
        void __fastcall cs_GuardError(TObject *Sender,
          TCustomWinSocket *Socket, TErrorEvent ErrorEvent,
          int &ErrorCode);
        void __fastcall cs_GuardDisconnect(TObject *Sender,
          TCustomWinSocket *Socket);
        void __fastcall ss_GuardClientDisconnect(TObject *Sender,
          TCustomWinSocket *Socket);
        void __fastcall Button3Click(TObject *Sender);
private:	// User declarations
        bool MustRestart; // true - перезапускать второе приложение если его закрыли 
public:		// User declarations
        __fastcall Tf_Main(TComponent* Owner);
};
// ---------------------------------------------------------------------------
 
extern PACKAGE Tf_Main *f_Main;
// ---------------------------------------------------------------------------
 
#endif

// ---------------------------------------------------------------------------
 

#include <vcl.h>
#pragma hdrstop

#include  "u_Main.h" 
// ---------------------------------------------------------------------------
 
#pragma package(smart_init)
#pragma resource  "*.dfm" 
Tf_Main *f_Main;
// ---------------------------------------------------------------------------
 
bool reLoad(AnsiString runType){
// функция запускает еще одну копию программы с параметром runType
  STARTUPINFO si;
  PROCESS_INFORMATION pi;
  memset(&si,  0 , sizeof(STARTUPINFO));
  si.cb = sizeof(STARTUPINFO);
  AnsiString AppName=ParamStr( 0 )+ " " +runType;
  CreateProcess(NULL,AppName.c_str(), NULL, NULL, FALSE,NORMAL_PRIORITY_CLASS , NULL, NULL, &si, &pi);
  return true;
};
// ---------------------------------------------------------------------------
 
__fastcall Tf_Main::Tf_Main(TComponent* Owner)
        : TForm(Owner)
{
  if(!ParamCount()){
   // если программа запущена без параметров
   reLoad( "667 ");// запускаем еще одну копию программы
   Application->Terminate();// закрываем эту копию программы (это сделано потому что мне надо было чтоб программа запускалась из батника и не тормазила его)
  }else{
//      Caption= "-c" ;// в заголловке окна показываем тип открываемого сокета
      cs_Guard->Port=StrToInt(ParamStr( 1 ));// параметром передается № порта на котором открывать соединение
      cs_Guard->Active=true;// активируем клиентский сокет
  };
  MustRestart=true;// устанавливаем флаг что приложение должно открывать копию если её закрыли
}
// ---------------------------------------------------------------------------
 
void __fastcall Tf_Main::cs_GuardError(TObject *Sender,
      TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode)
{
 // клиентским сокетом не удалось установить соединение (серверный небыл открыт)
 ErrorCode= 0 ;// говорим что ненадо паниковать и возбуждать исключение
 ss_Guard->Active=true;// открываем серверный сокет (на  677  порту)
// Caption= "-s" ; //в заголловке окна показываем тип открываемого сокета
 if(MustRestart){
   reLoad(IntToStr(ss_Guard->Port));//запускаем копию программы
 };
}
// ---------------------------------------------------------------------------
 
void __fastcall Tf_Main::cs_GuardDisconnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
 // на клиентском сокете разорвалось соединение (программу с серверным сокетом закрыли)
 if(cs_Guard->Port== 667 ){//изменяем № рабочего порта
   ss_Guard->Port= 668 ;   //зделано из за того что серверный сокет открывается и закрывается
 }else{                  //достаточно долго и серверный сокет уже закрытой копии программы
   ss_Guard->Port= 667 ;   //виндоза считает еще сушествующим и недает на нем открыться
 };
 ss_Guard->Active=true;// активируем серверный сокет
// Caption= "-s" ;//;в заголловке окна показываем тип открываемого сокета
 if(MustRestart){
   reLoad(IntToStr(ss_Guard->Port));//запускаем вторую копию
 };
}
// ---------------------------------------------------------------------------
 
void __fastcall Tf_Main::ss_GuardClientDisconnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
 // разорвано соединение на серверном сокете (вторая копия программы с клиентским сокетом была закрыта)
 if(MustRestart){
   reLoad(IntToStr(ss_Guard->Port)); // запускаем вторуб копию программы
 };
}
// ---------------------------------------------------------------------------
 
void __fastcall Tf_Main::Button3Click(TObject *Sender)
{
   MustRestart=false; //в процессе отладки должна бвть возможность закрыть приложение
}                     //а потому добавлена кнопка, надавив на которую в обеих копиях программы
                      //делаем программу закрываемой
//---------------------------------------------------------------------------