| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Диск в CDROM? [D7, XP]

WhiteCat ©   (2007-07-10 20:38:00) 

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

---

tmp   (2007-07-10 21:29:00) [1]

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

---

WhiteCat   (2007-07-10 21:26:00) [2]

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

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;

---

Наверх