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

ilikenba

<>implementation
* R. p( O+ V1 b$ _! ^- Fuses IniOper, TMain;
const
     NETBUFF_SIZE=$208;
     EWX_FORCE=4;//强制关闭所有程序
     EWX_LOGOFF=0;//注销
( ?  O6 p. y, [3 g     EWX_SHUTDOWN=1;//关闭计算机
+ P5 l$ p1 l* `9 V' @' \' P: W% N# @& r     EWX_REBOOT=2;//关闭并重新启动计算机
     EWX_POWEROFF=8;//关闭系统并切断电源
; t+ q/ ]1 ^6 Mvar
  NetSessionEnum:function(
            ServerNamePSTR;
; G9 \/ h6 |9 O' G            ReservedWORD;
2 W: p$ S3 g7 j) d6 N8 o- k* v+ s9 r2 ^            BufPByte;
6 p7 e4 P! e' E. _  n8 }            BufLenWORD;
            ConnectionCountPDWORD;
            ConnectionToltalCountPDWORD):NET_API_STATUS;
. j3 j5 E0 A4 _' y            stdcall;
    NetSessionDel:function(
% Z- H! ^' p, h5 m            ServerNamePWSTR;
            UncClinetNamePWSTR;
# X/ p- r1 f/ u' @$ J            UserName:dword):NET_API_STATUS;
            stdcall;
type
  NET_API_STATUS=DWORD;
9 a# R5 q* c6 A* m, Q% v* b  LPByte=PByte;
; @: f# R! ~, Tfunction TSysOper.GetWinVer:Byte;//获取windows操作系统的版本
var
OS:TOSVersionInfo;
$ w" t: D$ D% n: b: K0 Ebegin
  Result:=0;
3 [; c, x9 c$ @( P% t' w( _  OS.dwOSVersionInfoSize:=SizeOf(TOSVersionInfo);
  GetVersionEx(OS);
) W" Y6 m; c! f9 `$ f- r; V7 F  case OS.dwPlatformId of
     VER_PLATFORM_WIN32s : Result:=0;//Windows 3.1x/32s
' @% C6 f& y  L$ o- F& I+ d     VER_PLATFORM_WIN32_WINDOWS : Result:=1;//Windows95
2 Z0 B( N# t% N     VER_PLATFORM_WIN32_NT : Result:=2;//Windows NT
  end;
7 v1 Q# Q. Z. s/ P) D+ ?end;</P>
6 V: ]. N. N' z4 L; ^9 T<>function  TSysOper.SetPrivilege(Enable:Boolean):Boolean; //设置系统权限
5 O* _: u& j( Q. }' X! wvar
$ a* h- D- ^- g; B8 c7 J" T& o  NewState,PreviousState : TTokenPrivileges;
3 Q1 p% j( D' `$ \9 `" [* }  Token : THandle;
  dwRetLen : DWord;
; K- x, ^* m7 N3 X0 [begin
" _' x7 ]$ O, X$ c- ?" ^  Result:=false;
6 f! M3 x. Y3 J  j  OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,token);
6 |; e8 r6 e, `$ f  \* M  NewState.PrivilegeCount :=1;
  if(LookupPrivilegeValue(nil,'SeShutdownPrivilege',NewState.Privileges[0].Luid))then
  begin
- _! A6 e$ b1 T, P5 y7 G    if Enable then
      NewState.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED
. v" _+ r% c! E# _) T    else
- A, d4 B3 i- b      NewState.Privileges[0].Attributes:=0;
    dwRetLen:=0;
3 ^! z$ o4 I9 ]' r  }    Result:=AdjustTokenPrivileges(token,False,NewState,Sizeof(PreviousState),PreviousState,dwRetLen);
  end;
9 G# w" k) i6 g7 X/ J! u  CloseHandle(token);
end;</P>
<>procedure TSysOper.ShutDownSystem(EWX_Type:Integer);//根据关机类型执行操作
begin
  if GetWinVer=2 then
& z, F/ [- `& O) K2 @$ _' g5 ^  begin
7 e- ?) s) Y7 T7 ?# i7 e/ d' H     //if CloseAllConnectedSession(1) then
: _3 ^8 ~% _4 h- L    // begin
       CloseAllConnectedSession(1);
       SetPrivilege(true);//提升系统权限到可以关机
/ Y5 e+ y/ t  p8 I. G% t       if(not ExitWindowsEx(EWX_Type,0))then
          SetPrivilege(false);//如果关机不成将权限设置回去
" _" b1 ^3 D( {; J( X7 }    // end
     //else
7 |4 ^- Q! [4 u) k     //  raise Exception.Create('不能结束某些共享网络连接，无法继续执行操作！');
  end
' A9 N& `( Q- S4 A' a  D  else
  begin
     //if CloseAllConnectedSession(0) then
3 r5 a" t" R# _& i# X        CloseAllConnectedSession(0);
        ExitWindowsEx(EWX_Type,0);
    // else
     //  raise Exception.Create('不能结束某些共享网络连接，无法继续执行操作！');
  end;
/ v  t& E) V/ `% F+ m. uend;</P>
6 N* E% G$ e- H) N<>function TSysOper.CloseAllConnectedSession(sys:Integer):Boolean;
+ H% f, {  W! U8 @$ w" O4 Q  I1 Ovar
  NetRet : DWORD;
. U0 F6 ]/ a& z. n1 ^& C; o0 M8 M  I :  Integer;
; J- }" u4 F( W8 F4 v- E  Entries : DWORD;
8 K, c0 J, e) n- j) j  TotalEntries : DWORD;
  Client : LPWSTR;
2 @0 Z3 f0 ~4 e! {  UserName WORD;
  Buff : Array[0..NETBUFF_SIZE-1]of byte;
" N; G# }: |% \$ {; R! y8 a! T! E  Adword :  Array[0..NETBUFF_SIZE div 4-1]of dword;
  DllHandle : THandle;
; w  _0 X4 k+ O9 A- O$ c  C4 Dbegin
  Result:=false;
  DllHandle:=0;
2 k, C1 G9 Y; `9 d" u2 j. _  try
   if sys=1 then
      DllHandle:=LoadLibrary('NETAPI32.DLL')
   else
- C0 b" _9 w" J5 M' F4 l0 _) z      DllHandle:=LoadLibrary('SVRAPI.DLL');
   if DllHandle=0 then
     raise Exception.Create('不能加载动态链接库！');
/ W. ~+ ~3 x7 J, u& p* c   @NetSessionEnum:=GetProcAddress(DllHandle,'NetSessionEnum');
   @NetSessionDel:=GetProcAddress(DllHandle,'NetSessionDel');
* Y+ A: i+ K" }4 A: ]   NetRet:=NetSessionEnum(nil,$32,@Buff,NETBUFF_SIZE,@Entries,@TotalEntries);
) ]# C) n% u9 Z% P5 E- O   if(NetRet=0)then
   begin
! g, N% W1 G7 j6 p- i     Result:=true;
4 p+ T- M# \0 e  _  t     for i:=0 to TotalEntries-1 do
     begin
       Move(Buff,Adword,NETBUFF_SIZE);
       Client:=LPWSTR(Adword[0]);
$ n3 z, q( c' W; M5 s1 c8 ]6 L       UserName:=Adword[2];
+ D  W+ c: S& ]. j1 q2 n0 ~) E; n* i       NetRet:=NetSessionDel(nil,Client,UserName);
       if(NetRet&lt;&gt;0)then
       begin
. h& d; L" J- F6 k4 L' g$ w1 G) D         Result:=false;
         break;
1 y6 B9 [! a* x. {       end;
       Move(Buff[26],Buff[0],NETBUFF_SIZE-(i+1)*26);
& g# i, n% K* B) ]     end;
4 i9 V9 x5 G# R. `7 Z$ w   end
   else
     Result:=false;
  finally
1 B' A9 O4 S" t) t- C4 t    FreeLibrary(DllHandle);
( o0 R2 x0 P4 d  end;
end;
</P>