如何让win2000重新启动???非常感谢!!!
我想真真的隐藏自已的程序(在win2000中)。
是否可以给我一个例子???非常感谢!!!!
我可以给我的全部分!!!
我想真真的隐藏自已的程序(在win2000中)。
是否可以给我一个例子???非常感谢!!!!
我可以给我的全部分!!!
解决方案 »
- Raize控件中的TRzGroupBar控件的颜色无法修改
- Delphi 7数据库程序打包(不见源文件)
- 急,各位高手帮帮忙,关于钩子问题?
- 消息在delphi中和在vc++中的问题
- tcxtreelist 每个 node设置不同properties 有人解决吗?QQ281482913 在线等!
- 谁能提供我一些取 Delphi 子串的函数?在线等候
- delphi编写软件注册问题
- 使用TidFtp上传整个目录的问题
- 如何坐报表?请各位指点!!!
- 关于dblookupcombobox?
- 为什么客户端不能使用多线程呢?
- 从1234中取出第一个数的函数是什么?因为我要判断1234和g234第一个数是1还是g.thank!
var
TP,TPPre:TTokenPrivileges;
Token:THandle;
dwLength:DWORD;
begin
result := false;
OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,Token);
try
TP.PrivilegeCount := 1;
if LookupPrivilegeValue(nil,PChar(sPrivilegeName),TP.Privileges[0].LUID) then
begin
if bEnabled then
TP.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED
else
TP.Privileges[0].Attributes := 0;
dwLength := 0;
Result := AdjustTokenPrivileges(Token,false,TP,sizeof(TPPre),TPPre,dwLength);
end;
finally
CloseHandle(Token);
end;
end;调用:
SetPrivilege('SeShutdownPrivilege',true);
ExitWindowsEx(EWX_SHUTDOWN or EWX_FORCE or EWX_POWEROFF,0);在win2000中隐藏自已的程序,我一直在找办法,没有有效的,除非用病毒技术。