Eigener Desktop???

**Alexander**

Schau dir mal im MSDN die Parameter zu den genannten Methoden an:

http://msdn.microsoft.com

**Doc Morelli**

Hab ich mir ja schon angesehen...

Code:

			EnumDesktops(Openwindowstation('', True, DESKTOP_CREATEMENU or DESKTOP_CREATEWINDOW or DESKTOP_ENUMERATE or DESKTOP_HOOKCONTROL or DESKTOP_JOURNALPLAYBACK or DESKTOP_JOURNALRECORD or DESKTOP_READOBJECTS or DESKTOP_SWITCHDESKTOP or DESKTOP_SWITCHDESKTOP), ?, test);
		

Mit der eigenen enumProcedure blick ich noch nicht ganz durch. Währe nett, wenn mir da jemand helfen könnte...

Und: Wenn ich jetzt auf dem neuen Desktop bin, dann hab ich ja weder Icons, noch Startleist oder sonst irgendwas. Dann kann ich auch kein neues Fenster öffnen. Wie kann ich dann also einem Fenster den neuen Desktop zuweisen?

**Doc Morelli**

Ok, was hab ich hier jetzt falsch gemacht?

markieren

Code:

			procedure TForm1.Button1Click(Sender: TObject);

begin

CreateDesktop('Oliver', nil, nil, DF_ALLOWOTHERACCOUNTHOOK, DESKTOP_CREATEMENU or DESKTOP_CREATEWINDOW or DESKTOP_ENUMERATE or DESKTOP_HOOKCONTROL or DESKTOP_JOURNALPLAYBACK or DESKTOP_JOURNALRECORD or DESKTOP_READOBJECTS or DESKTOP_SWITCHDESKTOP or DESKTOP_SWITCHDESKTOP, nil);

SetThreadDesktop(Opendesktop('Oliver', DF_ALLOWOTHERACCOUNTHOOK, true, DESKTOP_CREATEMENU or DESKTOP_CREATEWINDOW or DESKTOP_ENUMERATE or DESKTOP_HOOKCONTROL or DESKTOP_JOURNALPLAYBACK or DESKTOP_JOURNALRECORD or DESKTOP_READOBJECTS or DESKTOP_SWITCHDESKTOP or DESKTOP_SWITCHDESKTOP));

shellexecute(application.Handle, 'open', 'C:\Programme\Borland\Delphi7\Projects\Desktops\DesktopClosedpr.dpr', nil, nil, sw_shownormal);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

switchdesktop(Opendesktop('Oliver', DF_ALLOWOTHERACCOUNTHOOK, true, DESKTOP_CREATEMENU or DESKTOP_CREATEWINDOW or DESKTOP_ENUMERATE or DESKTOP_HOOKCONTROL or DESKTOP_JOURNALPLAYBACK or DESKTOP_JOURNALRECORD or DESKTOP_READOBJECTS or DESKTOP_SWITCHDESKTOP or DESKTOP_SWITCHDESKTOP));

end;

Es soll eine Datei im neuen Desktop geöffnet werden, mit der ich den Desktop 'Oliver' wieder schließen kann. Desktop wird auch geswitcht, aber das Fenster wird nicht angezeigt. Was ist daran nun wieder falsch???

//Edit: hab gerade gesehen, ich muss auch schon die exe-Datei öffnen...

Aber das Fenster wird nicht im neuen Desktop geöffnet...

**dizzy**

AAAHHHHH! Quelltextformatierung!!! So kann das ja keiner lesen!

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

begin

  CreateDesktop('Oliver',

                nil,

                nil,

                DF_ALLOWOTHERACCOUNTHOOK,

                DESKTOP_CREATEMENU or

                  DESKTOP_CREATEWINDOW or

                  DESKTOP_ENUMERATE or

                  DESKTOP_HOOKCONTROL or

                  DESKTOP_JOURNALPLAYBACK or 

                  DESKTOP_JOURNALRECORD or

                  DESKTOP_READOBJECTS or

                  DESKTOP_SWITCHDESKTOP or

                  DESKTOP_SWITCHDESKTOP,

                nil);

  SetThreadDesktop(Opendesktop('Oliver',

                               DF_ALLOWOTHERACCOUNTHOOK, 

                               true,

                               DESKTOP_CREATEMENU or

                                 DESKTOP_CREATEWINDOW or

                                 DESKTOP_ENUMERATE or 

                                 DESKTOP_HOOKCONTROL or 

                                 DESKTOP_JOURNALPLAYBACK or 

                                 DESKTOP_JOURNALRECORD or 

                                 DESKTOP_READOBJECTS or 

                                 DESKTOP_SWITCHDESKTOP or 

                                 DESKTOP_SWITCHDESKTOP));

  shellexecute(application.Handle,

               'open',

               'C:\Programme\Borland\Delphi7\Projects\Desktops\DesktopClosedpr.dpr',

               nil,

               nil,

               sw_shownormal);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

  switchdesktop(Opendesktop('Oliver',

                            DF_ALLOWOTHERACCOUNTHOOK,

                            true,

                            DESKTOP_CREATEMENU or

                              DESKTOP_CREATEWINDOW or

                              DESKTOP_ENUMERATE or

                              DESKTOP_HOOKCONTROL or

                              DESKTOP_JOURNALPLAYBACK or

                              DESKTOP_JOURNALRECORD or

                              DESKTOP_READOBJECTS or 

                              DESKTOP_SWITCHDESKTOP or

                              DESKTOP_SWITCHDESKTOP));

end;

Evtl. kann da jetzt jemand was mit anfangen. Zum Problem selber weiss ich nix, aber das war ja grauenvoll

**Doc Morelli**

Ok, ok. Tut mir leid, kommt nicht wieder vor...

Hoffe, mir kann trotzdem jemand helfen...

**Doc Morelli**

Habs das mit den Desktops jetzt hinbekommen:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var

  hWinSta: THandle;

begin

  Listbox1.Clear;

  hWinSta := GetProcessWindowStation;

  EnumDesktops(hWinSta, @EnumDesktopsCallback, Integer(Listbox1));

  CloseWindowStation(hWinSta);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

switchdesktop(opendesktop(PChar(listbox1.Items.Strings[listbox1.ItemIndex]), 

              DF_ALLOWOTHERACCOUNTHOOK, 

              true, 

              DESKTOP_CREATEMENU or 

              DESKTOP_CREATEWINDOW or 

              DESKTOP_ENUMERATE or 

              DESKTOP_HOOKCONTROL or 

              DESKTOP_JOURNALPLAYBACK or 

              DESKTOP_JOURNALRECORD or 

              DESKTOP_READOBJECTS or 

              DESKTOP_SWITCHDESKTOP or 

              DESKTOP_SWITCHDESKTOP));

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

createdesktop('Oliver', nil, nil, DF_ALLOWOTHERACCOUNTHOOK, 

               DESKTOP_CREATEMENU or 

              DESKTOP_CREATEWINDOW or 

              DESKTOP_ENUMERATE or 

              DESKTOP_HOOKCONTROL or 

              DESKTOP_JOURNALPLAYBACK or 

              DESKTOP_JOURNALRECORD or 

              DESKTOP_READOBJECTS or 

              DESKTOP_SWITCHDESKTOP or 

              DESKTOP_SWITCHDESKTOP, nil);

end;

Jetzt stellt sich nur noch die Frage, warum kein neues Fenster erzeugt wird...

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

begin

  CreateDesktop('Oliver',

                nil,

                nil,

                DF_ALLOWOTHERACCOUNTHOOK,

                DESKTOP_CREATEMENU or

                  DESKTOP_CREATEWINDOW or

                  DESKTOP_ENUMERATE or

                  DESKTOP_HOOKCONTROL or

                  DESKTOP_JOURNALPLAYBACK or

                  DESKTOP_JOURNALRECORD or

                  DESKTOP_READOBJECTS or

                  DESKTOP_SWITCHDESKTOP or

                  DESKTOP_SWITCHDESKTOP,

                nil);

  SetThreadDesktop(Opendesktop('Oliver',

                               DF_ALLOWOTHERACCOUNTHOOK,

                               true,

                               DESKTOP_CREATEMENU or

                                 DESKTOP_CREATEWINDOW or

                                 DESKTOP_ENUMERATE or

                                 DESKTOP_HOOKCONTROL or

                                 DESKTOP_JOURNALPLAYBACK or

                                 DESKTOP_JOURNALRECORD or

                                 DESKTOP_READOBJECTS or

                                 DESKTOP_SWITCHDESKTOP or

                                 DESKTOP_SWITCHDESKTOP));

  shellexecute(application.Handle,

               'open',

               'C:\Programme\Borland\Delphi7\Projects\Desktops\DesktopClosedpr.dpr',

               nil,

               nil,

               sw_shownormal);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

  switchdesktop(Opendesktop('Oliver',

                            DF_ALLOWOTHERACCOUNTHOOK,

                            true,

                            DESKTOP_CREATEMENU or

                              DESKTOP_CREATEWINDOW or

                              DESKTOP_ENUMERATE or

                              DESKTOP_HOOKCONTROL or

                              DESKTOP_JOURNALPLAYBACK or

                              DESKTOP_JOURNALRECORD or

                              DESKTOP_READOBJECTS or

                              DESKTOP_SWITCHDESKTOP or

                              DESKTOP_SWITCHDESKTOP));

end;

MFG Doc

Du kannst SetThreadDesktop() nur verwenden wenn der aufrufende Thread keine Fenster besitzt.

**Doc Morelli**

Zitat von SleepyMaster:

Mit SetThreadDesktop kannst du einen Thread an einen bestimmten Desktop binden. Wenn du dann ein Fenster erzeugst, geht das automatisch auf den Desktop.

Außerdem hat der neue Desktop, den ich dann erstelle, noch gar kein Fenster... Gibt es denn eine Möglichkeit, ein aktuelles Fenster an einen bestimmten Desktop zu binden? Oder wie kann ich das dann machen, dass

markieren

Delphi-Quellcode:

			  shellexecute(application.Handle,

               'open',

               'C:\Programme\Borland\Delphi7\Projects\Desktops\DesktopClosedpr.exe,

               nil,

               nil,

               sw_shownormal);

im neuen Desktop angezeigt wird???

MFG Doc

**SleepyMaster**

So! Hab jetzt mal en Beispiel geschrieben wie man das alles verwenden kann

zusammenfalten · markieren

Delphi-Quellcode:

			program Desk;

uses

  Windows,

  Messages;

function MainWndProc(hWindow: HWND; Msg: UINT; wParam: wParam;

  lParam: lParam): LRESULT; stdcall; export;

var

  ps: TPaintStruct;

begin

  Result := 0; 

  case Msg of

    WM_PAINT: 

      begin

        BeginPaint(hWindow, ps);

        SetBkMode(ps.hdc, TRANSPARENT);

        TextOut(ps.hdc, 10, 10, 'Hello World!', 12);

        EndPaint(hWindow, ps);

      end;

    WM_DESTROY: PostQuitMessage(0);

    else 

      begin

        Result := DefWindowProc(hWindow, Msg, wParam, lParam); 

        Exit;

      end;

  end;

end;

var

  wc: TWndClass;

  hWindow: HWND;

  Msg: TMsg;

  OldDesktop, Desktop: HDESK;

begin

OldDesktop:=GetThreadDesktop(GetCurrentProcessId);

Desktop:= CreateDesktop('Oliver', nil, nil, DF_ALLOWOTHERACCOUNTHOOK, GENERIC_ALL, nil);

SetThreadDesktop(Desktop);

switchdesktop(Desktop);

  wc.lpszClassName := 'YourAppClass';

  wc.lpfnWndProc   := @MainWndProc;

  wc.Style         := CS_VREDRAW or CS_HREDRAW;

  wc.hInstance     := hInstance;

  wc.hIcon         := LoadIcon(0, IDI_APPLICATION);

  wc.hCursor       := LoadCursor(0, IDC_ARROW);

  wc.hbrBackground := (COLOR_WINDOW + 1);

  wc.lpszMenuName  := nil;

  wc.cbClsExtra    := 0;

  wc.cbWndExtra    := 0;

  RegisterClass(wc);

  hWindow := CreateWindowEx(WS_EX_CONTROLPARENT or WS_EX_WINDOWEDGE,

    'YourAppClass',

    'Desktop',

    WS_VISIBLE or WS_CLIPSIBLINGS or 

    WS_CLIPCHILDREN or WS_OVERLAPPEDWINDOW,

    CW_USEDEFAULT, 0, 

    400, 300,

    0, 

    0, 

    hInstance,

    nil); 

  ShowWindow(hWindow, CmdShow); 

  UpDateWindow(hWindow);

  while GetMessage(Msg, 0, 0, 0) do 

  begin

    TranslateMessage(Msg); 

    DispatchMessage(Msg); 

  end;

  Halt(Msg.wParam);

SetThreadDesktop(OldDesktop);

switchdesktop(OldDesktop);

CloseDesktop(Desktop);

end.

Eigener Desktop???

Re: Eigener Desktop???

Re: Eigener Desktop???

Re: Eigener Desktop???

Re: Eigener Desktop???

Re: Eigener Desktop???

Re: Eigener Desktop???

Re: Eigener Desktop???

Re: Eigener Desktop???

Re: Eigener Desktop???

Forumregeln

Alexander Registriert seit: 28. Aug 2002 Ort: Oldenburg 3.513 Beiträge Turbo Delphi für .NET	#11 Re: Eigener Desktop??? 22. Aug 2004, 18:57 Schau dir mal im MSDN die Parameter zu den genannten Methoden an: http://msdn.microsoft.com Alexander
	Zitat

Doc Morelli Registriert seit: 14. Aug 2004 32 Beiträge	#15 Re: Eigener Desktop??? 22. Aug 2004, 21:41 Ok, ok. Tut mir leid, kommt nicht wieder vor... Hoffe, mir kann trotzdem jemand helfen...
	Zitat

w3seek (Gast) n/a Beiträge	#17 Re: Eigener Desktop??? 23. Aug 2004, 12:39 Du kannst SetThreadDesktop() nur verwenden wenn der aufrufende Thread keine Fenster besitzt.
	Zitat