Desktop umschalten und Messagebox anzeigen

[Luckie]

Dieser kleine SourceCode von Luckie erstellt einen weiteren Desktop, zeigt diesen an, zeigt dort eine MessageBox und beendet den Desktop wieder.

Delphi-Quellcode:

{
  Author  : Michael Puff - [url]http://developer.luckie-online.de[/url]
  Date    : 2005-01-08
  License : PUBLIC DOMAIN
}
program SwitchDesktop;

{$APPTYPE CONSOLE}

uses
  Windows;

procedure BaitAndSwitchDesktop;
var
  OldDesk      : HDESK;
  NewDesk      : HDESK;
begin
  OldDesk := GetThreadDesktop(GetCurrentThreadID);
  NewDesk := CreateDesktop(PChar('Foobar'), nil, nil, 0, DESKTOP_CREATEWINDOW or
    DESKTOP_SWITCHDESKTOP or DESKTOP_CREATEMENU, nil);
  if NewDesk <> 0 then
  begin
    SetThreadDesktop(NewDesk);
    Windows.SwitchDesktop(NewDesk);
    MessageBox(0, 'Here I am', 'Foobar Desktop', MB_ICONINFORMATION);
    Windows.SwitchDesktop(OldDesk);
    SetThreadDesktop(OldDesk);
    CloseDesktop(NewDesk);
  end;
  CloseDesktop(OldDesk);
end;

begin
  BaitAndSwitchDesktop;
end.

[edit=Chakotay1308]Kurze Beschreibung hinzugefügt. Mfg, Chakotay1308[/edit]