Class TSDIAppForm (unit Main) |
Inherits from
TForm
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);
property ShowWarnings : boolean
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;
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);
property ShowWarnings : boolean
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;