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?
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;
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!
Floppy disk prisutan?
Registrovani: 1 ( sikira069 )