这个东东以前俺也弄过！！！如果不耍花招，只有一个办法在NT下实现这个功能，那就是替换Windows自己的Dll文件，网上有这方面的例子~但是个人觉得不是很好~~~
使用HOOK除了Ctrl+Alt+Del以外其他热键都可以给屏蔽了~惟独Ctrl+Alt+Del是无法通过HOOK来屏蔽的，我这里用别的方法实现了~，你看合适你用不~：）
下面这个函数功能就是启动多个桌面(explorer.exe)并把新启动的桌面做为当前桌面，并且可以允许多个桌面之间的切换。
使用方法是：
newDesktop(2);//就启动了一个新的桌面
newDesktop(1);//就返回系统原先的桌面
经过，我实验，当切换到一个新桌面的时候，使用Ctrl+Alt+Del，哈哈~资源管理器不见了，但是你只要切回第一个桌面的时候就发现是怎么回事了：）原因是他只会弹到第一个系统启动的桌面下面：）呵呵~~功能和屏蔽了是一样的效果。
procedure NewDesktop(N: 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 N = 1 then
name := 'Default'
else
name := 'NewDesktop' + inttostr(N);
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;
看你合用否~要是能用~呵呵~别忘了给我加分哦~
