Открыть в проводнике одну копию программы.

HANDLE hFileMap;
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
   HWND hWnd;
 
   char* CommandLine;
   try
      {
       hFileMap = CreateFileMapping((HANDLE)0xffffffff, NULL, PAGE_READWRITE, 0, 4, "SELECTPCSUITE");
       if (hFileMap != NULL && GetLastError() == ERROR_ALREADY_EXISTS)
          {
           hWnd = FindWindow(0, "WinSAPlayer");
           if(hWnd)
             {
              CommandLine = CmdLine;
              if(CommandLine != '\0')
                {
                 COPYDATASTRUCT CopyData = {0, strlen(CommandLine) + sizeof(char), CommandLine};
                 SendMessage(hWnd, WM_COPYDATA, NULL, reinterpret_cast<LPARAM>(&CopyData));
                }
             }
           CloseHandle(hFileMap);
           return 0;
          }
          else
          {      Application->Initialize();
                 Application->CreateForm(__classid(TForm1), &Form1);
                 Application->CreateForm(__classid(TForm2), &Form2);
                 Application->CreateForm(__classid(TForm3), &Form3);
                 Application->Run();   }
      }
   catch (Exception &exception)
      {
       Application->ShowException(&exception);
      }
   catch (...)
      {
       try
          {
           throw Exception("");
          }
       catch (Exception &exception)
          {
           Application->ShowException(&exception);
          }
      }
   return 0;
}

hWnd = FindWindow(0, "WinSAPlayer");