谁有,给我一个
[email protected]
[email protected]
解决方案 »
- 菜鸟发问,经常看到有的软件上的Lable可以选中。请问这是什么控件的啊。
- 如何调用 现有的 .exe程序
- 谁有delphi中使用ado的电子书?
- 关于动态控件内存释放问题,大家都来参与!!!
- 软件外包应注意哪些问题?
- dephi6.0的基本问题
- DELPHI向SQL7中用QUERY读写图片字段的问题虽老但有新意,请高手赐教
- Delphi StringGrid
- 我想请教一下, 我用delphi打印, 能不能控制column detail 打印的行数,比如每页打印10行??
- 国内有买正版的Borland的产品吗?价格如何?
- 80分求助:如何使FORM窗体自动适应不同的屏幕窗口?
- delphi中里SQL語句的like中%怎麼加????()
var
VerInfo:TOSVersionInfo;
hToken:THANDLE;
tkp:TOKEN_PRIVILEGES;
Nothing:Cardinal;
begin
VerInfo.dwOSVersionInfoSize:=SizeOf(VerInfo);
GetVersionEx(VerInfo);
if VerInfo.dwPlatformId=VER_PLATFORM_WIN32_NT then
Begin
OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,hToken);
LookupPrivilegeValue(nil,'SeShutdownPrivilege',tkp.Privileges[0].Luid);
tkp.PrivilegeCount:= 1;
tkp.Privileges[0].Attributes:= SE_PRIVILEGE_ENABLED;
AdjustTokenPrivileges(hToken, FALSE, tkp, 0,nil, Nothing);
End;
// ExitWindowsEx(EWX_POWEROFF,0);//这句就是关机
ExitWindowsEx(EWX_REBOOT,0);
end;