List Active Apps in TreeView

I need some help with this code. I ned a button that calls the TerminateProcess and kills the selected program in the TreeView. If posible to list the .dll & .ocx files that belongs to the selected program instead of the windows it contains. And maybe show the real icons that belongs to a surtin program!


unit UP;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 StdCtrls, tlhelp32, ComCtrls, ImgList;

type
 TForm1 = class(TForm)
   Button1: TButton;
   TreeView1: TTreeView;
    Edit1: TEdit;
    Button2: TButton;
    ImageList1: TImageList;
   procedure Button1Click(Sender: TObject);
   procedure TreeView1Click(Sender: TObject);
   procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
 private
   Procedure GetThreads(ProcessID : DWord);
   Procedure GetProcesslist;
   { Private-Deklarationen }
 public
   { Public-Deklarationen }
 end;

var
 Form1: TForm1;

implementation

{$R *.DFM}

Var
 WNode2: TTreeNode = Nil; {intern Global defined for multiple use}
 WNode : TTreeNode = Nil; {intern Global defined for multiple use}
 WName : Array[0..100] of char;
 TheWinHandle : THandle = 0; {intern Global defined for intern global Access}

Function TWCallBack(H : THandle; V : Longint) : longBool; stdcall;
begin
 if GetParent(H) = 0 then
 begin
   GetwindowText(H,@WName[0],100);
   WNode2 := Form1.TreeView1.Items.AddChild(WNode,StrPas(@WName[0]));
   WNode2.Data := Ptr(H); {Store the Handle in the DataOption}
 end;
 Result := True;
end;

Procedure TForm1.GetThreads(ProcessID : DWord);
var
 ThreadEntry32 : TThreadEntry32; {Defined in TlHelp32}
 TLHandle : THandle;
begin
 TLHandle := CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD, 0);
 if Thread32First(TLHandle,ThreadEntry32) then
 begin
   if ThreadEntry32.th32OwnerProcessID = ProcessID then
     EnumThreadWindows(ThreadEntry32.th32ThreadID,@TWCallBack,0);
   while Thread32Next(TLHandle,ThreadEntry32) do
     if ThreadEntry32.th32OwnerProcessID = ProcessID then
       EnumThreadWindows(ThreadEntry32.th32ThreadID,@TWCallBack,0);
 end;
 CloseHandle(TLHandle);
end;

Procedure TForm1.GetProcesslist;
var
 PLHandle : Thandle;
 ProcessEntry32 : TProcessEntry32; {Defined in TlHelp32}
begin
 PLHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
 if Process32First(PLHandle,ProcessEntry32) then
 begin
   Wnode := TreeView1.Items.Add(Nil,strPas(@ProcessEntry32.szExeFile[0]));
   GetThreads(ProcessEntry32.th32ProcessID);
   while Process32Next(PLHandle,ProcessEntry32) do
   begin
     Wnode := TreeView1.Items.Add(Nil,strPas(@ProcessEntry32.szExeFile[0]));
     GetThreads(ProcessEntry32.th32ProcessID);
   end;
 end;
 CloseHandle(PLHandle);
end;

Procedure CleanUpTree(Nodes : TTreeNodes);
begin
 {CleanUp Windows without Text (most Controls)}
 WNode := Nodes.GetFirstNode;
 While WNode <> Nil do
 begin
   If WNode.Text = '' then
   begin
     WNode2 := WNode.Getnext;
     WNode.Delete;
     WNode := WNode2;
   end
   else
     WNode := WNode.GetNext;
 end;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Treeview1.Items.Clear;
 GetProcessList;
 CleanUpTree(TreeView1.Items);
end;

procedure TForm1.TreeView1Click(Sender: TObject);
begin
 If Treeview1.selected.Level = 1 then {Level 1 entrys Only}
 begin
   TheWinHandle := THandle(Treeview1.selected.Data); {Get the Handle from the DataOption}
   { Do Something with the Handle, must not be in this Procedure }
   edit1.text := IntToStr(TheWinHandle);
 end;
end;

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
 TreeView1Click(Self);
end;

end.