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

← →
Unknown user © (2003-02-04 20:39) [0]

И сделать это минуя стандартный в Win2000 dialog box -No disk -Try again, Cancel, Continue...

← →
Song © (2003-02-04 20:43) [1]

В FAQ

← →
Songoku (2003-02-05 16:23) [2]

function IsFloppyOK(disk:char):Bool;
var f: THandle;
a: TWIN32FindData;
begin
Result:=True;
f:=FindFirstFile("A:\*.*",a);
if f=INVALID_HANDLE_VALUE then Result:=False;
Windows.FindClose(f);
end;

procedure TForm1.Button3Click(Sender: TObject);

begin
if IsFloppyOK("A")=False then Caption:="Don"t work" else Caption:="Ok";
end;

function DiskInDrive(const Drive: char): Boolean;
var
DrvNum: byte;
EMode: Word;
begin
result := false;
DrvNum := ord(Drive);
if DrvNum >= ord("a") then dec(DrvNum,$20);
EMode := SetErrorMode(SEM_FAILCRITICALERRORS);
try
if DiskSize(DrvNum-$40) <> -1 then result := true
else messagebeep(0);
finally
SetErrorMode(EMode);
end;
end;

...

If DiskInDrive("A") then // Drive is Ready
else // Drive is not Ready

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