Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];




Вниз

Как проверить если дискета в дисководе? 


Zuvom   (2002-02-02 00:10) [0]

В дисковод вставлена дискета, как програмно это узнать? желательно с помощью API



Pat   (2002-02-02 00:43) [1]

Автор: J_S

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 }



Poirot   (2002-02-02 02:13) [2]

Проще надо быть... Просто определи есть ли флопер(для полной картины) и DiskFree или DiskSize (Точно не помню)... и проверяй на -1 - усё




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.014 c
1-57062           nikols                2002-02-01 16:34  2002.02.18  
Какой тип у редактора свойства Expression компонента TQRExpr?


3-56974           Натик                 2002-01-22 10:19  2002.02.18  
Сложный индекс?


3-57031           Alexandr1             2002-01-25 08:06  2002.02.18  
Где найти образец оформленной документации на БД ? Спасибо.


14-57211          Serg!                 2001-12-29 12:15  2002.02.18  
Сколько может стоить?


3-57013           Kirill                2002-01-24 16:56  2002.02.18  
Дублирующиеся записи в SQL Server