Floppy disk prisutan?

Odgovori Nova tema

2 odgovora
2.711 pregleda

Floppy disk prisutan? 27.09.2004. u 18:32 · pre 268 meseci #1

Oprostite ako je vec govoreno o tome ali da li postoji nesto za provjeru da li je disketa u drive-u,znaci ona greska mi smeta i treba da je zaobiđem.
FileExist ,DirectoryExist izgleda ne mogu pomoci ,imali sta kao DriveExist ili slicno.
Ponovo,kako provjeriti je li disketa ubacena?

Potpis

Kovac

Re: Floppy disk prisutan? 27.09.2004. u 20:29 · pre 268 meseci #2

Meni je ovaj kod odradjivao posao:

Code:

function DisketaJeUbacena:boolean;
var
  EMode:Word;
begin
  EMode := SetErrorMode(SEM_FAILCRITICALERRORS);
  try
    if DiskSize(Ord('A')-$40) <> -1 then
       Result:=True  //disketa je u disketnoj jedinici
    else
       Result:=False; //disketa nije ubacena
  finally
    SetErrorMode(EMode);
  end;
end; //function DisketaJeUbacena:boolean;

Re: Floppy disk prisutan? 28.09.2004. u 19:53 · pre 268 meseci #3

Hvala Milagro,to resava problem, ali radi i ovo

function TForm1.DisketaUbacena: Boolean;
begin
SetErrorMode(SEM_FAILCRITICALERRORS);
if DiskSize(1)<>-1 then
Result:=True
else
Result:=False;
end;

Krace je,ne znam odakle si naucio ono sto si poslao,reci mi iz kojeg izvora jer niti znam sta onaj ostatak znaci niti bih se sjetio onoga.
Hvala jos jednom!

Potpis

Kovac

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme