Как запустить екзешник из другой программы?

__fastcall TProgress::TProgress(TComponent* Owner) : TForm(Owner)
{
 
    
       if (!FindWindow("ConsoleWindowClass","Consol"))
       {
                       ShowMessage("Открой меня консольным окном");
         Application->Terminate();
       }
             else
              {
                  ShowMessage("Запускаюсь");
              }

int _tmain(int argc, _TCHAR* argv[])
{
 SetConsoleTitle(L"Consol");
 UnicodeString rtyu = ExtractFilePath(Application->ExeName) + L"бла-бла.exe";
        if(FileExists(rtyu))
       {
         PROCESS_INFORMATION pi = {0};
         STARTUPINFOW si = {0};
         si.cb = sizeof(STARTUPINFO);
         if (CreateProcessWithLogonW(L"User1", NULL, L"1", 0,rtyu.w_str(),NULL, 0, NULL, NULL, &si, &pi)==false)
        {
           ShowMessage(SysErrorMessage(GetLastError()));
        }
        else
        { 
                         ShowMessage("Запуск");
                       }  
 
                }
     Sleep(1000);
     return 0;
}

WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPTSTR lpCmdLine, int nCmdShow) {
 
   if (strcmp(lpCmdLine, "-start"))
   return 0; //exit
   else
   {
        TForm *FMess;
        FMess = CreateMessageDialog("Запуск этого приложения осуществляется при помощи другой программы!!!",mtWarning,TMsgDlgButtons() << mbOK);
        FMess->Caption = "Внимание";
        FMess->ShowModal();
        delete FMess;
        FMess = NULL;
        return 0;
 
 
   //rest of the program
   }
 
    try
    {
        Application->Initialize();
        TStyleManager::TrySetStyle("Amakrits");
        Application->Title = "Update";
                      UnicodeString login,pass;
        Application->CreateForm(__classid(TOptions), &Options);
        Application->CreateForm(__classid(TProgress), &Progress);
        Application->Run();
 
        //ReleaseMutex(hMutex);
 
    }
    catch (Exception &exception) {
        Application->ShowException(&exception);
    }
    catch (...) {
        try {
            throw Exception("");
        }
        catch (Exception &exception) {
            Application->ShowException(&exception);
        }
    }
    return 0;
}

 if((UINT)ShellExecute(
    NULL,
    L"open",
    L"ВАША VCL программа.exe",
    L"Логин:Паша, Пароль:Маша",
    NULL,
    SW_SHOWNORMAL) <= 32) {
    // обработка ошибок
}

WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPTSTR lpCmdLine, int nCmdShow) {
 
 
   if (strcmp(lpCmdLine, "Паша,Маша")!=0)
   {
    TForm *FMess;
    FMess = CreateMessageDialog(L"Запуск этого приложения осуществляется при помощи другой программы!!!",mtWarning,TMsgDlgButtons() << mbOK);
    FMess->Caption = L"Внимание";
    FMess->ShowModal();
    delete FMess;
    FMess = NULL;
    return  0;
   }
 
 
    try
    {
        Application->Initialize();
        TStyleManager::TrySetStyle("Amakrits");
        Application->Title = "Update";
        UnicodeString login,pass;
        Application->CreateForm(__classid(TOptions), &Options);
        Application->CreateForm(__classid(TProgress), &Progress);
        Application->Run();
 
    }
    catch (Exception &exception) {
        Application->ShowException(&exception);
    }
    catch (...) {
        try {
            throw Exception("");
        }
        catch (Exception &exception) {
            Application->ShowException(&exception);
        }
    }
    return 0;
}
// --------------------------------------------------------------------------

int _tmain(int argc, _TCHAR* argv[])
{
   if((UINT)ShellExecute(NULL,L"open",L"Update.exe",L"Паша,Маша",NULL,SW_SHOWNORMAL) <= 32)
     {
 
       ShowMessage(SysErrorMessage(GetLastError()));
 
     }
 
 
 
 
  return 0;
}