🚀 go-pugleaf

I don't understand why others haven't encountered this problem
before. Hans tested the code I posted with BCB3/Win98SE and
had the same problems as me.

I'm just posting my solution for future reference for others.

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        HANDLE hMutex = CreateMutex( NULL, TRUE, "MyUniqueMutexName" );
        if( GetLastError() == ERROR_ALREADY_EXISTS )
          {
              Application->Title = "";
              HWND hWnd = ::FindWindow( NULL, "My Form Caption" );
              if( hWnd )
                {
                    ::SendMessage( hWnd, APP_RESTOREFIRST, 0, 0 );
                    ::SetForegroundWindow( hWnd );
                }
              if( hMutex ) CloseHandle( hMutex );
              return 0;
          }
        try
          {
              Application->Initialize();
              Application->Title = "My Application Title";
              Application->CreateForm(__classid(TForm1), &Form1);
              Application->Run();
          }
        catch( Exception &exception )
          {
              Application->ShowException( &exception );
          }
        catch( ... )
          {
              try
                {
                    throw Exception( "" );
                }
              catch( Exception &exception )
                {
                    Application->ShowException( &exception );
                }
          }
        ReleaseMutex( hMutex );
        if( hMutex ) CloseHandle( hMutex );
        return 0;
}
//-------------------------------------------------------------
void __fastcall TForm1::WndProc(TMessage &Message)
{
    static bool IsMinimized = false;
    if( Message.Msg == WM_SYSCOMMAND )
      {
          switch( Message.WParam )
            {
                case  SC_RESTORE:
                case SC_MAXIMIZE: IsMinimized = false; break;
                case SC_MINIMIZE: IsMinimized = true;
            }
      }
    else if( Message.Msg == APP_RESTOREFIRST )
      {
          if( IsMinimized ) Application->Restore();
      }
    TForm::WndProc(Message);
}
//-------------------------------------------------------------

~ JD