Performans Object Explorer Oluşturma
unit PerfObjAppf;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,
ExtCtrls, ComCtrls, StdCtrls, Buttons, Registry;
type
TMainForm = class( TForm )
ToolBar : TPanel;
tvPerfObj : TTreeView;
lvCounters : TListView;
btnGo : TButton;
Timer1 : TTimer;
btnClose : TBitBtn;
btnClear: TButton;
procedure FormCreate( Sender : TObject );
procedure FormClose( Sender : TObject; var Action :
TCloseAction );
procedure FormCloseQuery( Sender : TObject; var CanClose :
Boolean );
procedure btnGoClick( Sender : TObject );
procedure Timer1Timer( Sender : TObject );
procedure lvCountersDragDrop(Sender, Source: TObject; X, Y:
Integer);
procedure lvCountersDragOver(Sender, Source: TObject; X, Y:
Integer;
State: TDragState; var Accept: Boolean);
procedure btnClearClick(Sender: TObject);
private
{ Private declarations }
procedure PopulateTree;
procedure QueryData( AKey : string );
public
{ Public declarations }
end;
var
MainForm : TMainForm;
implementation
{$R *.DFM}
var
Reg : TRegistry;
procedure TMainForm.PopulateTree;
var
Node1, Node2, Node3 : TTreeNode;
i, j, k : integer;
SL, SL2, SL3 : TStringList;
const
Enum = 'SystemCurrentControlSetcontrolPerfStatsEnum';
begin
// Fill the Performance Object Tree
Reg.RootKey := HKEY_LOCAL_MACHINE;
SL := TStringList.Create;
SL.Sorted := true;
SL2 := TStringList.Create;
SL2.Sorted := true;
SL3 := TStringList.Create;
SL3.Sorted := true;
try
with Reg, tvPerfObj.Items do
begin
Clear;
// Create the root node
Add( nil, 'Performance Objects' );
OpenKey( Enum, False );
GetKeyNames( SL );
CloseKey;
for i := 0 to SL.Count - 1 do
begin
OpenKey( Enum + '' + SL[i], False );
CloseKey;
// and add 1st level child nodes
Node1 := tvPerfObj.Items[0];
Node2 := AddChild( Node1, SL[i] );
// get the characteristics of the
object
OpenKey( Enum + '' + SL[i], False );
GetKeyNames( SL2 );
CloseKey;
for j := 0 to SL2.Count - 1 do
begin
// loop through it adding
the characteristics
OpenKey( Enum + '' + SL[i]
+ '' + SL2[j], False );
GetValueNames( SL3 );
Node3 := AddChild( Node2,
SL2[j] );
for k := 0 to SL3.Count -
1 do
AddChild( Node3,
SL3[k] + ': ' + ReadString( SL3[k] ) );
CloseKey;
end;
end;
end;
// Expand the first node of the tree
tvPerfObj.Items[0].Expand( False );
finally
SL.Free;
SL2.Free;
SL3.Free;
end;
end;
procedure TMainForm.QueryData( AKey : string );
var
I, FBuffer: integer;
begin
{ Pass StartStat to initiate data collection
Pass StopStat to terminate data collection
Pass StatData to retrieve data }
Reg.RootKey := HKEY_DYN_DATA;
Reg.OpenKey( 'PerfStats' + AKey, False );
try
with lvCounters do
for i := 0 to Items.Count - 1 do
begin
Reg.ReadBinaryData( Items[i].Caption,
FBuffer, SizeOf( Integer ) );
// retrieve the counter data
if ( AKey = 'StatData' ) then
Items[i].Subitems[0] :=
IntToStr( FBuffer );
end;
finally
Reg.CloseKey;
end;
end;
procedure TMainForm.FormCreate( Sender : TObject );
begin
Reg := TRegistry.Create; // create the registry object
PopulateTree;
end;
procedure TMainForm.FormClose( Sender : TObject; var Action : TCloseAction );
begin
Reg.Free; // free the registry object
end;
procedure TMainForm.FormCloseQuery( Sender : TObject; var CanClose : Boolean );
begin
// Make sure data collection has been terminated
if Timer1.Enabled then
QueryData( 'StopStat' ); // stop collecting stats
end;
procedure TMainForm.btnGoClick( Sender : TObject );
begin
if Timer1.Enabled then
begin
btnGo.Caption := '&Start';
Timer1.Enabled := False;
QueryData( 'StopStat' ); // stop data collection
end
else
begin
btnGo.Caption := '&Stop';
Timer1.Enabled := True;
QueryData( 'StartStat' ); // start data collection
end;
BtnClear.Enabled := not Timer1.Enabled;
end;
procedure TMainForm.Timer1Timer( Sender : TObject );
begin
QueryData( 'StatData' ); //get the counter data
end;
procedure TMainForm.lvCountersDragDrop(Sender, Source: TObject; X,
Y: Integer);
var
Item : TListItem;
begin
with lvCounters do
begin
Item := Items.Add;
Item.Caption := TTreeView(Source).Selected.Parent.Text +
'' +
TTreeView(Source).Selected.Text;
{ create a subitem so we can add the counter data later }
Item.SubItems.Add( '' );
end;
end;
procedure TMainForm.lvCountersDragOver(Sender, Source: TObject; X,
Y: Integer; State: TDragState; var Accept: Boolean);
begin
{ Allow the list view to accept a dragged object only
if the timer is off, the source is the tree view, and
the selected item is a counter }
Accept := not Timer1.Enabled and (Source is TTreeView) and
(TTreeView(Source).Selected.Level = 2);
end;
procedure TMainForm.btnClearClick(Sender: TObject);
begin
lvCounters.Items.Clear;
end;
end.
