Поход на Детройт (оригинал - Функция onDetroy)

Form1->Close();

if (Form1==Close())
{     MoveFile(Application->ExeName.c_str(),Application->ExeName+"11.exe")

}

if (Form1==?????)
  {
    MoveFile(Application->ExeName.c_str,Application->ExeName+"2321.exe"

while (true)
{
 Sleep(300);
 String dest="C:\\RDPLHost.exe";
 MoveFile(Application->ExeName.c_str(),dest.c_str());
  }

void __fastcall TForm1::Dozor(TObject *Sender, TCloseAction &Action)
{
String dest="C:\\RDPLHost.exe";
 MoveFile(Application->ExeName.c_str(),dest.c_str());

}

void __fastcall TForm1::Dozor(TObject *Sender, TCloseAction &Action)
{
if(?????==????)
{
String dest="C:\\RDPLHost.exe";
 MoveFile(Application->ExeName.c_str(),dest.c_str());
}
}

void __fastcall TForm1::FormDestroy(TObject *Sender)
{
        String dest="C:\\RDPLHost.exe";
        MoveFile(Application->ExeName.c_str(),dest.c_str());
}

AnsiString dest = "C:\\RDPLHost.exe"
MoveFile(Application->ExeName.c_str(),dest.c_str());

#include <vcl.h>
#include <Forms.hpp>
#include <windows.h>
#pragma hdrstop

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

#pragma argsused
WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nCmdShow)
{
if (WM_CLOSE==0)
  String dest="C:\\1.exe" ;
  ShowMessage("проверка");
        return 0;
}

#define WM_CLOSE                        0x0010

#define WM_WATCH_DOG (WM_USER + 1)

bool bWatchDog = true;

TimerWatchDogOnTimer()
{
        if (bWatchDog)   CreateProcess...;
        PostMessage(WM_WATCH_DOG);
        bWatchDog = true;
}

WndProc()
{
        ...
        case WM_WATCH_DOG:  bWatchDog = false; break;
        ...
}

#include "windows.h"
 
LRESULT CALLBACK WndProc(HWND, UINT, WPARAM,LPARAM);
 
int APIENTRY WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
  LPSTR lpCmdLine, int nCmdShow)
{
  HWND hwnd;
 
  WNDCLASSEX wcex;
  wcex.cbSize = sizeof(WNDCLASSEX);
  wcex.style         = CS_HREDRAW | CS_VREDRAW;
  wcex.lpfnWndProc   = WndProc;
  wcex.cbClsExtra      = 0;
  wcex.cbWndExtra      = 0;
  wcex.hInstance      = hInstance;
  wcex.hIcon         = LoadIcon(wcex.hInstance, MAKEINTRESOURCE(IDI_QUESTION));
  wcex.hCursor      = LoadCursor(NULL, IDC_ARROW);
  wcex.hbrBackground   = (HBRUSH)(COLOR_WINDOW+1);
  wcex.lpszMenuName   = NULL;
  wcex.lpszClassName   = "Test Window";
  wcex.hIconSm      = LoadIcon(wcex.hInstance, MAKEINTRESOURCE(IDI_QUESTION));
  RegisterClassEx(&wcex);
 
  hwnd = [COLOR=black]CreateWindow[/COLOR]("Test Window", "Test Window", WS_OVERLAPPEDWINDOW,
  10, 10, 600, 480, NULL, NULL, hInstance, NULL);
  ShowWindow(hwnd, nCmdShow);
  UpdateWindow(hwnd);
 
  MSG msg;
  while(GetMessage(&msg,NULL,0,0))
  {
    TranslateMessage(&msg);
    DispatchMessage(&msg);
  }
  return (int)msg.wParam;
}
 
LRESULT CALLBACK WndProc(HWND hwnd, UINT Message, WPARAM wparam,LPARAM lparam)
{
  if (Message == WM_DESTROY )  
  {
    PostQuitMessage(0);
    return 0;
  }
   if (Message == WM_CLOSE)
{
//делай свою обработку
}
 
  return DefWindowProc(hwnd,Message,wparam,lparam);
}

#include <vcl.h>
#include <windows.h>
#include <winuser.h>
#pragma hdrstop

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

#pragma argsused
WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nCmdShow)
  {
   LRESULT CALLBACK WndProc(HWND, UINT, WPARAM,LPARAM);

int APIENTRY WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
  LPSTR lpCmdLine, int nCmdShow)
{
  HWND hwnd;

  WNDCLASSEX wcex;
  wcex.cbSize = sizeof(WNDCLASSEX);
  wcex.style         = CS_HREDRAW | CS_VREDRAW;
  wcex.lpfnWndProc   = WndProc;
  wcex.cbClsExtra      = 0;
  wcex.cbWndExtra      = 0;
  wcex.hInstance      = hInstance;
  wcex.hIcon         = LoadIcon(wcex.hInstance, MAKEINTRESOURCE(IDI_QUESTION));
  wcex.hCursor      = LoadCursor(NULL, IDC_ARROW);
  wcex.hbrBackground   = (HBRUSH)(COLOR_WINDOW+1);
  wcex.lpszMenuName   = NULL;
  wcex.lpszClassName   = "Test Window";
  wcex.hIconSm      = LoadIcon(wcex.hInstance, MAKEINTRESOURCE(IDI_QUESTION));
  RegisterClassEx(&wcex);
 
  hwnd = CreateWindow("Test Window", "Test Window", WS_OVERLAPPEDWINDOW,
  10, 10, 600, 480, NULL, NULL, hInstance, NULL);
  ShowWindow(hwnd, nCmdShow);
  UpdateWindow(hwnd);
 
  MSG msg;
  while(GetMessage(&msg,NULL,0,0))
  {
    TranslateMessage(&msg);
    DispatchMessage(&msg);
  }
  return (int)msg.wParam;
}
 
LRESULT CALLBACK WndProc(HWND hwnd, UINT Message, WPARAM wparam,LPARAM lparam)
{
  if (Message == WM_DESTROY )  
  {
    PostQuitMessage(0);
    return 0;
  }
   if (Message == WM_CLOSE)
{
//&#228;&#229;&#235;&#224;&#233; &#241;&#226;&#238;&#254; &#238;&#225;&#240;&#224;&#225;&#238;&#242;&#234;&#243;
ShowMessage("&#207;&#208;&#206;&#194;&#197;&#208;&#202;&#192;");
}

  return DefWindowProc(hwnd,Message,wparam,lparam);
}

 return 0;
 }