Podrobné informace o disku

function GetDiskInfo (Disk:Char; var sVolName,sVolBuff : string; var iSerNum: integer): boolean;
var
VolName: array [0..255] of char;
DriveName: array [0..255] of char;
VolNameSize: integer;
MaxCompLength: cardinal;
FSNameBuffer: array [0..255] of char;
FSNameSize: integer;
Flags: cardinal;
begin
// Nastevení a vymazání základních parametru
Result := False;
FillChar(DriveName,SizeOf(DriveName),#0);
FillChar(VolName,SizeOf(VolName),#0);
FillChar(FSNameBuffer,SizeOf(FSNameBuffer),#0);

VolNameSize := SizeOf(VolName);
FSNameSize := SizeOf(FSNameBuffer);

// Nastavení názvu disku
DriveName[0] := Disk;
DriveName[1] := ':';
DriveName[2] := #92;

// Získání vlastních informací pomocí GetVolumeInformation
Result := GetVolumeInformation (DriveName, VolName, VolNameSize, @iSerNum,
MaxCompLength, Flags, FSNameBuffer, FSNameSize);

// Naplnění předávaných parametrů
sVolName := StrPas(VolName);
sVolBuff := StrPas(FSNameBuffer);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
sVolName,sVolBuff : string;
iSerNum: integer;
begin
if GetDiskInfo (DriveComboBox1.Drive, sVolName,sVolBuff, iSerNum) then
begin
Label1.Caption := sVolName+','+IntToStr(Length(sVolName));
Label2.Caption := sVolBuff+','+IntToStr(Length(sVolBuff));
Label3.Caption := IntToSTr(iSerNum);
end
else
begin
Label1.Caption := 'none';
Label2.Caption := 'none';
Label3.Caption := 'none';
end;
end;