Текущий архив: 2004.12.12;
Скачать: CL | DM;
Вниз
Как нйти метку диска? Найти похожие ветки
← →
Сигизмунд (2004-10-30 11:44) [0]Мне надо найти метку CD диска который вставлен в привод. Например
Resident Evil (E:)
Подскажите как это сделать.
← →
ssk © (2004-10-30 11:50) [1]
function GetVolumeInfo(D: Char): string;
var
VolumeName,
FileSystemName : array [0..MAX_PATH-1] of Char;
VolumeSerialNo : DWord;
MaxComponentLength, FileSystemFlags : Cardinal;
begin
GetVolumeInformation(PAnsiChar(D + ":\"), VolumeName, MAX_PATH,
@VolumeSerialNo, MaxComponentLength, FileSystemFlags,
FileSystemName, MAX_PATH);
Result:=VolumeName;
end;
← →
Сигизмунд (2004-10-30 11:57) [2]ssk Большое спасибо.
← →
abc (2004-10-30 16:14) [3]http://delphibase.endimus.ru/?action=viewfunc&topic=harddisk&id=10139
Страницы: 1 вся ветка
Текущий архив: 2004.12.12;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.058 c
