Вторая копия программы

HANDLE hFileMap;

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
    HWND hwnd;
    char*  FName;
   
    try {
    //Создаем объект файл проецируемый в память
         hFileMap = CreateFileMapping((HANDLE)0xffffffff, NULL, PAGE_READWRITE, 0, 4, "NAME");//NAME -> CTRL+SHIFT+G
         //если файл с таким именем уже существует, то значит копия программы уже работает
         if (hFileMap != NULL && GetLastError() == ERROR_ALREADY_EXISTS){
            //тогда ищем окно программы
            hwnd = FindWindow("TMainForm", NULL);//TMainForm -> CTRL+SHIFT+G, CreateParams - перекрыть
            //если окно найдено и передан параметр в командной строке, то отправляем его работающей программе
            if(hwnd) {
                //находим пробел после имени исполняемого файла
                while(CmdLine != NULL) {
                    if(*CmdLine++ == ' ') {
                        FName = CmdLine;
                        break;
                    }
                }
                //если после пробела, что-то есть
                if(FName != '\0') {
                    COPYDATASTRUCT CopyData = { 0, strlen(FName) + sizeof(char), FName};
                    SendMessage( hwnd, WM_COPYDATA, NULL, reinterpret_cast<LPARAM>(&CopyData));
                }
            }
            CloseHandle(hFileMap);//закрываем описатель
            return 0;
    }


    Application->Initialize();
    Application->CreateForm(__classid(TMainForm), &MainForm);
         Application->CreateForm(__classid(TMapExplorerForm), &MapExplorerForm);
         Application->Run();
    CloseHandle(hFileMap);
    }
    catch (Exception &exception)
    {
         Application->ShowException(&exception);
    }
    return 0;
}

//---------------------------------------------------------------------------
void __fastcall TMainForm::WMCopyData(TMessage& Message)
{
    /*&#215;&#242;&#238;&#225;&#251; &#239;&#240;&#238;&#226;&#229;&#240;&#232;&#242;&#252; &#240;&#224;&#225;&#238;&#242;&#243; &#253;&#242;&#238;&#227;&#238; &#241;&#238;&#238;&#225;&#249;&#229;&#237;&#232;&#255; &#237;&#243;&#230;&#237;&#238; &#231;&#224;&#234;&#240;&#251;&#242;&#252; MainForm &#226; &#228;&#232;&#231;&#224;&#233;&#237;&#229;&#240;&#229;*/
    DWORD CountData;
    PCOPYDATASTRUCT PassedCopyDataStruct;

    if (FPassedCommandLine != NULL) {
        delete[] FPassedCommandLine;
        FPassedCommandLine = NULL;
    }

    PassedCopyDataStruct = reinterpret_cast<COPYDATASTRUCT*>(Message.LParam);

    CountData = PassedCopyDataStruct->cbData;
    if (CountData > 0) {
        FPassedCommandLine = new char[CountData];
        if (PassedCopyDataStruct->lpData != NULL)
            memmove(FPassedCommandLine, PassedCopyDataStruct->lpData, CountData);
    }

    Win32Check( ReplyMessage(true) );

    if(FPassedCommandLine)
        CreateMDIChild(FPassedCommandLine, Block1);

    Application->Restore();
    SetForegroundWindow(Handle);
}