izmir escort escort izmir porno porno izle
DELPHI / Deltree Kullanimi - IRCForumları - IRC ve mIRC Yardım ve Destek Platformu
User Tag List

Standart DELPHI / Deltree Kullanimi #1
Üyelik Tarihi: 22 Kasım 2014
Mesajlar: 13
Aldığı Beğeni: 0
Beğendikleri: 0
29 Ocak 2015 , 12:20
Alıntı ile Cevapla
HTML-Kodu:
{$I-} {$I+}

procedure delTree (DirName: string);
var
FileSearch: SearchRec;
begin

chDir (DirName);
FindFirst ('*.*', Directory, FileSearch);
while (DosError = 0) do begin
if (FileSearch.name <> '.') AND (FileSearch.name <> '..') AND
( (FileSearch.attr AND Directory) <> 0)
then begin
if DirName[length(DirName)] = '\' then
delTree (DirName+FileSearch.Name)
else
delTree (DirName+'\'+FileSearch.Name);
ChDir (DirName);
end;
FindNext (FileSearch)
end;


FindFirst ('*.*', AnyFile, FileSearch);
while (DosError = 0) do begin
if (FileSearch.name <> '.') AND (FileSearch.name <> '..') then
Remove (workdir);
end;
FindNext (FileSearch)
end;
rmDir (DirName)
end;


« Önceki Konu Sonraki Konu »

Şu an bu konuyu okuyan kişi sayısı: 1 (0 üye ve 1 misafir)