[ edmir @ 27.09.2004. 17:32 ] @
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?
[ milagro @ 27.09.2004. 19:29 ] @
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;
[ edmir @ 28.09.2004. 18:53 ] @
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!