{ManProcess 0.1Coded By Doddy H}unit man;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls,tlhelp32, Menus, WinSkinData;type Tfatal = class(TForm) lity: TListView; mirame: TPopupMenu; Kill1: TMenuItem; Refresh1: TMenuItem; SkinData1: TSkinData; procedure FormCreate(Sender: TObject); procedure Refresh1Click(Sender: TObject); procedure Kill1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var fatal: Tfatal;implementation{$R *.dfm}procedure mostrarprocesos();varconector:THandle;timbre:LongBool;indicio:TProcessEntry32;lista:TListItem;beginfatal.lity.Clear;conector:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);indicio.dwSize:=SizeOf(indicio);timbre:=Process32First(conector,indicio);while timbre dobeginlista := fatal.lity.Items.Add;lista.Caption:= indicio.szExeFile;lista.SubItems.Add(IntToStr(indicio.th32ProcessID));timbre:=Process32Next(conector,indicio);end;end;procedure Tfatal.FormCreate(Sender: TObject);beginmostrarprocesos();end;procedure Tfatal.Refresh1Click(Sender: TObject);beginmostrarprocesos();end;procedure Tfatal.Kill1Click(Sender: TObject);varvano:THandle;beginvano:=OpenProcess(PROCESS_TERMINATE,FALSE,StrToInt(fatal.lity.Selected.SubItems[0]));if TerminateProcess(vano,0) thenbeginfatal.lity.ItemFocused.Delete;MessageBoxA(0,'Proceso Acabado','Yeah',64)endelseMessageBoxA(0,'No se pudo dar muerte','Error',64)end;end.