Инфа о сидюке...

← →
Driverrr (2003-01-04 16:23) [0]

Как узнать инфу о компакт-диске?

← →
F1 © (2003-01-04 16:26) [1]

GetVolumeInformation попробуй...

← →
France (2003-01-04 16:31) [2]

А чтоб проще было, вот кусок кода:

procedure TForm1.Button1Click(Sender: TObject);
var
VolumeName,
FileSystemName : array [0..MAX_PATH-1] of Char;
VolumeSerialNo : DWord;
MaxComponentLength, FileSystemFlags : Cardinal;
begin
GetVolumeInformation("C:\",
VolumeName,
MAX_PATH,
@VolumeSerialNo,
MaxComponentLength,
FileSystemFlags,
FileSystemName,
MAX_PATH);
Memo1.Lines.Clear;
Memo1.Lines.Add("VName = "+VolumeName);
Memo1.Lines.Add("SerialNo = $"+IntToHex(VolumeSerialNo,8));
Memo1.Lines.Add("CompLen = "+IntToStr(MaxComponentLength));
Memo1.Lines.Add("Flags = $"+IntToHex(FileSystemFlags,4));
Memo1.Lines.Add("FSName = "+FileSystemName);
end;

Инфу любого диска можно узнать.

← →
Ketmar © (2003-01-04 16:41) [3]

хорошая функция. а главное - удобна тем, что вся инфа в одном флаконе. потому если есть нужда софтину обмануть - не надо перехватывать десятка два фигни всякой %-))

Satanas Nobiscum! 04-Jan-XXXVIII A.S.

← →
Driverrr (2003-01-04 18:19) [4]

А как можно узнать авторские прева, программу, нарезавшую болванку и все такое?

у юзверя спросить.

Satanas Nobiscum! 04-Jan-XXXVIII A.S.

Инфа о сидюке... Найти похожие ветки