InstantForum.NET v4.1.4Релибhttp://www.relib.com/forums/robot@relib.comSun, 23 Nov 2008 00:32:24 GMT20http://www.relib.com/forums/Topic892458-8-1.aspxDiskInDrive(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;У мя все работает!!Sat, 01 Apr 2006 01:03:00 GMTLeliksan Floydhttp://www.relib.com/forums/Topic892458-8-1.aspxПривет всем. Нужно определить если в CD вставлен диск.Есть одно решение использовать функции для определения объема диска – DiskSize.Но это функция не работает в случае если диск чистый. Как определить наличие диска.Fri, 10 Mar 2006 16:17:00 GMTmandarin