Windows多案頭切換（CreateDesktop，SwitchDesktop函數）

標籤：

unit Unit1;    interface    uses    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,    Dialogs, Menus, StdCtrls, Buttons, ExtCtrls,    TrayIconForm, AppEvnts;    type    TShareInfo = record      Actived : array [ 1..4 ] of boolean;    end;    PShareInfo = ^TShareInfo;      TForm1 = class(TForm)      N1: TMenuItem;      N2: TMenuItem;      N3: TMenuItem;      N11: TMenuItem;      N21: TMenuItem;      N31: TMenuItem;      N41: TMenuItem;      BitBtn2: TBitBtn;      Panel1: TPanel;      Image1: TImage;      Label1: TLabel;      Label2: TLabel;      Edit1: TEdit;      Label3: TLabel;      Label4: TLabel;      N4: TMenuItem;      PopupMenu1: TPopupMenu;      ApplicationEvents1: TApplicationEvents;      procedure N3Click(Sender: TObject);      procedure N2Click(Sender: TObject);      procedure BitBtn2Click(Sender: TObject);      procedure N4Click(Sender: TObject);      procedure FormCreate(Sender: TObject);      procedure ApplicationEvents1Minimize(Sender: TObject);      procedure N11Click(Sender: TObject);      procedure TrayIcon1DblClick(Sender: TObject);    private      { Private declarations }      RunningOnDesktop: integer;      Failed : boolean;      procedure OnHotKey(var Msg: TMessage); message WM_HOTKEY;    public      { Public declarations }    end;    var    Form1: TForm1;    implementation    {$R *.dfm}  {$R UAC.res}    procedure SwitchToDesktop(number: integer);  var name: string;    DsktpHandle: HDESK;    SysPath: array[1..MAX_PATH] of char;    PPath: PChar;    StrPath: string;    len: integer;    si: STARTUPINFO;    pi: PROCESS_INFORMATION;  begin    if number = 1 then      name := ‘Default‘    else      name := ‘NewDesktop‘ + inttostr(number);      ZeroMemory(@si, sizeof(STARTUPINFO));    si.cb := sizeof(STARTUPINFO);    si.dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;    si.wShowWindow := SW_SHOW;    si.lpDesktop := PChar(Name);      DsktpHandle := OpenDesktop(pchar(Name),      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_WRITEOBJECTS);    if DsktpHandle = 0 then    begin      //  案頭不存在，建立案頭      DsktpHandle := CreateDesktop(PChar(Name), 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_WRITEOBJECTS,        nil);      if DsktpHandle = 0 then      begin        ShowMessage(‘開啟案頭失敗! ‘ + SysErrorMessage(GetLastError));        exit;      end;        PPath := @SysPath;      len := GetWindowsDirectory(@SysPath, MAX_PATH);      SetString(StrPath, PPath, len);      if (not CreateProcess(PChar(StrPath + ‘/explorer.exe‘), nil, nil, nil, True, 0, nil, nil, si, pi)) then      begin        ShowMessage(‘進程建立失敗! ‘ + SysErrorMessage(GetLastError));        CloseDeskTop(DsktpHandle);        exit;      end;      end;      SwitchDesktop(DsktpHandle);  end;    procedure TForm1.N3Click(Sender: TObject);  begin    Close;  end;    procedure TForm1.N11Click(Sender: TObject);  begin    if Sender is TMenuItem then      SwitchToDesktop((Sender as TMenuItem).Tag);  end;    procedure TForm1.N2Click(Sender: TObject);  begin    Show;  end;    procedure TForm1.ApplicationEvents1Minimize(Sender: TObject);  begin    Hide;  end;    procedure TForm1.BitBtn2Click(Sender: TObject);  begin    Hide;  end;    procedure TForm1.N4Click(Sender: TObject);  begin    TrayForm.Show;  end;    procedure TForm1.OnHotKey(var Msg: TMessage);  begin    if Msg.WParam >0 then    if Msg.WParam <=4 then      SwitchToDesktop(Msg.WParam);      //if Msg.WParam=5 then  //    TrayIcon1.Visible := not TrayIcon1.Visible;  end;    procedure TForm1.TrayIcon1DblClick(Sender: TObject);  begin    Show;  end;    procedure TForm1.FormCreate(Sender: TObject);  begin    RegisterHotKey(Handle, 1, MOD_CONTROL, VK_F1);    RegisterHotKey(Handle, 2, MOD_CONTROL, VK_F2);    RegisterHotKey(Handle, 3, MOD_CONTROL, VK_F3);    RegisterHotKey(Handle, 4, MOD_CONTROL, VK_F4);    RegisterHotKey(Handle, 5, MOD_CONTROL, VK_F5);  end;    end. 

參考：http://www.cnblogs.com/key-ok/p/3417735.html

Windows多案頭切換（CreateDesktop，SwitchDesktop函數）