Toplam 1 adet sonuctan sayfa basi 1 ile 1 arasi kadar sonuc gösteriliyor
-
23.Kasım.2014, 21:39 #1
DELPHI / Deltree Kullanimi
DELPHI / Deltree Kullanimi
Kod:
{$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;
Konu Bilgileri
Bu Konuya Gözatan Kullanıcılar
Şu anda 1 kullanıcı bu konuyu görüntülüyor. (0 kayıtlı ve 1 misafir)
Benzer Konular
-
Delphi Uzantıları Nelerdir?
Konu Sahibi kazanova21641 Forum Görsel Proğramlama DilleriCevap: 0Son Mesaj : 14.Nisan.2015, 22:23 -
DATABASE / Calculated Field Kullanimi Hakkında
Konu Sahibi megatron Forum MySQLCevap: 0Son Mesaj : 18.Ocak.2015, 00:47 -
Delphi Harddiskte Nekadar Boş Yer Var?
Konu Sahibi megatron Forum Görsel Proğramlama DilleriCevap: 0Son Mesaj : 05.Ocak.2015, 22:26 -
DELPHI / Merge Strings
Konu Sahibi optimusprime Forum Görsel Proğramlama DilleriCevap: 0Son Mesaj : 15.Aralık.2014, 20:46 -
DELPHI / Function Basson
Konu Sahibi optimusprime Forum Görsel Proğramlama DilleriCevap: 0Son Mesaj : 23.Kasım.2014, 22:31
Shopsocks5 - Service Socks5 Cheap...
Bugün, 14:35 in Güvenlik