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

ilikenba

<>implementation
uses IniOper, TMain;
) r3 I* S, Y; O8 ^! n8 i) u6 bconst
: g0 t' @" o: R) u     NETBUFF_SIZE=$208;
" m+ j3 N; g. W) g) T/ i6 ~     EWX_FORCE=4;//强制关闭所有程序
3 D! K" N+ h( x: B( r$ d. G     EWX_LOGOFF=0;//注销
$ K) \% c' E, D: ^     EWX_SHUTDOWN=1;//关闭计算机
3 e4 g( X- N# ?+ o* y  _3 ]     EWX_REBOOT=2;//关闭并重新启动计算机
: x% D+ z6 h. \  i# I2 l     EWX_POWEROFF=8;//关闭系统并切断电源
var
  NetSessionEnum:function(
            ServerNamePSTR;
            ReservedWORD;
/ e6 S# Y0 A$ {8 q            BufPByte;
2 d; @( V: D$ Y5 I% a0 Y) V" l% L            BufLenWORD;
8 q8 e: `# u* y" ?8 m            ConnectionCountPDWORD;
; n. N4 k& I% ~$ [3 ~5 u5 D            ConnectionToltalCountPDWORD):NET_API_STATUS;
            stdcall;
    NetSessionDel:function(
, x9 X; y3 e* a1 h  L0 ]% X5 Q            ServerNamePWSTR;
+ @, T' T: i  B) A6 o* e9 \  S            UncClinetNamePWSTR;
% N' a$ d8 O1 ?% s# v2 Q% S  g            UserName:dword):NET_API_STATUS;
0 G& d7 U6 F' P            stdcall;
type
3 h: `# P: H% _2 M& {  NET_API_STATUS=DWORD;
  LPByte=PByte;
) n3 p0 v! Z1 Kfunction TSysOper.GetWinVer:Byte;//获取windows操作系统的版本
5 o5 q0 ?) n5 w* O- i4 cvar
/ V3 h7 a4 V( A% W$ z" w8 B5 I OS:TOSVersionInfo;
: |% O+ u7 ~! U/ K3 hbegin
1 F$ x9 X, ]" I8 I6 F! |  Result:=0;
  OS.dwOSVersionInfoSize:=SizeOf(TOSVersionInfo);
  GetVersionEx(OS);
- V; K, |  f: U9 ~* w/ u  case OS.dwPlatformId of
2 k; a- V" W, o$ c7 @     VER_PLATFORM_WIN32s : Result:=0;//Windows 3.1x/32s
     VER_PLATFORM_WIN32_WINDOWS : Result:=1;//Windows95
/ ]8 K9 o% w6 v     VER_PLATFORM_WIN32_NT : Result:=2;//Windows NT
  end;
* T- r0 x. B1 h) h( Fend;</P>
: J3 b+ T4 |+ P: W& `) ^<>function  TSysOper.SetPrivilege(Enable:Boolean):Boolean; //设置系统权限
var
  NewState,PreviousState : TTokenPrivileges;
$ x& |/ Y) W5 M7 m  Token : THandle;
  dwRetLen : DWord;
) L; ^  _/ d- e- hbegin
  Result:=false;
% ^" W0 o+ {/ k$ W  OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,token);
  NewState.PrivilegeCount :=1;
  if(LookupPrivilegeValue(nil,'SeShutdownPrivilege',NewState.Privileges[0].Luid))then
  begin
7 g& r: q+ w8 z: Q3 T$ b    if Enable then
      NewState.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED
    else
      NewState.Privileges[0].Attributes:=0;
2 u: T! A, Y: C- D4 J! i    dwRetLen:=0;
4 X9 y1 q3 a) s. [" w    Result:=AdjustTokenPrivileges(token,False,NewState,Sizeof(PreviousState),PreviousState,dwRetLen);
: V0 _9 B( y1 x8 c, ^  end;
0 O1 |3 s3 ^$ j( F4 B/ b  CloseHandle(token);
end;</P>
* ^$ i* o- \4 T' B6 d) C<>procedure TSysOper.ShutDownSystem(EWX_Type:Integer);//根据关机类型执行操作
9 \5 A( I4 \2 ^. q2 vbegin
7 U  K  r) r* e+ i; a9 r  if GetWinVer=2 then
1 u  F4 p7 _+ q5 {9 a- I4 M+ Z2 D  begin
( ]6 i' J; H& M  q4 v% V" a     //if CloseAllConnectedSession(1) then
( i( T/ i4 D; M    // begin
       CloseAllConnectedSession(1);
( m3 P: R& m4 N* z1 r4 u       SetPrivilege(true);//提升系统权限到可以关机
, A& T. L, v8 r" }" O1 z       if(not ExitWindowsEx(EWX_Type,0))then
          SetPrivilege(false);//如果关机不成将权限设置回去
    // end
     //else
  [7 c3 [6 j& P3 Z9 ]     //  raise Exception.Create('不能结束某些共享网络连接，无法继续执行操作！');
. l# R& M9 G! z7 k  end
+ k1 o/ e& `1 x' }' _* A3 Q  else
  begin
     //if CloseAllConnectedSession(0) then
        CloseAllConnectedSession(0);
1 Y$ D' r8 _/ k; {6 G        ExitWindowsEx(EWX_Type,0);
    // else
# `, f* w6 R3 ?4 m. j, A! O# n     //  raise Exception.Create('不能结束某些共享网络连接，无法继续执行操作！');
  end;
end;</P>
3 G: [, I( B' h" I5 \; l7 o<>function TSysOper.CloseAllConnectedSession(sys:Integer):Boolean;
* l5 J: B5 b1 kvar
  NetRet : DWORD;
  I :  Integer;
. N& l! ~! k$ c) R  K' z  Entries : DWORD;
! g. z$ g4 }* S" B& f0 Y' {  TotalEntries : DWORD;
: l/ {( d6 K$ ]  Client : LPWSTR;
  UserName WORD;
+ j5 v- ]+ Q6 D) a- M6 d! ]1 L  Buff : Array[0..NETBUFF_SIZE-1]of byte;
/ Q9 R8 m% n( a) T; K" M0 T  Adword :  Array[0..NETBUFF_SIZE div 4-1]of dword;
8 A2 n4 P  B/ Z8 T1 [  DllHandle : THandle;
9 R2 S0 p* U- qbegin
5 P! C! m$ |0 |8 p) k9 I  Result:=false;
% E& ^0 a! ~' v) Y1 H$ j  DllHandle:=0;
  try
   if sys=1 then
& G4 w+ s( d% I, |4 p      DllHandle:=LoadLibrary('NETAPI32.DLL')
4 U$ Q6 E. {, U# Z   else
      DllHandle:=LoadLibrary('SVRAPI.DLL');
  \4 ~' \7 O- c( p   if DllHandle=0 then
7 k3 j* h9 S& W; p) Z4 m     raise Exception.Create('不能加载动态链接库！');
% i2 L: ?% @3 B6 S   @NetSessionEnum:=GetProcAddress(DllHandle,'NetSessionEnum');
   @NetSessionDel:=GetProcAddress(DllHandle,'NetSessionDel');
   NetRet:=NetSessionEnum(nil,$32,@Buff,NETBUFF_SIZE,@Entries,@TotalEntries);
) h) v& s; o4 \% v; e1 e   if(NetRet=0)then
0 u$ k, M1 q$ t' @5 O8 v# \* E( ?   begin
, E! c; R9 E' q; o0 r' A     Result:=true;
# H9 z9 x3 w+ J* T0 \8 P     for i:=0 to TotalEntries-1 do
     begin
. {3 D: U7 c$ V/ f. Q/ {& A       Move(Buff,Adword,NETBUFF_SIZE);
7 _5 R, |1 w. A/ ^# o- Z       Client:=LPWSTR(Adword[0]);
; I# ~  ]' B* f1 h4 o2 U6 b! z       UserName:=Adword[2];
       NetRet:=NetSessionDel(nil,Client,UserName);
       if(NetRet&lt;&gt;0)then
       begin
7 z! X- e- n" L+ k, a( U% }4 [         Result:=false;
' Q/ Z) J+ z- X! }) J0 J' I/ o) v" {& d         break;
       end;
  X$ a& r4 n- }2 b* p# C& e: ^       Move(Buff[26],Buff[0],NETBUFF_SIZE-(i+1)*26);
: m) r, P, n) H! d: w+ V( ?/ U; B8 d     end;
   end
$ n- m' g4 C- i: m/ o   else
9 Y6 M8 d4 P& E* X     Result:=false;
  finally
& R. k1 a+ f! [9 c# U0 Y1 H    FreeLibrary(DllHandle);
  end;
end;
2 I6 M, g: r( _( R( G# d</P>