Диск отсутствует

[kropotkina-alice]

Сообщение от ddwnik

Возможно ли сделать игнорирование/пропуск данной ошибки, чтобы данное сообщение не выводилось пользователю?

try except finally "не при делах"...

Надо вначале получить список логических дисков в системе:

procedure TForm1.Button1Click(Sender: TObject);
var
ld : DWORD;
i : integer;
begin
ld := GetLogicalDrives;
for i := 0 to 25 do begin
if (ld and (1 shl i)) <> 0 then
Memo1.Lines.Add(Char(Ord('A') + i) + ':\');
end;
end;

[WinCoder]

kropotkina-alice Ну и получишь CD-ROM, в котором нет диска.

[kropotkina-alice]

А проверить наличие диска - знаний не хватает? Делюсь:

type
TDriveState=(DS_NO_DISK, DS_UNFORMATTED_DISK, DS_EMPTY_DISK, DS_DISK_WITH_FILES);

function DriveState(DrvLetter: Char): TDriveState;
var
Mask: String[6];
SearchRec: TSearchRec;
oldMode: Cardinal;
ReturnCode: Integer;
begin
oldMode: = SetErrorMode(SEM_FAILCRITICALERRORS);
Mask:= '?:\*.*';
Mask[1] := DrvLetter;
{$I-}  { отключить обработку исключительных ситуаций }
ReturnCode := FindFirst(Mask, faAnyfile, SearchRec);
FindClose(SearchRec);
{$I+}
case ReturnCode of
{ как минимум один файл был найден }
0: Result := DS_DISK_WITH_FILES;
{ файлов не найдено и дискета в порядке }
-18: Result := DS_EMPTY_DISK;
{ DS_NO_DISK для DOS, ERROR_NOT_READY для WinNT,
ERROR_PATH_NOT_FOUND для Win 3.1 }
-21, -3: Result := DS_NO_DISK;
else
{ дискета лежит в дисководе но она не форматирована }
Result := DS_UNFORMATTED_DISK;
end;
SetErrorMode(oldMode);
end;

Как вызвать функцию - тоже надо научить?

[Вадим Мошев]

ОФФТОП

Как вызвать функцию - тоже надо научить?

"О, Великая Функция, приди" - и тереть экран