Windows XP下屏蔽Ctrl_Alt_Del键的方法

 

//调用下面两个函数就可以了
procedure RunFuckCAD;   //屏蔽Ctrl+Alt+Del
procedure StopFuckCAD;  //取消屏蔽Ctrl+Alt+Del
点击下载源文件
主要代码为：

view plain copy to clipboard print ?

1. unit Fuck_CAD_Unit;   
2.   
3. interface  
4.   
5. uses Windows, TLHelp32,SysUtils;   
6.   
7. const  
8.   MyKernel='SnowmanLockScreenHook.Dll';  //释放完得文件名，可以自己改   
9.   Winlogon='winlogon.exe';   
10.   MyKernelSize=9216;   
11.   MyKernelBuf:Array [0..9215] of Byte =   
12.   (   
13.      //... 数组内容太多，略，见源文件   
14.   );   
15.   
16. procedure RunFuckCAD;   
17. procedure StopFuckCAD;   
18.   
19.   
20. implementation  
21.   
22.   
23. procedure GetDebugPrivs;  //提升到Debug权限   
24. var  
25.   hToken: THandle;   
26.   tkp: TTokenPrivileges;   
27.   retval: dword;   
28. begin  
29.   If (OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken)) then  
30.   begin  
31.     LookupPrivilegeValue(nil, 'SeDebugPrivilege'  , tkp.Privileges[0].Luid);   
32.     tkp.PrivilegeCount := 1;   
33.     tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;   
34.     AdjustTokenPrivileges(hToken, False, tkp, 0, nil, retval);   
35.   end;   
36. end;   
37.   
38. function NameToPID(ExeName:pchar):longword;   
39. //通过进程文件名返回一个Pid，如果多个同名进程返回第一个进程的Pid   
40.   var  
41.     hSnap:longword;   
42.     ProcessEntry: TProcessEntry32;   
43.     c:boolean;   
44.   begin  
45.     result:=0;   
46.     hSnap:= CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);   
47.     ProcessEntry.dwSize:= Sizeof(TProcessEntry32);   
48.     c:= Process32First(hSnap,ProcessEntry);   
49.     While c  do  
50.       begin  
51.         if LstrcmpiA(ExeName,ProcessEntry.szExeFile)= 0 then  
52.            begin  
53.              result:=ProcessEntry.th32ProcessID;   
54.              break;   
55.            end;   
56.         c:=Process32Next(hSnap,ProcessEntry);   
57.       end;   
58.     CloseHandle(hSnap);   
59.   end;   
60.   
61. function GetSysPath:pchar;  //最后没加'/'   
62.   var  
63.    a:pchar;   
64.   begin  
65.    GetMem(a,255);   
66.    GetSystemDirectory(a,255);   
67.    Result:=a;   
68.   end;   
69.   
70.   
71. procedure DelKernel;   
72.   begin  
73.     DeleteFile(pchar(string(GetSysPath)+'/'+string(MyKernel))) ;   
74.   end;   
75.   
76. function CreateKernelFile(SaveFile:String):Boolean;   
77.   var  
78.     hFile:THandle;   
79.     BytesWrite: dword;   
80.   begin  
81.     Result:=False;   
82.     hFile := CreateFile(Pchar(SaveFile),GENERIC_READ or GENERIC_WRITE,FILE_SHARE_READ,nil,CREATE_ALWAYS,0,0);   
83.     if hFile = INVALID_HANDLE_VALUE then Exit;   
84.     if WriteFile(hFile,MyKernelBuf,MyKernelSize, BytesWrite, nil) then Result:=True;   
85.     CloseHandle(hFile);   
86.   end;   
87.   
88. Function  GetModule(ProcessName,ModuleName:Pchar):longword;   
89. //This is a function written by Hke.   
90. //检查进程是否加载DLL，是返回指针，否返回0   
91.   var  
92.     PID:longword;   
93.     hModuleSnap:longword;   
94.     ModuleEntry: TModuleEntry32;   
95.   begin  
96.     Pid:=NameToPID(ProcessName);   
97.     GetDebugPrivs;   
98.     hModuleSnap:=CreateToolhelp32Snapshot(TH32CS_SNAPMODULE,Pid);   
99.     ModuleEntry.dwSize:=SizeOf(TModuleEntry32);   
100.     result:=0;   
101.     if Module32First(hModuleSnap,ModuleEntry) then  
102.       if  (LstrcmpiA(ModuleEntry.szModule,ModuleName)=0) then  
103.         Result:=ModuleEntry.hModule   
104.       else  
105.         begin  
106.           while  Module32Next(hModuleSnap,ModuleEntry) do  
107.              begin  
108.                if LstrcmpiA(ModuleEntry.szModule,ModuleName)=0 then  
109.                  begin  
110.                    Result:=ModuleEntry.hModule;   
111.                    break;   
112.                  end;   
113.              end;   
114.         end;   
115.     CloseHandle(hModuleSnap);   
116.   end;   

unit Fuck_CAD_Unit; interface uses Windows, TLHelp32,SysUtils; const  MyKernel='SnowmanLockScreenHook.Dll';  //释放完得文件名，可以自己改  Winlogon='winlogon.exe';  MyKernelSize=9216;  MyKernelBuf:Array [0..9215] of Byte =  (     //... 数组内容太多，略，见源文件  ); procedure RunFuckCAD; procedure StopFuckCAD; implementation procedure GetDebugPrivs;  //提升到Debug权限 var  hToken: THandle;  tkp: TTokenPrivileges;  retval: dword; begin  If (OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken)) then  begin    LookupPrivilegeValue(nil, 'SeDebugPrivilege'  , tkp.Privileges[0].Luid);    tkp.PrivilegeCount := 1;    tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;    AdjustTokenPrivileges(hToken, False, tkp, 0, nil, retval);  end; end; function NameToPID(ExeName:pchar):longword; //通过进程文件名返回一个Pid，如果多个同名进程返回第一个进程的Pid  var    hSnap:longword;    ProcessEntry: TProcessEntry32;    c:boolean;  begin    result:=0;    hSnap:= CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);    ProcessEntry.dwSize:= Sizeof(TProcessEntry32);    c:= Process32First(hSnap,ProcessEntry);    While c  do      begin        if LstrcmpiA(ExeName,ProcessEntry.szExeFile)= 0 then           begin             result:=ProcessEntry.th32ProcessID;             break;           end;        c:=Process32Next(hSnap,ProcessEntry);      end;    CloseHandle(hSnap);  end; function GetSysPath:pchar;  //最后没加'/'  var   a:pchar;  begin   GetMem(a,255);   GetSystemDirectory(a,255);   Result:=a;  end; procedure DelKernel;  begin    DeleteFile(pchar(string(GetSysPath)+'/'+string(MyKernel))) ;  end; function CreateKernelFile(SaveFile:String):Boolean;  var    hFile:THandle;    BytesWrite: dword;  begin    Result:=False;    hFile := CreateFile(Pchar(SaveFile),GENERIC_READ or GENERIC_WRITE,FILE_SHARE_READ,nil,CREATE_ALWAYS,0,0);    if hFile = INVALID_HANDLE_VALUE then Exit;    if WriteFile(hFile,MyKernelBuf,MyKernelSize, BytesWrite, nil) then Result:=True;    CloseHandle(hFile);  end; Function  GetModule(ProcessName,ModuleName:Pchar):longword; //This is a function written by Hke. //检查进程是否加载DLL，是返回指针，否返回0  var    PID:longword;    hModuleSnap:longword;    ModuleEntry: TModuleEntry32;  begin    Pid:=NameToPID(ProcessName);    GetDebugPrivs;    hModuleSnap:=CreateToolhelp32Snapshot(TH32CS_SNAPMODULE,Pid);    ModuleEntry.dwSize:=SizeOf(TModuleEntry32);    result:=0;    if Module32First(hModuleSnap,ModuleEntry) then      if  (LstrcmpiA(ModuleEntry.szModule,ModuleName)=0) then        Result:=ModuleEntry.hModule      else        begin          while  Module32Next(hModuleSnap,ModuleEntry) do             begin               if LstrcmpiA(ModuleEntry.szModule,ModuleName)=0 then                 begin                   Result:=ModuleEntry.hModule;                   break;                 end;             end;        end;    CloseHandle(hModuleSnap);  end;

内文分页： [1] [2]