Текущий архив: 2003.01.20;
Скачать: CL | DM;
Вниз
Как узнать метку тома какого-либо диска? Найти похожие ветки
← →
krammer (2002-12-01 19:32) [0]Нужно узнать метку тома компакт-диска (Label, по-английски).
С функцией GetVolumeInformation не разобрался. Если дело в ней, то подскажите, пожалуйста, как эту функцию использовать?
← →
Oleg_Gashev © (2002-12-02 02:26) [1]
function GetVolumeSerial:string;
var VolumeSerialNumber : DWORD;
MaximumComponentLength : DWORD;
FileSystemFlags : DWORD;
SerialNumber : string;
begin
GetVolumeInformation("C:\",nil,0,@VolumeSerialNumber,MaximumComponentLength,FileSystemFlags,nil,0);
SerialNumber := IntToHex(HiWord(VolumeSerialNumber), 4) +"-" +IntToHex(LoWord(VolumeSerialNumber), 4);
result:=SerialNumber;
end;
Страницы: 1 вся ветка
Текущий архив: 2003.01.20;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.013 c
