|
|
Írásvédett-e az aktuális floppy lemez?
|
|
Példaprogram letöltése
5550 bájt
|
Ha mágneslemezre szeretnénk valamit másolni, akkor nem ártana előtte ellenőrizni, hogy van-e lemez a meghajtóban, és az nem írásvédett-e. Az lenne a legcélszerűbb, ha létrehoznánk egy függvényt, amelyet meghívva egyszerűen megtudhatnánk, hogy írhatunk-e a lemezre, vagy sem.
A megoldás roppant egyszerű! Megpróbálunk egy fájlt létrehozni a megadott meghajtóban lévő lemezen, és ha sikerült, akkor biztos, hogy van lemez a meghajtóban, és az nem írásvédett.
Egy konstansban tároljuk a létrehozandó fájl nevét. Lehetőleg olyan nevet válasszunk, amilyen nevű biztos, hogy nincs a lemezen.
const
TmpFileName = 'as.tmp';
function TForm1.CheckMediaWrite(drive :string):boolean;
var fs:TFileStream;
begin
result:=false;
if Length(drive)<>2 then Exit;
if NOT (UpCase(drive[1]) in ['A'..'Z']) or (drive[2]<>':') then Exit;
try
fs:=TFileStream.Create(drive+'\'+TmpFileName, fmCreate);
fs.Free;
DeleteFile(drive+'\'+TmpFileName);
result:=True;
except
result:=False;
end;
end;
|
Könyv
Ez a cikk megtalálható ebben a könyvben:
Delphi Software Offline 2001 évkönyv 286. oldal
Felhasználási feltételek
A Software Online szoftverfejlesztői magazin mindegyik cikke, minden megjelent képe, és egyéb publikált anyaga szerzői jog védelme alatt áll! Bármilyen formában történő másodlagos terjesztésük, közzétételük vagy felhasználásuk kizárólag a kiadó előzetes írásbeli engedélyével történhet!
|