Bienvenido a Tecnohackers

Tecnohackers » General del foro » Area de Programacion » Programacion a Alto Nivel. Visual Basic, Java, delphi, etc. (Moderadores: jarexalf, Doddy)
 » 

[Delphi] ManProcess 0.1


Páginas: [1]   Ir Abajo

Autor Tema: [Delphi] ManProcess 0.1  (Leído 41 veces)

Desconectado Doddy

  • Moderator
  • Veterano
  • *****
  • Mensajes: 267
  • Slow Mind
[Delphi] ManProcess 0.1
« en: Octubre 18, 2011, 10:42:04 pm »
Un simple programa para administrar los procesos de windows

Código: No puedes ver links Registrate o Login
{
ManProcess 0.1

Coded By Doddy H
}

unit man;

interface

uses
  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();
var
conector:THandle;
timbre:LongBool;
indicio:TProcessEntry32;
lista:TListItem;

begin

fatal.lity.Clear;
conector:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
indicio.dwSize:=SizeOf(indicio);
timbre:=Process32First(conector,indicio);

while timbre do
begin
lista := 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);
begin
mostrarprocesos();
end;

procedure Tfatal.Refresh1Click(Sender: TObject);
begin
mostrarprocesos();
end;

procedure Tfatal.Kill1Click(Sender: TObject);

var
vano:THandle;

begin
vano:=OpenProcess(PROCESS_TERMINATE,FALSE,StrToInt(fatal.lity.Selected.SubItems[0]));
if TerminateProcess(vano,0) then
begin
fatal.lity.ItemFocused.Delete;
MessageBoxA(0,'Proceso Acabado','Yeah',64)
end
else
MessageBoxA(0,'No se pudo dar muerte','Error',64)
end;

end.

Una imagen



Si quieren el proyecto lo pueden bajar de No puedes ver links Registrate o Login
En línea
No puedes ver links Registrate o Login
Páginas: [1]   Ir Arriba
Tags:

 

Related Topics

  Asunto / Iniciado por Respuestas Último mensaje
0 Respuestas
284 Vistas 		Último mensaje Julio 10, 2009, 08:15:08 pm
por alma_triste
0 Respuestas
48 Vistas 		Último mensaje Octubre 18, 2011, 10:40:28 pm
por Doddy
0 Respuestas
49 Vistas 		Último mensaje Octubre 18, 2011, 10:40:49 pm
por Doddy
0 Respuestas
16 Vistas 		Último mensaje Febrero 16, 2012, 03:05:11 pm
por Doddy


SMF 2.0.2 | SMF © 2011, Simple Machines
Paginas Afiliadas
InfraBios - i-hacker - Twitter - FaceBook - Troyanosyvirus - LaWebDeGoku - daraxblog
Designed by Smf Personal