哪位兄弟知道win2000下关机，重启动如何搞定啊？？在线等！！！

2004-01-12 09:03:27 150 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

c++ 浮点数比较判断， FLT_EPSILON 在C++中，由于浮点数的精度问题，直接使用 `==`、`` 等运算符来比较浮点数可能会导致不准确的结果。- 选择合适的 `epsilon` 值，通常使用 `1e-6` 或 `std::numeric_limits::epsilon()`。C++ 标准库提供了 `std::numeric_limits` 来获取浮点数的机器 epsilon，这是一个更精确的阈值。- 使用 `(a - b) > epsilon` 或 `(b - a) > epsilon` 来判断大小关系。阅读详情

据说要实现什么权限吧，引用的API很麻烦，哪位有过有现成的，多谢了！！

...全文

聊聊C++20的三向比较运算符 `＜=＞` 从这一个小小的三相比较运算符的引入，我们可以看到C++的复杂之处与细心之处，我们也能一窥现代C++的发展趋势，具体的复杂和细心在哪里体现？本文为您揭晓。阅读详情

hvlm

Windows SDK/API 1,184 成员 22,326 内容

+ 关注 + 加入社区

切换为时间正序

eytech 2004-06-29

打赏
举报

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure AdjustToken();
var
hdlProcessHandle : Cardinal;
hdlTokenHandle : Cardinal;
tmpLuid : Int64;
tkp : TOKEN_PRIVILEGES;
tkpNewButIgnored : TOKEN_PRIVILEGES;
lBufferNeeded : Cardinal;
Privilege : array[0..0] of _LUID_AND_ATTRIBUTES;
begin
hdlProcessHandle := GetCurrentProcess;
OpenProcessToken(hdlProcessHandle,
(TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY),
hdlTokenHandle);
// Get the LUID for shutdown privilege.
LookupPrivilegeValue('', 'SeShutdownPrivilege', tmpLuid);
Privilege[0].Luid := tmpLuid;
Privilege[0].Attributes := SE_PRIVILEGE_ENABLED;
tkp.PrivilegeCount := 1; // One privilege to set
tkp.Privileges[0] := Privilege[0];
// Enable the shutdown privilege in the access token of this process.
AdjustTokenPrivileges(hdlTokenHandle,False,tkp,Sizeof(tkpNewButIgnored),
tkpNewButIgnored,lBufferNeeded);
end;
procedure ShutDown(uFlags: Cardinal);
begin
AdjustToken;
//ExitWindowsEx(EWX_LOGOFF , 0);
//ExitWindowsEx(EWX_SHUTDOWN, 0);
//ExitWindowsEx(EWX_REBOOT , 0);
//ExitWindowsEx(EWX_FORCE , 0);
ExitWindowsEx(uFlags, 0);
//ExitWindowsEx(EWX_FORCEIFHUNG , 0);
{EWX_FORCE or EWX_SHUTDOWN,0}
end;

procedure TForm1.BitBtn2Click(Sender: TObject);//注销
begin
ShutDown(EWX_FORCE or EWX_LOGOFF);
end;

procedure TForm1.BitBtn3Click(Sender: TObject);//关机
begin
ShutDown(EWX_FORCE or EWX_POWEROFF);
end;

procedure TForm1.BitBtn4Click(Sender:TObjedt);//重启
begin
ShutDown(EWX_FORCE OR EWX_REBOOT);
end;

startjoy 2004-06-29

打赏
举报

MP_Reset: //--重启动
if Win32Platform <> VER_PLATFORM_WIN32_NT then //不是NT
ExitWindowsEx(EWX_REBOOT, 0)
else
begin
SetPrivilege('SeShutdownPrivilege', True);
if not ExitWindowsEx(EWX_REBOOT + EWX_FORCE, 0) then
SetPrivilege('SeShutdownPrivilege', False);
end;

MP_Down: //--关机
if Win32Platform <> VER_PLATFORM_WIN32_NT then //不是NT
ShellExecute(handle, 'open', 'RUNDLL32.EXE', 'user.exe,ExitWindows', nil, SW_ShowNormal)
else
begin
SetPrivilege('SeShutdownPrivilege', True);
if not ExitWindowsEx(EWX_SHUTDOWN + EWX_FORCE+EWX_POWEROFF, 0) then
SetPrivilege('SeShutdownPrivilege', False);
end;

bphantom 2004-06-21

打赏
举报

Function MySystemShutdown():boolean;
var
hToken:THANDLE;
tkp:TOKEN_PRIVILEGES;
zero : DWORD;
begin
// Get a token for this process.

if not(OpenProcessToken(GetCurrentProcess(),
TOKEN_ADJUST_PRIVILEGES and TOKEN_QUERY, hToken)) then
result := FALSE ;

// Get the LUID for the shutdown privilege.

//LookupPrivilegeValue(nil, SE_SHUTDOWN_NAME ,@tkp.Privileges[0].Luid);
LookupPrivilegeValue(nil, 'SeSecurityPrivilege' ,tkp.Privileges[0].Luid);

tkp.PrivilegeCount := 1; // one privilege to set
tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;

// Get the shutdown privilege for this process.

//AdjustTokenPrivileges(hToken, false, tkp, 0,nil, 0);
AdjustTokenPrivileges( hToken, False, tkp, SizeOf( TTokenPrivileges ), nil, zero );

if (GetLastError() <> ERROR_SUCCESS) then
result := FALSE;

// Shut down the system and force all applications to close.
//EWX_POWEROFF,EWX_LOGOFF,EWX_SHUTDOWN
if not(ExitWindowsEx(EWX_REBOOT and EWX_FORCE, 0)) then
result := FALSE;

result := TRUE;
end;

ly_liuyang 2004-01-12

打赏
举报

tanxj(明剑) 的是最好用的

好象是我写的代码呀，呵呵：）

kw123 2004-01-12

打赏
举报

http://expert.csdn.net/Expert/topic/2511/2511952.xml?temp=.1286432

cumtyangjin 2004-01-12

打赏
举报

这么多兄弟都说了，我就不多说了

aushqh 2004-01-12

打赏
举报

如果重启又要自动登陆的话，需要修改注册表里面的东西。（在CurrentVersion\winlogon下添加相应的键值）

aushqh 2004-01-12

打赏
举报

关机：ExitWindowsEx(EWX_SHUTDOWN, $FFFF);

重启：ExitWindowsEx(EWX_REBOOT，$FFFF);

注销：ExitWindowsEx(EWX_LOGOFF, $FFFF);

甜而不腻 2004-01-12

打赏
举报

要自己动手查，网上很多这样的东西。

WWWWA 2004-01-12

打赏
举报

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);

private
{ Private declarations }
procedure AdjustToken;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.AdjustToken();
var
hdlProcessHandle : Cardinal;
hdlTokenHandle : Cardinal;
tmpLuid : Int64;
tkpPrivilegeCount : Int64;
tkp : TOKEN_PRIVILEGES;
tkpNewButIgnored : TOKEN_PRIVILEGES;
lBufferNeeded : Cardinal;
Privilege : array[0..0] of _LUID_AND_ATTRIBUTES;
begin
hdlProcessHandle := GetCurrentProcess;
OpenProcessToken(hdlProcessHandle,
(TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY),
hdlTokenHandle);

// Get the LUID for shutdown privilege.
LookupPrivilegeValue('', 'SeShutdownPrivilege', tmpLuid);
Privilege[0].Luid := tmpLuid;
Privilege[0].Attributes := SE_PRIVILEGE_ENABLED;
tkp.PrivilegeCount := 1; // One privilege to set
tkp.Privileges[0] := Privilege[0];
// Enable the shutdown privilege in the access token of this
// process.
AdjustTokenPrivileges(hdlTokenHandle,
False,
tkp,
Sizeof(tkpNewButIgnored),
tkpNewButIgnored,
lBufferNeeded);

end;
procedure TForm1.Button1Click(Sender: TObject);
begin
AdjustToken;
ExitWindowsEx((EWX_SHUTDOWN Or EWX_FORCE Or EWX_REBOOT), $FFFF);
end;

end.

tanxj 2004-01-12

打赏
举报

if true,关机，false 重启

lgqTiger 2004-01-12

打赏
举报

你式试在CSDN中查找一下
很多人提过这个问题！

tanxj 2004-01-12

打赏
举报

procedure PowerOff(Force:boolean=false);
var
hToken : THandle;
tkp : TTokenPrivileges;
tkpo : TTokenPrivileges;
zero : DWORD;
begin
if Win32Platform=VER_PLATFORM_WIN32_NT then // we've got to do a whole buch of things
begin
zero := 0;
if not OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then
begin
MessageBox( 0, 'PowerOff Error', 'OpenProcessToken() Failed', MB_OK );
Exit;
end; // if not OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken)

// SE_SHUTDOWN_NAME
if not LookupPrivilegeValue( nil, 'SeShutdownPrivilege' , tkp.Privileges[ 0 ].Luid ) then
begin
MessageBox( 0, 'PowerOff Error', 'LookupPrivilegeValue() Failed', MB_OK );
Exit;
end; // if not LookupPrivilegeValue( nil, 'SeShutdownPrivilege' , tkp.Privileges[0].Luid )
tkp.PrivilegeCount := 1;
tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
AdjustTokenPrivileges( hToken, False, tkp, SizeOf( TTokenPrivileges ), tkpo, zero );
if Boolean( GetLastError() ) then
begin
MessageBox( 0, 'PowerOff Error', 'AdjustTokenPrivileges() Failed', MB_OK );
Exit;
end // if Boolean( GetLastError() )
else if Force then
ExitWindowsEx( EWX_POWEROFF, 0 )
else ExitWindowsEx( EWX_REBOOT, 0 );
end // if OSVersion = 'Windows NT'
else // just shut the machine down
if Force then ExitWindowsEx( EWX_POWEROFF, 0 )
else ExitWindowsEx( EWX_REBOOT, 0 );
end;

哪位兄弟知道win2000下关机，重启动如何搞定啊？？在线等！！！

相关推荐