Курсовая работа: Мониторинг ОС

var

FormDiski: TFormDiski;

implementation

uses Unit1;

{$R *.dfm}

procedure TFormDiski.FormShow(Sender: TObject);

begin

UpdateDisk;

end;

procedure TFormDiski.UpdateDisk;

var

lpRootPathName : PChar;

lpVolumeNameBuffer : PChar;

nVolumeNameSize : DWORD;

lpVolumeSerialNumber : DWORD;

lpMaximumComponentLength : DWORD;

lpFileSystemFlags : DWORD;

lpFileSystemNameBuffer : PChar;

nFileSystemNameSize : DWORD;

FSectorsPerCluster: DWORD;

FBytesPerSector : DWORD;

FFreeClusters : DWORD;

FTotalClusters : DWORD;

begin

lpVolumeNameBuffer := '';

lpVolumeSerialNumber := 0;

lpMaximumComponentLength:= 0;

lpFileSystemFlags := 0;

lpFileSystemNameBuffer := '';