size        : 522

uploaded_on     : Mon Jul 12 00:00:00 1999

modified_on     : Wed Dec 8 14:02:51 1999

title        : Detect drive speed

org_filename    : DriveSpeed.txt

author       : Ulli Conrad

authoremail     : uconrad@gmx.net

description     : How to retrieve drive speed information from the registry

keywords      :

tested       : D3

submitted_by    : The CKB Crew

submitted_by_email : ckb@netalive.org

uploaded_by     : nobody

modified_by     : nobody

owner        : nobody

lang        : plain

file-type      : text/plain

category      : delphi-registry

__END_OF_HEADER__

procedure TForm1.Button1Click(Sender: TObject);

 var

 reg : TRegistry;

 Data : integer;

begin

 Reg:=TRegistry.Create;

 Reg.RootKey:=HKEY_DYN_DATA;   // Statistic data is saved under this topic

 Reg.OpenKey('PerfStats\StatData',false);

 Reg.ReadBinaryData('VFAT\ReadsSec',Data,SizeOf(integer));

 Label1.Caption:=IntToStr(Data)+' bytes read per second';

 Reg.ReadBinaryData('VFAT\WriteSec',Data,SizeOf(integer));

 Label2.Caption:=IntToStr(Data)+' bytes written per second';

 Reg.CloseKey;

 Reg.Free;

end;