防止进程重复运行

CreateMutex( NULL, TRUE, "client" );
         if ( GetLastError() == ERROR_ALREADY_EXISTS )
         {
             Application->MessageBoxA( "程序已运行", "错误", MB_OK );
             Application->Terminate();
             Application->Run();
             return -1;
         }