VPF::Работа с CD-ROM - Форум программистов

Unforgiven

Дата 3.6.2007, 11:22 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 54
Регистрация: 27.1.2005

Репутация: нет
Всего: нет

Подскажите, пожалуйста, как опеделить, находится ли диск внутри CD-Rom'а и если да, то какой у него размер?

Poseidon

Дата 5.6.2007, 08:51 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 10
Всего: 133

Определить есть-ли диск можно определяя его размер. Если диска нет, то вылетит ошибка, каторую можно ловить except-ом. А если диск есть, то определится его размер.
Как определить размер диска есть в FAQ.

Узнать, есть-ли диск еще можно и так:

Код


function CDExsist(Drive : char) : bool;
var
   DrivePath : string;
   MaximumComponentLength : DWORD;
   FileSystemFlags : DWORD;
   VolumeName : string;
Begin
   DrivePath := Drive + ':\';
   if GetDriveType(PChar(DrivePath)) <> DRIVE_CDROM then
      exit;
   SetLength(VolumeName, 64);
   GetVolumeInformation(PChar(DrivePath),PChar(VolumeName),
   Length(VolumeName),nil,MaximumComponentLength,FileSystemFlags,nil,0);
   Result:= ( PChar(VolumeName) <> '' );
end;

или так:

Код


function 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;

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »