Real Name	:	Nesrin Uluca
Subject	:	Dosya silme
Description	:	Bir klasörü ve onun altindaki tüm dosyalari ve klasörleri silmeyi alt içerikteki kodda göreceksiniz. Ancak salt okunur (read only) özelligi olan ve kullanimda olan dosyalar silinemez.
procedure TForm1.Button1Click(Sender: TObject); var DirInfo: TSearchRec; r : Integer; begin r := FindFirst('C:\Download\Test\*.*', FaAnyfile, DirInfo); while r = 0 do begin if ((DirInfo.Attr and FaDirectory <> FaDirectory) and (DirInfo.Attr and FaVolumeId <> FaVolumeID)) then if DeleteFile(pChar('C:\Download\test\' + DirInfo.Name)) = false then ShowMessage('C:\Download\test\'+DirInfo.Name+' silinemiyor!!!'); r := FindNext(DirInfo); end; SysUtils.FindClose(DirInfo); if RemoveDirectory('C:\Download\Test') = false then ShowMessage('C:\Download\test klasörü silinemiyor!!!'); end;
Rating	:	4.00 (out of 5)

Visitor Voting Booth

:

ExcellentVery GoodGoodFairPoor