Определение метки компакт диска

← →
Oks (2002-03-14 15:42) [0]

Уважаемые знатоки!
Подскажите пожалуйста как определить метку компакт диска, если можно с примером.
Заранее спасибо!

← →
Song © (2002-03-14 18:35) [1]

По-моему через FindFirst можно

← →
McSimm © (2002-03-14 19:04) [2]

Функция GetVolumeInformation.

← →
McSimm © (2002-03-14 19:07) [3]

> если можно с примером

Можно :)
procedure TForm1.Button2Click(Sender: TObject); var S, S2: String; I: Integer; MCL, fsf: Cardinal; begin SetLength(S, 21); SetLength(S2, 33); if not GetVolumeInformation("F:\", PChar(S), 20, @I, MCL, fsf, nil, 0) then begin SetLength(S, 128); FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, nil, GetLastError, 0, PChar(S), 127, nil); ShowMessage(S) end else ShowMessage(S) end;

← →
Oks (2002-03-15 11:56) [4]

Большое спасибо!!!
И еще один вопрос, если можно:
как определить букву диска, под которой находится CD-ROM?

Проверить является ли устройство CD-ROM можно так:
if GetDriveType("F:\") = DRIVE_CDROM then ShowMessage("cdrom");

Проверить какие логические диски работают в системе можно с помощью функций
GetLogicalDrives - возвращает битовую маску дисков - "A:"=0й бит
GetLogicalDriveStrings - возвращает в буфере строковые обозначения, соответствующие дискам. Завершается список двумя нулями.
Например
"A:\"#0"C:\"#0"D:\"#0#0

PS Надеюсь разобрался, - в предыдущем примере случайно попала ненужная строка SetLength(S2, 33);

← →
Oks (2002-03-15 15:07) [6]

>McSimm
Спасибо за консультацию!
Очень признателен.

Определение метки компакт диска Найти похожие ветки