Class TSDIAppForm (unit Main)

Inherits from

TForm

Constructors



Functions

procedure About1Click(Sender: TObject);


procedure ChangeProcessPriorityItemClick(Sender: TObject);


procedure ExitItemClick(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure HeapListItemClick(Sender: TObject);


procedure HeapListListDblClick(Sender: TObject);


procedure ProcessListChange(Sender: TObject; Item: TListItem; Change: TItemChange);

Walk the threads

procedure ProcessMenuClick(Sender: TObject);


procedure RefreshItemClick(Sender: TObject);

Only do this for newly focused items, not items that have lost focus

procedure ShowWarningsItemClick(Sender: TObject);

and (ThreadList.

procedure TerminateProcessItemClick(Sender: TObject);

This will cascade down to other lists if needed.

procedure ThreadListDblClick(Sender: TObject);

Can't get a thread's handle from its ID! Dlg.

function GetPriorityString(Priority: DWORD): string;


procedure PopulateHeapListList(PID: DWORD);

Walk the threads

procedure PopulateModuleList(PID: DWORD);

Walk the threads

procedure PopulateProcessList;


procedure PopulateThreadList(PID: DWORD);

Walk the processes

function GetShowWarnings: boolean;


procedure SetShowWarnings(Val: boolean);


procedure WMActivateApp(var Msg: TWMActivateApp);


Properties

property ShowWarnings : boolean


Events

Variables

About1 : TMenuItem;


AboutDlg : TAboutDlg;


Bevel1 : TBevel;


ChangeProcessPriorityItem : TMenuItem;


ExitBtn : TSpeedButton;


ExitItem : TMenuItem;


FileMenu : TMenuItem;


HeapListItem : TMenuItem;


HeapListList : TExtListView;


Help1 : TMenuItem;


ImageList : TImageList;


KillBtn : TSpeedButton;


MainMenu : TMainMenu;


ModuleList : TExtListView;


N1 : TMenuItem;


OpenBtn : TSpeedButton;


Placement : TPlacement;


ProcessList : TExtListView;


ProcessMenu : TMenuItem;


QuadSplit : ToxQuadSplit;


RefreshItem : TMenuItem;


ShowWarningsItem : TMenuItem;


SpeedPanel : TPanel;


TerminateProcessItem : TMenuItem;


ThreadList : TExtListView;



Constructors


Functions


procedure About1Click(Sender: TObject);


procedure ChangeProcessPriorityItemClick(Sender: TObject);


procedure ExitItemClick(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure HeapListItemClick(Sender: TObject);


procedure HeapListListDblClick(Sender: TObject);


procedure ProcessListChange(Sender: TObject; Item: TListItem; Change: TItemChange);

Walk the threads


procedure ProcessMenuClick(Sender: TObject);


procedure RefreshItemClick(Sender: TObject);

Only do this for newly focused items, not items that have lost focus


procedure ShowWarningsItemClick(Sender: TObject);

and (ThreadList.ItemFocused <> NIL


procedure TerminateProcessItemClick(Sender: TObject);

This will cascade down to other lists if needed.


procedure ThreadListDblClick(Sender: TObject);

Can't get a thread's handle from its ID! Dlg.Priority := GetThreadPriority(DWORD(ThreadList.ItemFocused.Data));


function GetPriorityString(Priority: DWORD): string;


procedure PopulateHeapListList(PID: DWORD);

Walk the threads


procedure PopulateModuleList(PID: DWORD);

Walk the threads


procedure PopulateProcessList;


procedure PopulateThreadList(PID: DWORD);

Walk the processes


function GetShowWarnings: boolean;


procedure SetShowWarnings(Val: boolean);


procedure WMActivateApp(var Msg: TWMActivateApp);


Properties


property ShowWarnings : boolean


Events


Variables


About1 : TMenuItem;


AboutDlg : TAboutDlg;


Bevel1 : TBevel;


ChangeProcessPriorityItem : TMenuItem;


ExitBtn : TSpeedButton;


ExitItem : TMenuItem;


FileMenu : TMenuItem;


HeapListItem : TMenuItem;


HeapListList : TExtListView;


Help1 : TMenuItem;


ImageList : TImageList;


KillBtn : TSpeedButton;


MainMenu : TMainMenu;


ModuleList : TExtListView;


N1 : TMenuItem;


OpenBtn : TSpeedButton;


Placement : TPlacement;


ProcessList : TExtListView;


ProcessMenu : TMenuItem;


QuadSplit : ToxQuadSplit;


RefreshItem : TMenuItem;


ShowWarningsItem : TMenuItem;


SpeedPanel : TPanel;


TerminateProcessItem : TMenuItem;


ThreadList : TExtListView;