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

ilikenba

<>implementation
& U  N+ o6 r0 C4 m" [% o7 Q  t$ a' g/ Nuses IniOper, TMain;
# g- K8 w7 X4 n: M6 G  K/ wconst
     NETBUFF_SIZE=$208;
% W# r" T! l7 B# s     EWX_FORCE=4;//强制关闭所有程序
$ B1 ~2 D8 X- w- s2 J- T     EWX_LOGOFF=0;//注销
9 H, l/ @" t, I8 |) {% p8 U     EWX_SHUTDOWN=1;//关闭计算机
     EWX_REBOOT=2;//关闭并重新启动计算机
; i. Z$ }( l0 R( z: l& y9 w     EWX_POWEROFF=8;//关闭系统并切断电源
5 w* Q  C9 m  }3 ^2 Y0 ?var
  NetSessionEnum:function(
3 i. Q, S. s7 H. w. M1 \) R" O3 W! m            ServerNamePSTR;
            ReservedWORD;
+ H/ l, L+ Y9 ]) D8 c            BufPByte;
            BufLenWORD;
            ConnectionCountPDWORD;
/ K8 ^0 u6 `+ k, ~/ t9 @8 ~0 A            ConnectionToltalCountPDWORD):NET_API_STATUS;
. u, C1 V9 F' a; `6 r  W            stdcall;
    NetSessionDel:function(
* C0 t9 C7 ?6 ]0 ]            ServerNamePWSTR;
% A+ R* u1 z- Y3 j0 P            UncClinetNamePWSTR;
            UserName:dword):NET_API_STATUS;
            stdcall;
type
  NET_API_STATUS=DWORD;
0 Z  k. |( D- M5 f$ T  LPByte=PByte;
1 k  @1 ?% B1 `0 n( s4 \function TSysOper.GetWinVer:Byte;//获取windows操作系统的版本
var
7 x& Y# x) u$ t7 m+ _; g; y1 U OS:TOSVersionInfo;
begin
  Result:=0;
  OS.dwOSVersionInfoSize:=SizeOf(TOSVersionInfo);
( i( l) `# c/ y( X) N8 a( t4 h  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; //设置系统权限
; D+ i% o3 q; [6 D! L% Jvar
  NewState,PreviousState : TTokenPrivileges;
  Token : THandle;
" Q  S8 |! l! }3 k9 h  dwRetLen : DWord;
; I9 a! W" p, u" z  ~+ F8 y7 ~& |% [: ybegin
5 g% ]7 K% ~) ?  Result:=false;
, u- P0 S& q+ }8 i5 F  OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,token);
6 a2 d9 ?: J. J/ J) e5 u  NewState.PrivilegeCount :=1;
  if(LookupPrivilegeValue(nil,'SeShutdownPrivilege',NewState.Privileges[0].Luid))then
  begin
: n. v% P3 {6 j2 }2 `/ C    if Enable then
' z9 N& X' I' R! {. v% |9 a& H      NewState.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED
    else
; k4 q4 p1 p* c4 p1 J      NewState.Privileges[0].Attributes:=0;
2 @% ]. p! ]5 M+ t. I7 E    dwRetLen:=0;
/ L+ t& g/ d. e/ b    Result:=AdjustTokenPrivileges(token,False,NewState,Sizeof(PreviousState),PreviousState,dwRetLen);
  end;
. ]' h3 k( A7 t: I8 v* h  CloseHandle(token);
end;</P>
<>procedure TSysOper.ShutDownSystem(EWX_Type:Integer);//根据关机类型执行操作
begin
  if GetWinVer=2 then
  begin
7 M; J1 r/ I: f7 O& j. v     //if CloseAllConnectedSession(1) then
; K7 z; j# w( L8 i7 T3 F) `* ^    // begin
       CloseAllConnectedSession(1);
       SetPrivilege(true);//提升系统权限到可以关机
       if(not ExitWindowsEx(EWX_Type,0))then
          SetPrivilege(false);//如果关机不成将权限设置回去
    // end
" ~7 C- k$ l5 F0 j" B8 g) q     //else
; B% }5 G, L0 \     //  raise Exception.Create('不能结束某些共享网络连接，无法继续执行操作！');
  end
( A' L5 v9 Q  J; y  ~; o  else
  begin
$ h4 j5 t0 y. H" `( P9 I5 K     //if CloseAllConnectedSession(0) then
        CloseAllConnectedSession(0);
" e2 v6 ?, M+ j1 E        ExitWindowsEx(EWX_Type,0);
7 ~2 j8 v, v$ a, Q' T0 d+ t0 s) P    // else
     //  raise Exception.Create('不能结束某些共享网络连接，无法继续执行操作！');
  end;
end;</P>
<>function TSysOper.CloseAllConnectedSession(sys:Integer):Boolean;
var
1 \3 Q% K; h6 R, H5 y, R. D+ D  NetRet : DWORD;
  I :  Integer;
  Entries : DWORD;
+ \* T; ~& p( A# D  TotalEntries : DWORD;
  o0 V" g! T+ @/ h0 B! \; l  Client : LPWSTR;
% y# t" y* j" ~' s/ v" d# M  UserName WORD;
, \! S5 k- Y# B" N. Q$ I1 {  Buff : Array[0..NETBUFF_SIZE-1]of byte;
6 G7 B# V" o6 O# N5 W  Adword :  Array[0..NETBUFF_SIZE div 4-1]of dword;
  DllHandle : THandle;
begin
7 \9 G9 e" J8 y3 K! Q4 _; O, d; S  Result:=false;
  DllHandle:=0;
, a; T' T  j: c7 {. e  try
5 p0 p3 i. `/ U) P# x& H   if sys=1 then
7 N* U: o+ V4 G* h+ }- f' E      DllHandle:=LoadLibrary('NETAPI32.DLL')
  @! x! M8 s- R8 ~" K4 m8 g1 K8 Y; C   else
      DllHandle:=LoadLibrary('SVRAPI.DLL');
   if DllHandle=0 then
% H; _- R3 V: S" @3 H$ c& J3 o     raise Exception.Create('不能加载动态链接库！');
& R5 b$ A+ b; P8 c/ A) q* G9 y: T! ]   @NetSessionEnum:=GetProcAddress(DllHandle,'NetSessionEnum');
( x% o/ `+ [' R0 `0 l8 Y! _; N   @NetSessionDel:=GetProcAddress(DllHandle,'NetSessionDel');
   NetRet:=NetSessionEnum(nil,$32,@Buff,NETBUFF_SIZE,@Entries,@TotalEntries);
   if(NetRet=0)then
: h& w4 v5 E( C  K" ^5 e   begin
     Result:=true;
     for i:=0 to TotalEntries-1 do
     begin
  @# N- W4 ]0 c% v' }; _       Move(Buff,Adword,NETBUFF_SIZE);
: H  U; Y* Z8 B  B6 F4 J       Client:=LPWSTR(Adword[0]);
       UserName:=Adword[2];
       NetRet:=NetSessionDel(nil,Client,UserName);
* x2 T0 c1 b. ]       if(NetRet&lt;&gt;0)then
       begin
' v- V; c3 \7 S8 F. R- ~         Result:=false;
         break;
       end;
& a2 V5 M; k6 F" F* ?       Move(Buff[26],Buff[0],NETBUFF_SIZE-(i+1)*26);
     end;
   end
   else
+ V6 q- J: t) Q! x3 E     Result:=false;
4 s: G9 {7 l6 l4 R" ]  finally
: Y" R- s' o# u" M    FreeLibrary(DllHandle);
  end;
$ u: B5 t% u9 I& E8 _end;
</P>