Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.035 c
3-1099977372
Dmitriy O.
2004-11-09 08:16
2004.12.12
Как очистить базу ?


3-1100082557
alsov1
2004-11-10 13:29
2004.12.12
Не получается заставить фильтровать TADOQuery


1-1101420575
Vir
2004-11-26 01:09
2004.12.12
Перетаскивание визуальных компонентов


1-1101634029
AdmeraL.
2004-11-28 12:27
2004.12.12
Dialogs


1-1101692605
che
2004-11-29 04:43
2004.12.12
Создание нескольких текстовых файлов