如何在WINDOWS下新建多个桌面并切换(函数)
2007-12-23 16:21
309 查看
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;
Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=1537629
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;
Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=1537629
相关文章推荐
- 如何在WINDOWS下新建多个桌面并切换(函数)
- 如何在WINDOWS下新建多个桌面并切换(函数)
- 如何在WINDOWS下新建多个桌面并切换(函数)
- 如何在WINDOWS下新建多个桌面并切换(函数)
- 如何在WINDOWS下新建多个桌面并切换(函数)
- 如何在WINDOWS下新建多个桌面并切换(函数)
- 如何在WINDOWS下新建多个桌面并切换(函数)
- 如何在WINDOWS下新建多个桌面并切换(函数)
- 如何在WINDOWS下新建多个桌面并切换(函数)
- 如何在WINDOWS下新建多个桌面并切换(函数)
- 如何在WINDOWS下新建多个桌面并切换(函数)
- 如何在WINDOWS下新建多个桌面并切换(函数)
- 如何在WINDOWS下新建多个桌面并切换(函数)
- 如何在WINDOWS下新建多个桌面并切换(函数)
- 图说:Windows 8 如何切换Metro应用和桌面
- 如何打开windows的远程桌面
- 在64位版本的Windows上,如何在32位版本的ASP.NET 1.1 和64位版本的ASP.NET 2.0之间切换
- 【Windows操作系统下桌面图标如何设置】
- 图说:Windows 8 如何进入到桌面
- 如何解决Windows 7桌面快捷图标失踪了的问题