delphi进程监测

自制力实在是太弱了，回想了一下这周的进度，真是惨不忍睹，本来计划要看的书一点都没看，每天写代码的时间都没几分钟，时间全花到上网跟聊qq上了，就有个想法，做一个进程管理的小程序，自动检测浏览器和qq，发现就关闭掉。

主要使用了windows中的OpenProcess和TerminateProcess函数。

 

第一步：检测进程是否存在（获取到任务管理器中的进程列表，循环比较跟要寻找的进程名称是否一致）

function TProcessManage.CheckProcess(ProcessName: string;out ProcessID:DWORD): Boolean;var  aps:array[1..1024] of DWORD;  hProcess, cb:cardinal;  procCnt, hModule:DWORD;  i:integer;  ret:LongBool;  moduleFileName:array[1..100] of ansichar;begin  Result := False;  EnumProcesses( @aps, sizeof( aps ), cb );  procCnt := cb div sizeof( DWORD );  for i:=1 to procCnt do  begin    hProcess := OpenProcess( PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, false, aps[i] );    if hProcess = 0 then continue;      ret := EnumProcessModules( hProcess, @hModule, sizeof(hModule), cb );    if not ret then continue;      GetModuleBaseName( hProcess, hModule, @moduleFileName, sizeof( moduleFileName ) );    if lstrcmpi( @moduleFileName, PAnsiChar(ProcessName)) = 0 then    begin      //MessageBox( 0, '已经运行', 'xxx', MB_OK );      ProcessID := aps[i];      Result := True;    end;  end;end;

　

第二步：强制结束进程，这个就简单了,这里需要注意的是，关闭进程需要权限，使用

PROCESS_TERMINATE的方式打开进程，然后执行关闭。

function TProcessManage.KillProcess(ProcessName: string;out Errstr:string): Boolean;var  processid:DWORD;  hProcess:cardinal;begin  try    if CheckProcess(ProcessName,processid) then    begin      hProcess := OpenProcess( PROCESS_TERMINATE, false, processid );      TerminateProcess(hProcess,0);      Result := True;    end    else    begin      Errstr := '没有找到这个进程';      Result := False;    end;  except    Errstr := SysErrorMessage(GetLastError());    Result := False;  end;end;

界面是直接用的定时器来检测进程是否存在，其实用钩子检测应用程序的启动更合理，但是试了下钩子，有些东西不会用，直接电脑就卡死了，现在先这么简单处理吧，o(╯□╰)o，实测可用。

后续再维护。。。