Форум: "Начинающим";
Текущий архив: 2007.08.05;
Скачать: [xml.tar.bz2];

Вниз

Диск в CDROM?   Найти похожие ветки 

← →
WhiteCat   (2007-07-10 20:38) [0]

Подскажите как проверить есть ли диск в CdROM?
Желательно в обход системного сообщения о том что надо вставить диск.

---

← →
WhiteCat   (2007-07-10 21:26) [1]

Все! Разобрался! Может кому пригодиться

function IsDiskInDrive(Drive: string): Boolean;
var
 ErrMode: Cardinal;
 VolName: array[0..255] of Char;
 FS: array[0..255] of Char;
 MaxComSize: Cardinal;
 Flags: Cardinal;
begin
 ErrMode := SetErrorMode(SEM_FAILCRITICALERRORS);
 try
   Result := GetVolumeInformation(PChar(Drive), VolName, SizeOf(VolName), nil,
     MaxComSize, Flags, FS, SizeOf(FS));
 finally
   SetErrorMode(ErrMode);
 end;
end;

---

← →
tmp   (2007-07-10 21:29) [2]

SetErrorMode(SEM_FAILCRITICALERRORS),
проверили...
SetErrorMode(0)

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.08.05;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.041 c