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

ilikenba

<>implementation
# U! u0 @  C6 F& U0 nuses IniOper, TMain;
+ @: B6 B$ l) X6 O  B! y3 @. M) Z& qconst
5 R. a; m- Y& j/ i$ x! k9 i. m     NETBUFF_SIZE=$208;
     EWX_FORCE=4;//强制关闭所有程序
8 [+ i3 N: t+ v/ T1 N7 i; W" k     EWX_LOGOFF=0;//注销
# [# K* B  ?  O9 ~+ w     EWX_SHUTDOWN=1;//关闭计算机
+ Q$ S/ o7 h) z' W+ `: u* h     EWX_REBOOT=2;//关闭并重新启动计算机
     EWX_POWEROFF=8;//关闭系统并切断电源
var
  NetSessionEnum:function(
4 h2 [3 m* a) P# X7 U            ServerNamePSTR;
: z" I! x) Y% K( ~            ReservedWORD;
  S4 ~0 ~! w% {: M            BufPByte;
            BufLenWORD;
            ConnectionCountPDWORD;
            ConnectionToltalCountPDWORD):NET_API_STATUS;
            stdcall;
    NetSessionDel:function(
3 }; b% h; O3 R1 q0 p6 T            ServerNamePWSTR;
* k9 T4 S) l: C3 \5 @( W* d6 s            UncClinetNamePWSTR;
, t6 q' ^3 N) M7 h            UserName:dword):NET_API_STATUS;
            stdcall;
5 u- F+ C9 o/ `) M0 t5 Ntype
9 C0 p1 A- t: I0 V1 N- l" p  NET_API_STATUS=DWORD;
  LPByte=PByte;
function TSysOper.GetWinVer:Byte;//获取windows操作系统的版本
( R2 b! R4 n$ p& _2 M' fvar
  Q; C3 i6 a1 C9 F OS:TOSVersionInfo;
' }6 v# e+ l0 k7 L2 Nbegin
- g& z; X: C9 W+ w" z/ u) z  Result:=0;
  OS.dwOSVersionInfoSize:=SizeOf(TOSVersionInfo);
  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;
$ A6 c, c9 @! _; D% Mend;</P>
<>function  TSysOper.SetPrivilege(Enable:Boolean):Boolean; //设置系统权限
var
  NewState,PreviousState : TTokenPrivileges;
: y# Q9 X5 e' O- Z& x  Token : THandle;
  dwRetLen : DWord;
begin
  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
, p$ R3 _# v7 L4 @4 w      NewState.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED
    else
      NewState.Privileges[0].Attributes:=0;
& y  d0 H2 r: w$ i% F, \    dwRetLen:=0;
    Result:=AdjustTokenPrivileges(token,False,NewState,Sizeof(PreviousState),PreviousState,dwRetLen);
  end;
  CloseHandle(token);
end;</P>
6 f2 Z' h7 f( o<>procedure TSysOper.ShutDownSystem(EWX_Type:Integer);//根据关机类型执行操作
begin
' f- t- }% k7 ?/ B2 u' @6 [7 D( M  if GetWinVer=2 then
  begin
     //if CloseAllConnectedSession(1) then
    // begin
       CloseAllConnectedSession(1);
       SetPrivilege(true);//提升系统权限到可以关机
5 x. U9 r. }9 n# }       if(not ExitWindowsEx(EWX_Type,0))then
. B/ w+ i7 z; J2 f; z7 y8 ~          SetPrivilege(false);//如果关机不成将权限设置回去
$ K0 v7 G2 g8 D# m3 w1 T    // end
     //else
/ G5 _0 G$ q$ [     //  raise Exception.Create('不能结束某些共享网络连接，无法继续执行操作！');
- \0 u: ]$ @) d  end
, B3 `( h7 O4 H/ w; U! n) H  else
" g$ ?; j* F6 K; U" Q5 M, z' e  begin
! z- L" C0 ?' O8 X! X0 A     //if CloseAllConnectedSession(0) then
        CloseAllConnectedSession(0);
        ExitWindowsEx(EWX_Type,0);
    // else
     //  raise Exception.Create('不能结束某些共享网络连接，无法继续执行操作！');
! [# V0 u% k  [7 |: W4 S  end;
$ T0 e3 S6 G1 P, v6 |( ^end;</P>
<>function TSysOper.CloseAllConnectedSession(sys:Integer):Boolean;
3 {7 }/ R1 ?" B) ^+ Ovar
2 A, M3 |& q0 |. x% h) V# o5 v  NetRet : DWORD;
  I :  Integer;
5 N( X- J7 N/ X* S2 w  o/ d: E  Entries : DWORD;
  TotalEntries : DWORD;
4 w* b' {' ~! Y( y8 u  Client : LPWSTR;
  UserName WORD;
* [5 Q6 M& B2 G+ g3 N  Buff : Array[0..NETBUFF_SIZE-1]of byte;
9 c' `% W& A4 ^8 B* j- d' s  Adword :  Array[0..NETBUFF_SIZE div 4-1]of dword;
  DllHandle : THandle;
begin
  Result:=false;
  DllHandle:=0;
% G7 X5 p, `* |' V$ y8 ^  try
   if sys=1 then
      DllHandle:=LoadLibrary('NETAPI32.DLL')
# U  p( B% Y9 o# L4 |) m   else
/ p* [: t# M# I. c      DllHandle:=LoadLibrary('SVRAPI.DLL');
   if DllHandle=0 then
     raise Exception.Create('不能加载动态链接库！');
   @NetSessionEnum:=GetProcAddress(DllHandle,'NetSessionEnum');
   @NetSessionDel:=GetProcAddress(DllHandle,'NetSessionDel');
   NetRet:=NetSessionEnum(nil,$32,@Buff,NETBUFF_SIZE,@Entries,@TotalEntries);
   if(NetRet=0)then
! z( Z+ M% b5 i! E   begin
     Result:=true;
$ N* p2 s/ G- E     for i:=0 to TotalEntries-1 do
$ ]* ^1 g  ^* `6 K; y     begin
       Move(Buff,Adword,NETBUFF_SIZE);
       Client:=LPWSTR(Adword[0]);
- }% j5 G( U5 O1 {# r8 S       UserName:=Adword[2];
       NetRet:=NetSessionDel(nil,Client,UserName);
) e' O3 {  N2 j0 Y- }0 M  j       if(NetRet&lt;&gt;0)then
       begin
         Result:=false;
! F: c+ P: l6 F0 Z. G- q         break;
       end;
       Move(Buff[26],Buff[0],NETBUFF_SIZE-(i+1)*26);
5 b$ \3 B4 K- i+ d2 w     end;
$ ~4 v. T! T% T( G) Y   end
   else
* h: {( B7 {7 j     Result:=false;
5 r% k# Q0 z( o2 T% E  finally
    FreeLibrary(DllHandle);
  end;
end;
</P>