|
|
|
Forum Member
 
участник
Last Login: 03.07.2006 14:53
Сообщ.: 34,
Visits: 365
|
|
Привет всем.
Нужно определить если в CD вставлен диск.
Есть одно решение использовать функции для определения объема диска – DiskSize.
Но это функция не работает в случае если диск чистый.
Как определить наличие диска.
|
|
|
|
|
новичок
участник
Last Login: 18.12.2006 2:13
Сообщ.: 4,
Visits: 49
|
|
DiskInDrive(Drive: Char): Boolean;
var
ErrorMode: Word;
begin
if Drive in ['a'..'z'] then Dec(Drive, $20);
if not (Drive in ['A'..'Z']) then
raise EConvertError.Create('Not a valid drive ID');
ErrorMode := SetErrorMode(SEM_FailCriticalErrors);
try
if DiskSize(Ord(Drive) - $40) = -1 then
Result := False
else
Result := True;
finally
SetErrorMode(ErrorMode);
end;
end;
У мя все работает!!
|
|
|
|