есть ли дискета в дисководе

← →
MetalFan (2002-11-14 11:56) [0]

Мастера, подскажите плз, как определить, вставлена ли дискета в дисковод?
спсб.

← →
Marcus (2002-11-14 12:47) [1]

PrevErrMode := SetErrorMode(SEM_FAILCRITICALERRORS or SEM_NOOPENFILEERRORBOX);

Result := SetCurrentDirectory("A:\");

if Result = false then
MessageDlg("Диска нет");

SetErrorMode(PrevErrMode);

← →
SI-riuss (2002-11-14 12:54) [2]

<HTML>
<HEAD>
<TITLE>Как узнать, находится ли дискета в дисководе?</TITLE>
</HEAD>

<BODY BGCOLOR="#FFFFFF">
 
<center><h3>Как узнать, находится ли дискета в дисководе?</h3></center>

<PRE><TT>
type
TDriveState(DS_NO_DISK, DS_UNFORMATTED_DISK,
DS_EMPTY_DISK, DS_DISK_WITH_FILES);

function DriveState(DrvLetter: Char): TDriveState;

var
Mask: String[6];
SearchRec: TSearchRec;
oldMode: Cardinal;
ReturnCode: Integer;

begin
oldMode: = SetErrorMode(SEM_FAILCRITICALERRORS);
Mask:= "?:\*.*";
Mask[1] := DrvLetter;
 {$I-} { отключить обработку исключительных ситуаций }
ReturnCode := FindFirst(Mask, faAnyfile, SearchRec);
FindClose(SearchRec);

 {$I+}
case ReturnCode of
 { как минимум один файл был найден }
0: Result := DS_DISK_WITH_FILES;
 { файлов не найдено и дискета в порядке }
-18: Result := DS_EMPTY_DISK;
 { DS_NO_DISK для DOS, ERROR_NOT_READY для WinNT, ERROR_PATH_NOT_FOUND для Win 3.1 }
-21, -3: Result := DS_NO_DISK;
else
 { дискета лежит в дисководе но она не форматировнная }
Result := DS_UNFORMATTED_DISK;
end;
SetErrorMode(oldMode);
end; { DriveState }
</TT></PRE>
 
<a href="../r_delphi1_tips.html">Советы начинающим</a>
</BODY>
</HTML>

← →
Song (2002-11-14 12:55) [3]

GetVolumeInformation()на метку тома.

← →
SI-riuss (2002-11-14 12:55) [4]

Сорри.... :))))

Как узнать, находится ли дискета в дисководе?

type TDriveState(DS_NO_DISK, DS_UNFORMATTED_DISK, DS_EMPTY_DISK, DS_DISK_WITH_FILES); function DriveState(DrvLetter: Char): TDriveState; var Mask: String[6]; SearchRec: TSearchRec; oldMode: Cardinal; ReturnCode: Integer; begin oldMode: = SetErrorMode(SEM_FAILCRITICALERRORS); Mask:= "?:\*.*"; Mask[1] := DrvLetter; {$I-} { отключить обработку исключительных ситуаций } ReturnCode := FindFirst(Mask, faAnyfile, SearchRec); FindClose(SearchRec); {$I+} case ReturnCode of { как минимум один файл был найден } 0: Result := DS_DISK_WITH_FILES; { файлов не найдено и дискета в порядке } -18: Result := DS_EMPTY_DISK; { DS_NO_DISK для DOS, ERROR_NOT_READY для WinNT, ERROR_PATH_NOT_FOUND для Win 3.1 } -21, -3: Result := DS_NO_DISK; else { дискета лежит в дисководе но она не форматировнная } Result := DS_UNFORMATTED_DISK; end; SetErrorMode(oldMode); end; { DriveState }

← →
MetalFan (2002-11-14 16:20) [5]

всем сенькс!!!

есть ли дискета в дисководе Найти похожие ветки