Сын звонит отцу на работу:
- Папа, что значит "HDD format completed".
- А это, сынок значит, что к вечеру ты - труп!!!
function DiskInDrive(Drive: Char): Boolean;
// Disk can be a floppy, CD-ROM,... var
ErrorMode: Word;
begin{ make it upper case }if Drive in ['a'..'z'] then Dec(Drive, $20);
{ make sure it's a letter }ifnot (Drive in ['A'..'Z']) thenraise EConvertError.Create('Not a valid drive ID');
{ turn off critical errors }
ErrorMode := SetErrorMode(SEM_FailCriticalErrors);
try{ drive 1 = a, 2 = b, 3 = c, etc. }if DiskSize(Ord(Drive) - $40) = -1 then
Result := Falseelse
Result := True;
finally{ Restore old error mode }
SetErrorMode(ErrorMode);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
beginif DiskInDrive('a') = Falsethen
ShowMessage('Drive not ready');
end;
Статья Проверить, вставлен ли диск раздела Файловая система Диски может быть полезна для разработчиков на delphi & pascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.