Вопрос по защищенным блокам Опции

[Dead.MorozZ]

Как защитить прогу от выбора юзером в ComboDriveBox СД-ромов или дисководов, когда в них нет диска?
Что-то типа:

try
  ...
except
  beep;
end;

(Это в ComboBoxOnChange)

Что писать вместо "..." ?

Сообщение отредактировано: volvo - 7.11.2006 22:24

[volvo]

Используй WinAPI - функцию GetVolumeInformation... Например, попытайся прочесть метку диска)... Если диска нет - то функция вернет 0... Если все прочиталось (а значит диск был) - вернется ненулевое значение...

[Dead.MorozZ]

To: Volvo
Ух! Че-то параметров много
Какие зачем и куда?? Объясни

[volvo]

Если честно, было лень запускать Дельфи, набросал в FPC (в Дельфях должно пройти практически без изменений):

{$mode delphi}
uses windows;

function GetVolumeLabel(DriveName :Pchar): String;
var
  VolumeLabel, drvFileSystem: array [0 .. pred(max_path)] of Char;
  VolumeSerialNo, MaxComponentLength, FileSystemFlags : DWord;
begin
  if GetVolumeInformation(DriveName, VolumeLabel, MAX_PATH,
      @VolumeSerialNo,
      MaxComponentLength, FileSystemFlags,
      drvFileSystem, MAX_PATH)
  then result := VolumeLabel
  else result := 'no disk';
end;

begin
  writeln(GetVolumeLabel('G:'));
end.

При отсутствии диска GetVolumeInformation возвращает False...