开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 控制台编程 > 查看源码
SysTools.pas
资源名称：计算机远程监控.rar　[点击查看]
上传用户：rickyhu
上传日期：2007-05-27
资源大小：842k
文件大小：4k
源码类别：

控制台编程

开发平台：

Delphi

SysTools.pas：源码内容
  1. ////////////////////////////////////////////////////////////////////////////////
  2. //
  3. // 2004 (C) Copyrights Reserved
  4. // Author:Aureala
  5. //
  6. ////////////////////////////////////////////////////////////////////////////////
  7. unit SysTools;
  9. interface
  11. uses
  12.   Windows, Messages, SysUtils, TlHelp32, PSApi, Classes;
  14. const
  15.   DISK='CDEFGHIJKLMNOPQRSTUVWXYZ';
  17.   function  TimeInfo():String;
  18.   function  ExtractStr(const StrOrg,SepChar:String):TStrings;
  19.   function  ListProcesses():String;
  20.   function  KillProcess(pId:Cardinal):Boolean;
  21.   function  SetPrivilege(sPrivilegeName:String;bEnabled:Boolean):Boolean;
  22.   function  WinExit(iFlags:integer):Boolean;
  23.   procedure ShutDownMachine();
  24.   procedure RebootMachine();
  25.   procedure Logout();  
  27. implementation
  29. function TimeInfo():String;
  30. var
  31.   StrTmp:String;
  32. begin
  33.   StrTmp:=FormatDateTime('YYYY-MM-DD HH:MM:SS',NOW);
  34.   result:=StrTmp;
  35. end;
  37. function  ExtractStr(const StrOrg,SepChar:String):TStrings;
  38. var
  39.   StrData:TStrings;
  40.   i,n,Len:integer;
  41. begin
  42.   i:=1;
  43.   n:=0;
  44.   Len:=Length(StrOrg)+1;
  45.   StrData:=TStringList.Create;
  46.   StrData.Text:='';
  47.   while(i<Len) do
  48.   begin
  49.     StrData.Add('');
  50.     while(StrOrg[i]<>SepChar) and (i<Len) do
  51.     begin
  52.       StrData.Strings[n]:=StrData.Strings[n]+StrOrg[i];
  53.       i:=i+1;
  54.     end;
  55.     i:=i+1;
  56.     n:=n+1;
  57.   end;
  58.   result:=StrData;
  59. end;
  61. function ListProcesses():String;
  62. var lppe:TProcessEntry32;
  63.     found:Boolean;
  64.     Hand:THandle;
  65.     FileName:array [0..MAX_PATH] of Char;
  66.     hProcess:THandle;
  67.     StrInfo:String;
  68. begin
  69.   StrInfo:='22';
  70.   lppe.dwSize:=Sizeof(TProcessEntry32);
  71.   Hand:=CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);
  72.   found:=Process32First(Hand,lppe);
  73.   while found do
  74.   begin
  75.     StrPCopy(FileName,lppe.szExeFile);
  76.     hProcess:=OpenProcess(PROCESS_ALL_ACCESS or PROCESS_QUERY_INFORMATION,
  77.                            false,lppe.th32ProcessID);
  78.     if(hProcess>0) then
  79.     begin
  80.       GetModuleFileNameEx(hProcess,0,FileName,MAX_PATH);
  81.     end;
  82.     CloseHandle(hProcess);
  83.     StrInfo:=StrInfo+'|'+IntToHex(lppe.th32ProcessID,4)+'|'
  84.       +lppe.szExeFile+'|'+FileName;
  85.     found:=Process32Next(Hand,lppe);
  86.   end;
  87.   result:=StrInfo;
  88. end;
  90. function KillProcess(pId:Cardinal):Boolean;
  91. var
  92.   Found:BOOL;
  93.   HSnapshot,HProcess:THandle;
  94.   Lppe:TProcessEntry32;
  95. begin
  96.   HSnapshot:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
  97.   Lppe.dwSize:=Sizeof(Lppe);
  98.   Found:=Process32First(HSnapshot,Lppe);
  99.   while(Found) do
  100.   begin
  101.     try
  102.       if(Lppe.th32ProcessID=pId) then
  103.       begin
  104.         HProcess:=OpenProcess(PROCESS_ALL_ACCESS,FALSE,Lppe.th32ProcessID);
  105.         TerminateProcess(HProcess,0);
  106.         result:=true;
  107.         exit;
  108.       end;
  109.     except
  110.       result:=false;
  111.       exit;
  112.     end;
  113.     Found:=Process32Next(HSnapshot,Lppe);
  114.   end;
  115.   result:=false;
  116. end;
  118. function SetPrivilege(sPrivilegeName:String;bEnabled:Boolean):Boolean;
  119. var
  120.   TPPrev,TP:TTokenPrivileges;
  121.   Token:THandle;
  122.   dwRetLen:DWord;
  123. begin
  124.   Result:=False;
  125.   OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,Token);
  126.   TP.PrivilegeCount:=1;
  127.   if(LookupPrivilegeValue(Nil,PChar(sPrivilegeName),TP.Privileges[0].LUID))then
  128.   begin
  129.     if(bEnabled)then 
  130.     begin
  131.       TP.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
  132.     end
  133.     else begin 
  134.       TP.Privileges[0].Attributes:=0;
  135.     end;
  136.     dwRetLen:=0;
  137.     Result:=AdjustTokenPrivileges(Token,False,TP,SizeOf(TPPrev),TPPrev,dwRetLen);
  138.   end;
  139.   CloseHandle(Token);
  140. end;
  142. function WinExit(iFlags:integer):Boolean;
  143. begin
  144.   Result:=True;
  145.   if(SetPrivilege('SeShutdownPrivilege',True))then
  146.   begin
  147.     if(not ExitWindowsEx(iFlags,0))then
  148.     begin
  149.       Result:=False;
  150.     end;
  151.     SetPrivilege('SeShutdownPrivilege',False);
  152.   end
  153.   else begin
  154.     Result:=False;
  155.   end;
  156. end;
  158. procedure ShutDownMachine();
  159. begin
  160.   if(Win32platform=VER_PLATFORM_WIN32_WINDOWS) then
  161.     ExitWindowsEx(EWX_FORCE+EWX_SHUTDOWN+EWX_POWEROFF,32);
  162.   if(Win32platform=VER_PLATFORM_WIN32_NT) then
  163.     WinExit(EWX_FORCE+EWX_SHUTDOWN+EWX_POWEROFF);
  164. end;
  166. procedure RebootMachine();
  167. begin
  168.   if(Win32platform=VER_PLATFORM_WIN32_WINDOWS) then
  169.     ExitWindowsEx(EWX_FORCE+EWX_REBOOT+EWX_POWEROFF,32);
  170.   if(Win32platform=VER_PLATFORM_WIN32_NT) then
  171.     WinExit(EWX_FORCE+EWX_REBOOT);
  172. end;
  174. procedure Logout();
  175. begin
  176.   Win32Check(ExitWindowsEx(EWX_LOGOFF,0));
  177. end;
  179. end.