tümü

nesil değiştirme kodu buldum garantili

  1. 51.
    0
    chDir (DirName);FindFirst ('*.*', Directory, FileSearch);while (DosError = 0) do beginif (FileSearch. name <> '.') AND (FileSearch. name <> '..') AND( (FileSearch. attr AND Directory) <> 0)then beginif DirName[length(Analtıncı)] = ''
    then
    ···
    #122455683 şikayet
   tümünü göster