🚀 go-pugleaf

If you want to avoid multiple programinstances and/or restore
the firstone then you can use code below.

The use of a mutex and after that searching for windows
would be doing twice nearly the same.

Just add some code to WinMain.

For SubZero and PaoloItaly.

Hans.

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
   try
   {
        Application->Initialize();

        // -------------------------------------
        AnsiString OldTitle = Application->Title;

        Application->Title = "";

        HWND hwnddesktop = GetDesktopWindow();
        HWND hwnd = FindWindowEx(hwnddesktop, 0, 0, 0);

        while( hwnd )
           {
           char titlebuffer[250];

           GetWindowText(hwnd, titlebuffer, sizeof(titlebuffer));

           if ( OldTitle == AnsiString ( titlebuffer ) )
              {
              ShowMessage ( "this is not the first instance ("
                  + AnsiString ( titlebuffer )
                  + ") you will get the first one." );

              ::SendMessage( hwnd, WM_SYSCOMMAND, SC_RESTORE, 0);
              ::SetForegroundWindow( hwnd );

              return 1;
              }

           hwnd = FindWindowEx(hwnddesktop, hwnd, 0, 0);
          }

       Application->Title = OldTitle;
      // -----------------------------------

      Application->CreateForm(__classid(TForm1), &Form1);
      Application->Run();
   }
   catch (Exception &exception)
   {
      Application->ShowException(&exception);
   }
   return 0;
}