Programm auf eigenem "Desktop" ausführen

[himitsu]

Mal ein paar Anreize, zur Fehlereingränzung:

Delphi-Quellcode:

procedure CreateNewDesktop;
begin
  ...
  if NewDesktop <> 0 then
  begin
    SetThreadDesktop(NewDesktop);
    SwitchDesktop(NewDesktop);
  end else FEHLERAUSWERUNG;
end;

function lpThreadFunc(ptrData: Pointer): integer;
begin
  ...
  if not CreateProcess(nil, PChar('calc.exe'), nil, nil, False, CREATE_NEW_CONSOLE,
    nil, nil, si, pi) then FEHLERAUSWERUNG;
  end;
end;

begin
  ...
  hThread := beginThread(nil, 0, lpThreadFunc, @deskname, 0, dwThreadID);
  if hThread = 0 then FEHLERAUSWERUNG;
  ...