Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2004.12.12;
Скачать: [xml.tar.bz2];

Вниз

Как нйти метку диска?   Найти похожие ветки 

 
Сигизмунд   (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 вся ветка

Форум: "WinAPI";
Текущий архив: 2004.12.12;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.047 c
4-1098134964
Piter
2004-10-19 01:29
2004.12.12
Отлов сообщения о повторном выводе иконки


4-1099128378
Кириешки
2004-10-30 13:26
2004.12.12
Как определить есть ли диск в приводе?


4-1098771740
Artemius
2004-10-26 10:22
2004.12.12
Глюк при постановке в очередь печати.


14-1101352312
Думкин
2004-11-25 06:11
2004.12.12
С днем рождения! 25 ноября


14-1100856519
dr Tr0jan
2004-11-19 12:28
2004.12.12
Игрушка на Pascal, Delphi





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский