Текущий архив: 2007.08.05;
Скачать: CL | DM;
Вниз
Диск в 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;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.106 c
