查看: 8904|回复: 0

用delphi写的一个关闭机器的函数！

字体大小: 正常放大

2634 主题	47 听众	1万积分

TA的每日心情

	奋斗 2024-4-15 06:07

签到天数: 1008 天

[LV.10]以坛为家III

群组: 万里江山

群组: sas讨论小组

群组: 长盛证券理财有限公司

群组: C 语言讨论组

群组: Matlab讨论组

发表于 2004-9-24 21:04 |显示全部楼层

|招呼Ta 关注Ta

<

>implementation
uses IniOper, TMain;
const
   NETBUFF_SIZE=$208;
   EWX_FORCE=4;//强制关闭所有程序
   EWX_LOGOFF=0;//注销
   EWX_SHUTDOWN=1;//关闭计算机
   EWX_REBOOT=2;//关闭并重新启动计算机
   EWX_POWEROFF=8;//关闭系统并切断电源
var
  NetSessionEnum:function(
         ServerName

PSTR;
Reserved

WORD;
Buf

PByte;
BufLen

WORD;
ConnectionCount

PDWORD;
ConnectionToltalCount

PDWORD):NET_API_STATUS;
stdcall;
NetSessionDel:function(
ServerName

PWSTR;
UncClinetName

PWSTR;
         UserName:dword):NET_API_STATUS;
         stdcall;
type
  NET_API_STATUS=DWORD;
  LPByte=PByte;
function TSysOper.GetWinVer:Byte;//获取windows操作系统的版本
var
OS:TOSVersionInfo;
begin
  Result:=0;
  OS.dwOSVersionInfoSize:=SizeOf(TOSVersionInfo);
  GetVersionEx(OS);
  case OS.dwPlatformId of
   VER_PLATFORM_WIN32s : Result:=0;//Windows 3.1x/32s
   VER_PLATFORM_WIN32_WINDOWS : Result:=1;//Windows95
   VER_PLATFORM_WIN32_NT : Result:=2;//Windows NT
  end;
end;</P>
<

>function  TSysOper.SetPrivilege(Enable:Boolean):Boolean; //设置系统权限
var
  NewState,PreviousState : TTokenPrivileges;
  Token : THandle;
  dwRetLen : DWord;
begin
  Result:=false;
  OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,token);
  NewState.PrivilegeCount :=1;
  if(LookupPrivilegeValue(nil,'SeShutdownPrivilege',NewState.Privileges[0].Luid))then
  begin
if Enable then
   NewState.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED
else
   NewState.Privileges[0].Attributes:=0;
dwRetLen:=0;
Result:=AdjustTokenPrivileges(token,False,NewState,Sizeof(PreviousState),PreviousState,dwRetLen);
  end;
  CloseHandle(token);
end;</P>
<

>procedure TSysOper.ShutDownSystem(EWX_Type:Integer);//根据关机类型执行操作
begin
  if GetWinVer=2 then
  begin
   //if CloseAllConnectedSession(1) then
// begin
   CloseAllConnectedSession(1);
   SetPrivilege(true);//提升系统权限到可以关机
   if(not ExitWindowsEx(EWX_Type,0))then
      SetPrivilege(false);//如果关机不成将权限设置回去
// end
   //else
   //  raise Exception.Create('不能结束某些共享网络连接，无法继续执行操作！');
  end
  else
  begin
   //if CloseAllConnectedSession(0) then
      CloseAllConnectedSession(0);
      ExitWindowsEx(EWX_Type,0);
// else
   //  raise Exception.Create('不能结束某些共享网络连接，无法继续执行操作！');
  end;
end;</P>
<

>function TSysOper.CloseAllConnectedSession(sys:Integer):Boolean;
var
  NetRet : DWORD;
  I :  Integer;
  Entries : DWORD;
  TotalEntries : DWORD;
  Client : LPWSTR;
  UserName

WORD;
  Buff : Array[0..NETBUFF_SIZE-1]of byte;
  Adword :  Array[0..NETBUFF_SIZE div 4-1]of dword;
  DllHandle : THandle;
begin
  Result:=false;
  DllHandle:=0;
  try
if sys=1 then
   DllHandle:=LoadLibrary('NETAPI32.DLL')
else
   DllHandle:=LoadLibrary('SVRAPI.DLL');
if DllHandle=0 then
   raise Exception.Create('不能加载动态链接库！');
@NetSessionEnum:=GetProcAddress(DllHandle,'NetSessionEnum');
@NetSessionDel:=GetProcAddress(DllHandle,'NetSessionDel');
NetRet:=NetSessionEnum(nil,$32,@Buff,NETBUFF_SIZE,@Entries,@TotalEntries);
if(NetRet=0)then
begin
   Result:=true;
   for i:=0 to TotalEntries-1 do
   begin
   Move(Buff,Adword,NETBUFF_SIZE);
   Client:=LPWSTR(Adword[0]);
   UserName:=Adword[2];
   NetRet:=NetSessionDel(nil,Client,UserName);
   if(NetRet<>0)then
   begin
      Result:=false;
      break;
   end;
   Move(Buff[26],Buff[0],NETBUFF_SIZE-(i+1)*26);
   end;
end
else
   Result:=false;
  finally
FreeLibrary(DllHandle);
  end;
end;
</P>

zan

使用道具举报