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

ilikenba

<>implementation
uses IniOper, TMain;
+ \4 R. V. ?- ]+ [. Y, e  Hconst
     NETBUFF_SIZE=$208;
0 |5 e. c) Q# a% I" {5 F; h( f4 ]     EWX_FORCE=4;//强制关闭所有程序
9 G/ w, R$ B8 W- @* ~0 L: J$ H     EWX_LOGOFF=0;//注销
% K8 M, X$ F! D5 |6 E     EWX_SHUTDOWN=1;//关闭计算机
% I7 Z" u% V! g* x     EWX_REBOOT=2;//关闭并重新启动计算机
/ ?/ o& L7 {( F     EWX_POWEROFF=8;//关闭系统并切断电源
var
8 W9 I/ t4 W- ?, }/ P/ E  N  NetSessionEnum:function(
, L  H' V4 \: F            ServerNamePSTR;
: ~2 L$ D3 N% k# w: A% E; V            ReservedWORD;
            BufPByte;
            BufLenWORD;
. A- l2 Y7 Z# f            ConnectionCountPDWORD;
            ConnectionToltalCountPDWORD):NET_API_STATUS;
1 `+ ?7 k6 [8 M- C/ b            stdcall;
    NetSessionDel:function(
6 `9 x/ J1 R! l            ServerNamePWSTR;
9 ~) S' a, n: G$ A) y1 P            UncClinetNamePWSTR;
            UserName:dword):NET_API_STATUS;
0 c, ]% U5 d; H! }; @+ Q! R            stdcall;
type
/ P/ I# ~0 t+ L7 F" N  NET_API_STATUS=DWORD;
1 b  n0 n" d' K* a1 v4 J: G8 t  LPByte=PByte;
function TSysOper.GetWinVer:Byte;//获取windows操作系统的版本
- z! v: j6 o: n7 O. s5 H: q3 Cvar
OS:TOSVersionInfo;
! T5 f1 l; ~* Y+ b+ Vbegin
  Result:=0;
  OS.dwOSVersionInfoSize:=SizeOf(TOSVersionInfo);
  GetVersionEx(OS);
  case OS.dwPlatformId of
& c2 W7 T) M" }  g! @, Q; \4 f% c     VER_PLATFORM_WIN32s : Result:=0;//Windows 3.1x/32s
     VER_PLATFORM_WIN32_WINDOWS : Result:=1;//Windows95
( k! Y6 ~2 ?5 P/ {+ e     VER_PLATFORM_WIN32_NT : Result:=2;//Windows NT
5 U) m$ o4 F  O% z; t- F% E  end;
end;</P>
  K% a5 P2 u7 M<>function  TSysOper.SetPrivilege(Enable:Boolean):Boolean; //设置系统权限
7 X2 V4 B6 {. _2 y+ ^var
/ `( Y+ g- ^9 S3 A* {% n+ V  NewState,PreviousState : TTokenPrivileges;
  Token : THandle;
. q! C/ T. `0 }1 c. W4 r7 X% M  dwRetLen : DWord;
begin
  Result:=false;
) j  Y# J) O. [, e  C4 E  OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,token);
  NewState.PrivilegeCount :=1;
  if(LookupPrivilegeValue(nil,'SeShutdownPrivilege',NewState.Privileges[0].Luid))then
  begin
5 b' ^3 W: M' b/ B' w" [; I    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);
, X+ v1 ^9 @( v- Bend;</P>
2 T( o/ f1 g( I! T( o: G0 z<>procedure TSysOper.ShutDownSystem(EWX_Type:Integer);//根据关机类型执行操作
2 L8 y: U/ J( K+ Obegin
  if GetWinVer=2 then
  begin
     //if CloseAllConnectedSession(1) then
! Q' d- h! N: e$ d& A9 G# U9 D; Q    // begin
       CloseAllConnectedSession(1);
; r* B% U& b/ x8 W       SetPrivilege(true);//提升系统权限到可以关机
       if(not ExitWindowsEx(EWX_Type,0))then
7 t' n- J2 \+ D+ k          SetPrivilege(false);//如果关机不成将权限设置回去
    // end
     //else
0 r  ]1 `8 o4 m     //  raise Exception.Create('不能结束某些共享网络连接，无法继续执行操作！');
  end
+ V3 i# Z! T5 h  else
  begin
     //if CloseAllConnectedSession(0) then
        CloseAllConnectedSession(0);
: C+ ~7 d6 `/ M/ [- A; T& j        ExitWindowsEx(EWX_Type,0);
7 v3 A3 P* m2 B# I% ^, x    // else
+ s# J/ N* Y% M% u. p0 s     //  raise Exception.Create('不能结束某些共享网络连接，无法继续执行操作！');
6 r4 K, P/ z+ |+ \1 i* x$ j  end;
( S8 Y8 V9 t9 x% C  @% Send;</P>
<>function TSysOper.CloseAllConnectedSession(sys:Integer):Boolean;
var
" y3 W& w4 A  ]  NetRet : DWORD;
  I :  Integer;
  Entries : DWORD;
  TotalEntries : DWORD;
  Client : LPWSTR;
" v2 x6 w/ F+ \1 O$ e" f  UserName WORD;
  Buff : Array[0..NETBUFF_SIZE-1]of byte;
2 M) B4 K$ ]  J8 v: f/ y3 f. ~  Adword :  Array[0..NETBUFF_SIZE div 4-1]of dword;
3 I1 G- h# T9 \% i9 b" y  DllHandle : THandle;
begin
- t6 t& I: D& ~* S  Result:=false;
7 l) `, H, S6 d  DllHandle:=0;
% y2 D! n% e5 R8 N0 U0 O! C  try
   if sys=1 then
# [5 b/ u$ m8 d9 u3 |( i" K; p( A# h      DllHandle:=LoadLibrary('NETAPI32.DLL')
6 |" b- r. F; T* E  g! D   else
      DllHandle:=LoadLibrary('SVRAPI.DLL');
$ E! E- X6 V( Y$ U; W( n* S   if DllHandle=0 then
     raise Exception.Create('不能加载动态链接库！');
   @NetSessionEnum:=GetProcAddress(DllHandle,'NetSessionEnum');
   @NetSessionDel:=GetProcAddress(DllHandle,'NetSessionDel');
   NetRet:=NetSessionEnum(nil,$32,@Buff,NETBUFF_SIZE,@Entries,@TotalEntries);
+ t" I& Y4 ?2 \( G   if(NetRet=0)then
   begin
/ R! ~# C/ M8 a# L. }     Result:=true;
) f" c# |$ J, a* d3 ~     for i:=0 to TotalEntries-1 do
     begin
       Move(Buff,Adword,NETBUFF_SIZE);
       Client:=LPWSTR(Adword[0]);
4 ~2 Y- A2 ?0 B2 S       UserName:=Adword[2];
, |. k9 C$ e  c9 H       NetRet:=NetSessionDel(nil,Client,UserName);
0 V$ a, ^  p% _- t  P       if(NetRet&lt;&gt;0)then
( s% u4 f% s3 B% o6 j; i       begin
         Result:=false;
         break;
       end;
  I) ]2 \7 f9 z& e* l0 Q& S& ]       Move(Buff[26],Buff[0],NETBUFF_SIZE-(i+1)*26);
1 Y5 @  l) \5 P9 v; D- g1 m$ F     end;
   end
: h- t+ H; z4 v$ S   else
     Result:=false;
3 g. j& }! g- y  b5 e1 ^. F  finally
  g4 W# S6 \8 `+ a9 N    FreeLibrary(DllHandle);
+ I9 x2 B4 S& F1 r  end;
end;
' q, b$ ?4 A3 `7 [</P>