Текущий архив: 2002.06.06;
Скачать: CL | DM;

Вниз

FindFirst   Найти похожие ветки 

← →
esprit_bel   (2002-05-28 08:20) [0]

Б.Б. нужно проверить есть ли дискета в дисководе.Скачал пример, но он работает не корректно.Подскажите как разбить возвращаемые значения FindFirst на два подмножества (есть диск и нет его).
Заранее спасибо.

---

← →
Reindeer Moss Eater   (2002-05-28 08:28) [1]

function IsDriveReady(DriveLetter : char) : bool;
var
OldErrorMode : Word;
OldDirectory : string;
begin
OldErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS);
GetDir(0, OldDirectory);
{$I-}
ChDir(DriveLetter + ":\");
{$I+}
if IoResult <> 0 then
Result := False
else
Result := True;

ChDir(OldDirectory);
SetErrorMode(OldErrorMode);
end;

---

← →
MBo ©   (2002-05-28 08:30) [2]

Determining if there is a disk/diskette/CD in a removable-disk drive

var
DrivePath: array [0..3] of char = "A:\";

function IsDiskIn(drive: char): boolean;
var
d1, d2, d3, d4: longword;
begin
DrivePath[0] := drive;
Result := GetDiskFreeSpace(DrivePath, d1, d2, d3, d4);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if not IsDiskIn("A") then
ShowMessage("Drive A: Not Ready");

end;

---

Страницы: 1 вся ветка

Текущий архив: 2002.06.06;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.015 c