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

[Dead.MorozZ]

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

try
  ...
except
  beep;
end;

(Это в ComboBoxOnChange)

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

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

[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...