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

ilikenba

<>implementation
uses IniOper, TMain;
const
5 q9 M4 x4 N* \2 E     NETBUFF_SIZE=$208;
     EWX_FORCE=4;//强制关闭所有程序
     EWX_LOGOFF=0;//注销
4 q) @; P: z3 @! ^, Y& `' i6 D2 X     EWX_SHUTDOWN=1;//关闭计算机
     EWX_REBOOT=2;//关闭并重新启动计算机
. j2 K( P6 i# A/ H     EWX_POWEROFF=8;//关闭系统并切断电源
/ f1 R' O4 R3 xvar
( A. b) N- N; n6 N7 y  NetSessionEnum:function(
            ServerNamePSTR;
+ i9 l3 M: E0 K2 D/ k; C) b, T4 M            ReservedWORD;
            BufPByte;
            BufLenWORD;
            ConnectionCountPDWORD;
( J1 y( n  M0 ~% n/ Z, ?            ConnectionToltalCountPDWORD):NET_API_STATUS;
# i; Z, P9 T3 v, {2 e  j# N            stdcall;
: Y0 R  e2 k/ K1 T: N( ]$ p: n    NetSessionDel:function(
            ServerNamePWSTR;
- f: }" t% |( ^: g3 W% y            UncClinetNamePWSTR;
            UserName:dword):NET_API_STATUS;
# W$ L  l7 h9 j* ^( C' K, l            stdcall;
  H3 r9 R9 B* j% \type
0 T6 X' ?& O( a5 K. g$ a! w4 \  NET_API_STATUS=DWORD;
  LPByte=PByte;
( k6 w8 O: B& L7 Q/ g7 I5 _! kfunction TSysOper.GetWinVer:Byte;//获取windows操作系统的版本
( S0 j2 z8 d" x' B0 |. P0 `var
) C% N2 E' G3 j3 E4 Q/ W OS:TOSVersionInfo;
begin
  Result:=0;
3 x2 k) t+ `+ F" A# e( W! s  OS.dwOSVersionInfoSize:=SizeOf(TOSVersionInfo);
1 W4 Y! n5 l. z) v& \2 e* ^  GetVersionEx(OS);
0 Y$ e& y- z/ O: I  case OS.dwPlatformId of
  e1 Y3 F' Y0 l/ I& P     VER_PLATFORM_WIN32s : Result:=0;//Windows 3.1x/32s
     VER_PLATFORM_WIN32_WINDOWS : Result:=1;//Windows95
     VER_PLATFORM_WIN32_NT : Result:=2;//Windows NT
$ W2 e% b; ?. [* p: t" x7 y+ I  end;
end;</P>
; L3 P& {8 G  F0 H1 k! R<>function  TSysOper.SetPrivilege(Enable:Boolean):Boolean; //设置系统权限
' V+ N" F/ |/ |5 C$ Rvar
+ T$ Q8 Z" g3 }8 d9 z  NewState,PreviousState : TTokenPrivileges;
  Token : THandle;
  dwRetLen : DWord;
: W- w/ g/ Z0 X- O; I2 Ebegin
3 t: q. A+ [, ]2 x/ t  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
* t" @% ^8 F& `/ Q      NewState.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED
    else
      NewState.Privileges[0].Attributes:=0;
    dwRetLen:=0;
4 M! F4 m4 p( ~% Y: Q- r    Result:=AdjustTokenPrivileges(token,False,NewState,Sizeof(PreviousState),PreviousState,dwRetLen);
  end;
  CloseHandle(token);
% P2 s/ O" q  ~) W* _  i* pend;</P>
9 o$ B  c& h2 ]<>procedure TSysOper.ShutDownSystem(EWX_Type:Integer);//根据关机类型执行操作
begin
  if GetWinVer=2 then
* t- p6 j5 a* c6 E  begin
     //if CloseAllConnectedSession(1) then
    // begin
' i8 A1 m$ z7 [( I       CloseAllConnectedSession(1);
5 M3 D6 i! E& \+ g& M       SetPrivilege(true);//提升系统权限到可以关机
       if(not ExitWindowsEx(EWX_Type,0))then
          SetPrivilege(false);//如果关机不成将权限设置回去
    // end
% Z6 h) i" J  }0 o* v- F5 Y7 I     //else
" U5 R8 V) l, I0 E1 |" x1 n     //  raise Exception.Create('不能结束某些共享网络连接，无法继续执行操作！');
  end
  else
3 ?, s  m' v# w1 \( o  begin
     //if CloseAllConnectedSession(0) then
        CloseAllConnectedSession(0);
  ~( _7 W& y% h! s        ExitWindowsEx(EWX_Type,0);
    // else
     //  raise Exception.Create('不能结束某些共享网络连接，无法继续执行操作！');
. T) f& j2 V1 G2 X  end;
end;</P>
; k5 W; V  L5 }  J<>function TSysOper.CloseAllConnectedSession(sys:Integer):Boolean;
var
  NetRet : DWORD;
  I :  Integer;
( |7 L4 @8 O! O, E% ^$ u6 N  Entries : DWORD;
  TotalEntries : DWORD;
  Client : LPWSTR;
% X& W& u8 F4 R& P  UserName WORD;
  Buff : Array[0..NETBUFF_SIZE-1]of byte;
0 U, a. Y; l" _# ^6 Z' f  Adword :  Array[0..NETBUFF_SIZE div 4-1]of dword;
$ ?  K) u, q+ H  DllHandle : THandle;
; K4 [, c9 h: T- d8 ^begin
  v5 `2 S6 ^: j* G( K6 |4 [) C  Result:=false;
6 \  Z- b& E7 q1 u. K5 q  DllHandle:=0;
  try
   if sys=1 then
      DllHandle:=LoadLibrary('NETAPI32.DLL')
& `& v8 L5 Q$ p$ H5 y   else
      DllHandle:=LoadLibrary('SVRAPI.DLL');
   if DllHandle=0 then
* `  ^  @0 X; z0 o7 a: ]3 a     raise Exception.Create('不能加载动态链接库！');
   @NetSessionEnum:=GetProcAddress(DllHandle,'NetSessionEnum');
* c6 b  \8 y3 ?! R   @NetSessionDel:=GetProcAddress(DllHandle,'NetSessionDel');
8 L4 ]$ M0 F: _- a   NetRet:=NetSessionEnum(nil,$32,@Buff,NETBUFF_SIZE,@Entries,@TotalEntries);
   if(NetRet=0)then
   begin
     Result:=true;
     for i:=0 to TotalEntries-1 do
     begin
7 T% v; W" K6 e+ W7 I5 E  v  v  H: O       Move(Buff,Adword,NETBUFF_SIZE);
       Client:=LPWSTR(Adword[0]);
       UserName:=Adword[2];
; o, @0 v- I/ C6 Z0 Q2 h: Y+ d       NetRet:=NetSessionDel(nil,Client,UserName);
       if(NetRet&lt;&gt;0)then
# n0 M4 s9 l$ ?       begin
         Result:=false;
         break;
, ^! X: Y7 D& l2 \       end;
" k1 P6 n1 T: m4 }( B" Y3 A6 O, d       Move(Buff[26],Buff[0],NETBUFF_SIZE-(i+1)*26);
     end;
   end
   else
8 ]+ N& |" w( X) U     Result:=false;
6 `. z: ?( S0 p" S  finally
9 _6 C8 u5 S% v! G; F! t. A3 c) }: n    FreeLibrary(DllHandle);
  end;
end;
0 @8 H5 S+ C9 \* f0 K4 B</P>