Диск в 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)

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