Const TotalBytes=8*1024;
      ByteIncrement=8*1024;
Type PPerfDataBlock=^TPerfDataBlock;
    TPerfDataBlock=packed record
      Signature:array[1..4]of widechar;
      LittleEndian:cardinal;
      Version:cardinal;
      Revision:cardinal;
      TotalByteLength:cardinal;
      HeaderLength:cardinal;
      NumObjectTypes:cardinal;
      DefaultObject:cardinal;
      SystemTime:TSystemTime;
      PerfTime:LARGE_INTEGER;
      PerfFreq:LARGE_INTEGER;
      PerfTime100nSec:LARGE_INTEGER;
      SystemNameLength:cardinal;
      SystemNameOffset:cardinal;
    end;
    PPerfObjectType=^TPerfObjectType;
    TPerfObjectType=packed record
      TotalByteLength:cardinal; // смещение до следующего объекта
      DefinitionLength:cardinal;
      HeaderLength:cardinal;
      ObjectNameTitleIndex:cardinal;
      ObjectNameTitle:PWideChar;
      ObjectHelpTitleIndex:cardinal;
      ObjectHelpTitle:PWideChar;
      DetailLevel:cardinal;
      NumCounters:cardinal;
      DefaultCounter:cardinal;
      NumInstances:integer;
      CodePage:cardinal;
      PerfTime:LARGE_INTEGER;
      PerfFreq:LARGE_INTEGER;
    end;
    PPerfCounterDefinition=^TPerfCounterDefinition;
    TPerfCounterDefinition=packed record
      ByteLength:cardinal;
      CounterNameTitleIndex:cardinal;
      CounterNameTitle:PWideChar;
      CounterHelpTitleIndex:cardinal;
      CounterHelpTitle:PWideChar;
      DefaultScale:cardinal;
      DetailLevel:cardinal;
      CounterType:cardinal;
      CounterSize:cardinal;
      CounterOffset:cardinal;
    end;
    PPerfInstanceDefinition=^TPerfInstanceDefinition;
    TPerfInstanceDefinition=packed record
      ByteLength:cardinal;
      ParentObjectTitleIndex:cardinal;
      ParentObjectInstance:cardinal;
      UniqueID:cardinal;
      NameOffset:cardinal;
      NameLength:cardinal;
    end;
    PPerfCounterBlock=^TPerfCounterBlock;
    TPerfCounterBlock=packed record
      ByteLength:cardinal;
    end;
    PBytes=^Bytes;
    Bytes=array[1..1024*1024]of byte;
var hKeyPerfLib:HKEY;
    Buf,BufSize,I,J:cardinal;
    K:integer;
    Data,Data2:PChar;
    PerfData:PPerfDataBlock;
    PerfObj:PPerfObjectType;
    PerfInst:PPerfInstanceDefinition;
    PerfCntr,CurCntr:PPerfCounterDefinition;
    PtrToCntr:PPerfCounterBlock;
    lpNameStrings:array of string;
    LastObject,LastInstance:TTreeNode;
begin
// get number of counter values
if RegOpenKeyEx(HKEY_LOCAL_MACHINE,'Software\Microsoft\Windows NT\CurrentVersion\Perflib',
  0,KEY_READ,hKeyPerflib)<>ERROR_SUCCESS then raise Exception.Create('Не смог открыть ключ Perflib');
BufSize:=sizeof(Buf);
RegQueryValueEx(hKeyPerflib,'Last counter',nil,nil,@Buf,@BufSize);
RegCloseKey(hKeyPerflib);
SetLength(lpNameStrings,Buf+1);
if RegOpenKeyEx(HKEY_LOCAL_MACHINE,'Software\Microsoft\Windows NT\CurrentVersion\Perflib\019',
  0,KEY_READ,hKeyPerfLib)<>ERROR_SUCCESS then raise Exception.Create('Не смог открыть ключ Perflib\019');
RegQueryInfoKey(hKeyPerflib,nil,nil,nil,nil,nil,nil,nil,nil,@BufSize,nil,nil);
Inc(BufSize);GetMem(Data,BufSize);
RegQueryValueEx(hKeyPerflib,'Counter',nil,nil,PByte(Data),@BufSize);
GetMem(Data2,1024);I:=0;
repeat
  J:=0;while(Data[I]<>#0)do begin Data2[J]:=Data[I];Inc(I);Inc(J);end;
  Data2[J]:=#0;val(StrPas(Data2),Buf,K);if K<>0 then break;
  Inc(I);if Data[I]=#0 then break;
  J:=0;while(Data[I]<>#0)do begin Data2[J]:=Data[I];Inc(I);Inc(J);end;
  Data2[J]:=#0;lpNameStrings[Buf]:=StrPas(Data2);
  Inc(I);if Data[I]=#0 then break;
until false;
FreeMem(Data);FreeMem(Data2);
RegCloseKey(hKeyPerflib);
BufSize:=TotalBytes;GetMem(PerfData,BufSize);
while RegQueryValueEx(HKEY_PERFORMANCE_DATA,'Global',nil,nil,PByte(PerfData),@BufSize)=ERROR_MORE_DATA do begin
  FreeMem(PerfData,BufSize);
  Inc(BufSize,ByteIncrement);
  GetMem(PerfData,BufSize);
end;
PerfObj:=PPerfObjectType(cardinal(PerfData)+PerfData.HeaderLength); // Get the first object type.
LastObject:=nil;Tree.Items.Clear;Tree.Items.BeginUpdate;
I:=0;While(I<PerfData.NumObjectTypes)do begin // Process all objects.
  // Display the object by index and name.
  LastObject:=Tree.Items.Add(LastObject,Format('Объект %u: %s',[PerfObj.ObjectNameTitleIndex,lpNameStrings[PerfObj.ObjectNameTitleIndex]]));
  PerfCntr:=PPerfCounterDefinition(cardinal(PerfObj)+PerfObj.HeaderLength); // Get the first counter.
  if(PerfObj.NumInstances>0)then begin
  PerfInst:=PPerfInstanceDefinition(cardinal(PerfObj)+PerfObj.DefinitionLength);// Get the first instance.
  K:=0;while(K<PerfObj.NumInstances)do begin // Retrieve all instances.
    // Display the instance by name.
    LastInstance:=Tree.Items.AddChild(LastObject,Format('Экземпляр %u: %s: ',[K,StrPas(pchar(cardinal(PerfInst)+PerfInst.NameOffset))]));
    CurCntr:=PerfCntr;
    J:=0;while(J<PerfObj.NumCounters)do begin // Retrieve all counters.
    // Display the counter by index and name.
    Tree.Items.AddChild(LastInstance,Format('Счетчик %u: %s',[CurCntr.CounterNameTitleIndex,lpNameStrings[CurCntr.CounterNameTitleIndex]]));
    CurCntr:=PPerfCounterDefinition(cardinal(CurCntr)+PerfCntr.ByteLength); // Get the next counter.
    Inc(J);
    end; // все счетчики выведены
    PtrToCntr:=PPerfCounterBlock(cardinal(PerfInst)+PerfInst.ByteLength); // Get the counter block.
    PerfInst:=PPerfInstanceDefinition(cardinal(PtrToCntr)+PtrToCntr.ByteLength); // Get the next instance.
    Inc(K);
  end;
  end else if PerfObj.NumCounters>0 then begin
  // PtrToCntr:=PPerfCounterBlock(cardinal(PerfObj)+PerfObj.DefinitionLength); // Get the counter block.
  LastInstance:=Tree.Items.AddChild(LastObject,'Экземпляр 0');
  J:=0;while(J<PerfObj.NumCounters)do begin // Retrieve all counters.
    // Display the counter by index and name.
    Tree.Items.AddChild(LastInstance,Format('Счетчик %u: %s',[PerfCntr.CounterNameTitleIndex,lpNameStrings[PerfCntr.CounterNameTitleIndex]]));
    PerfCntr:=PPerfCounterDefinition(cardinal(PerfCntr)+PerfCntr.ByteLength); // Get the next counter.
    Inc(J);
  end;
  end;
  PerfObj:=PPerfObjectType(cardinal(PerfObj)+PerfObj.TotalByteLength); // Get the next object type.
  inc(I);
end;
Tree.Items.EndUpdate;
RegCloseKey(HKEY_PERFORMANCE_DATA);
SetLength(lpNameStrings,0);
FreeMem(PerfData,BufSize);
end;