怎样在delphi中用命令控制计算机的重起和关机？

2003-08-18 05:42:57 315 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

基于STM32的太阳能充电宝设计_资料编号31 系统硬件包括主控 STM32F103C8T6、0.96 OLED 显示屏、蜂鸣器、电源自锁开关、温度传感器 DS18B20、继电器、5 V DC 升压模块、TB4056、18650锂电池、9 V太阳能板、稳压降压 5 V三极管。电源供应：锂电池为系统供电，9 伏太阳能板经 5 伏降压稳压三极管降压为 5 伏后传送到 TP4056，TP4056 为锂电池供电，因锂电池电压 3.7 伏，通过 5 伏 DC 升压模块升压到 5 伏为整个系统提供 5 伏电压。阅读详情

...全文

delphi 暴力关机强制关机快速关机 1秒关机本主题聚焦于如何使用Delphi实现“暴力关机”、“强制关机”或“快速关机”功能，即在短短的一秒钟内关闭计算机。立即下载

skywind

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

xgy88 2003-08-18

打赏
举报

先提高进程的优先级在调用API关机涵数(WIN2000),WIN98下就直接用关机涵数就行了!

boynicky 2003-08-18

打赏
举报

调用api函数，如上面各位所写！

fengyvn 2003-08-18

打赏
举报

这段代码是别人的.
我只是转贴,非敢掠美.

fengyvn 2003-08-18

打赏
举报

98下用EXWINDOWSEX()
2000下麻烦一些了.
unit main;

interface

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

type
TForm1 = class(TForm)
EdtRomateName: TEdit;
BtnShutDown: TButton;
procedure BtnShutDownClick(Sender: TObject);
private
{ Private declarations }
function EnablePrivilege(lpSystemName:PChar; lpName:PChar):Bool;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

function TForm1.EnablePrivilege(lpSystemName, lpName: PChar): Bool;
var
hToken : THANDLE;
fOk : Bool;
fTest : Bool;
tp, tpNew : TOKEN_PRIVILEGES;
ReturnLength : Cardinal;
begin
fOk := FALSE;
if OpenProcessToken(GetCurrentProcess,(TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY),hToken) then
begin
tp.PrivilegeCount := 1;
if not (LookupPrivilegeValue(lpSystemName,lpName,tp.Privileges[0].Luid)) then
ShowMessage('Can not lookup privilege value!');
tp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
if not (AdjustTokenPrivileges(hToken,FALSE,tp,sizeof(tp),tpNew,ReturnLength)) then
ShowMessage('Can not adjust privilege value.');
if GetLastError = ERROR_SUCCESS then
fOk := TRUE
else
fOK := FALSE;
CloseHandle(hToken);
end;
Result := fOk;
end;

procedure TForm1.BtnShutDownClick(Sender: TObject);
var
RemoteShutDown : Bool;
ComputerName : PChar;

begin
if EdtRomateName.Text <> '' then
begin
ComputerName := PChar(EdtRomateName.Text;
EnablePrivilege(ComputerName,'SeRemoteShutdownPrivilege');
{此句EnablePrivilege(nil,'SeShutdownPrivilege');
下一句改为RemoteShutDown :=InitiateSystemShutdown(nil,nil,0,TRUE,FALSE);将实现本地关机}
RemoteShutDown :=InitiateSystemShutdown(ComputerName ,nil,0,TRUE,FALSE);
{将InitiateSystemShutdown函数的最后一个参数改为TRUE将实现restart}
if RemoteShutDown then
ShowMessage('（远程）关机成功！')
else
ShowMessage('（远程）关机失败！');
end;
end;

end.

firetoucher 2003-08-18

打赏
举报

参见msdn
BOOL ExitWindowsEx(
UINT uFlags, // shutdown operation
DWORD dwReason // shutdown reason
);
uFlags取值：
关机 EWX_POWEROFF
关闭windows EWX_SHUTDOWN
重启：EWX_REBOOT

luo1105 2003-08-18

打赏
举报

去下啊！

outer2000 2003-08-18

打赏
举报

搜索一下吧，非常多了

怎样在delphi中用命令控制计算机的重起和关机？

相关推荐