🚀 go-pugleaf

I am attempting to spawn an application on another desktop (with the new  
desktop visible, thereby hiding the default desktop).

For reference, the launching of the application is performed in a worker  
thread, where this thread waits for the launched application to close  
before it terminates, closing the desktop etc.

I can see my launched program running in Task Manager but the new desktop  
is not made visible.

I'm currently using all access options until I can sort out where I am  
going wrong.

I'd appreciate someone pointing me where I am going wrong.  TIA.

Here is the code:

// temporary until I get this to work
#define DESKTOP_ALL ( DESKTOP_READOBJECTS | DESKTOP_CREATEWINDOW | \
                       DESKTOP_CREATEMENU | DESKTOP_HOOKCONTROL | \
                       DESKTOP_JOURNALRECORD | DESKTOP_JOURNALPLAYBACK | \
                       DESKTOP_ENUMERATE | DESKTOP_WRITEOBJECTS | \
                       DESKTOP_SWITCHDESKTOP )

// temporary until I get this to work
#define WINSTA_ALL  ( WINSTA_ACCESSCLIPBOARD	| WINSTA_ACCESSGLOBALATOMS | \
                       WINSTA_CREATEDESKTOP | WINSTA_ENUMDESKTOPS |  
WINSTA_ENUMERATE | \
                       WINSTA_EXITWINDOWS | WINSTA_READATTRIBUTES |  
WINSTA_READSCREEN | \
                       WINSTA_WRITEATTRIBUTES )



void __fastcall TSecondaryDesktopThread::Execute()
{

   HWINSTA AWindowStation = ::CreateWindowStation("NewStation", NULL,  
WINSTA_ALL, NULL);
   ::SetProcessWindowStation(AWindowStation);

   HDESK ADesktop = ::CreateDesktop("NewDesktop", NULL, NULL, 0,  
DESKTOP_ALL, NULL);

   ::SetThreadDesktop(ADesktop);
   ::SwitchDesktop(ADesktop);

   AnsiString AppExe = "SecondDesktopApp.exe";
   STARTUPINFO si;
   PROCESS_INFORMATION pi;
   DWORD dwStatus;

   ZeroMemory(&si, sizeof(si));
   si.cb = sizeof(si);
   ZeroMemory(&pi, sizeof(pi));

   si.lpTitle = "NewDesktop";
   si.lpDesktop = "NewStation\\NewDesktop";

   ::CreateProcess(NULL, AppExe.c_str(), NULL, NULL, false,  
NORMAL_PRIORITY_CLASS,
                   NULL, NULL, &si, &pi);

   do
     {
     ::GetExitCodeProcess(pi.hProcess, &dwStatus);
     ::Sleep(1);
     } while( dwStatus == STILL_ACTIVE );


   ::CloseHandle(pi.hProcess);
   ::CloseHandle(pi.hThread);

   ::CloseDesktop(ADesktop);
   ::CloseWindowStation(AWindowStation);
}


Daniel

-- 
Using Opera's revolutionary e-mail client: http://www.opera.com/m2/