Сохранить список файлов и папок в определённой директории в текстовый файл

[Az@zel]

Есть вот такой код для сохранения списка файлов и папок в определённой директории в текстовый файл

procedure GetFileList(DirList: string; ListBox1: TListBox); // листинг директории, например GetFileList('C:\*.*')
begin
    ListBox1.Clear;
    ListBox1.Perform(LB_DIR,
                     DDL_ARCHIVE +
                     DDL_DIRECTORY +
                     DDL_DRIVES +
                     DDL_EXCLUSIVE +
                     DDL_HIDDEN +
                     DDL_READONLY +
                     DDL_READWRITE +
                     DDL_SYSTEM,
                     Integer(DirList));
  ListBox1.Items.SaveToFile(GetWinDir+'\temp\DirList.txt');
end;

Приходится делать на форме невидимый ListBox
Я так понимаю, всё можно сделать легче и проще через StringList

то же самое

TstringList.Create.SaveToFile(GetWinDir+'\temp\DirList.txt');

а здесь как заменить???

TstringList.Create. ......(LB_DIR,
                     DDL_ARCHIVE +
                     DDL_DIRECTORY +
                     DDL_DRIVES +
                     DDL_EXCLUSIVE +
                     DDL_HIDDEN +
                     DDL_READONLY +
                     DDL_READWRITE +
                     DDL_SYSTEM,
                     Integer(DirList));

[Stilet]

Var s:TStringList
begin
s:=TStringList.Create;

Далее в s.Add(Добавляешь строку)
И сохраняешь. тем же методом
Понял?

[Az@zel]

Сообщение от Stilet

Далее в s.Add(Добавляешь строку)
И сохраняешь. тем же методом
Понял?

Так уже пробовал. получается несовместимость... Incompatible types: 'String' and 'Integer'....

Вероятно, надо подправить что-то в этой строке: LB_DIR, DDL_ARCHIVE + DDL_DIRECTORY + DDL_DRIVES + DDL_EXCLUSIVE + DDL_HIDDEN +DDL_READONLY +DDL_READWRITE + DDL_SYSTEM, Integer(DirList));

[Stilet]

Можно так:

s.add(DirList+'='+IntToStr(DDL_ARCHIVE +
                     DDL_DIRECTORY +
                     DDL_DRIVES +
                     DDL_EXCLUSIVE +
                     DDL_HIDDEN +
                     DDL_READONLY +
                     DDL_READWRITE +
                     DDL_SYSTEM))

Тогда строка примет вид
ИмяФайла=Атрибуты в Виде числа.

[Az@zel]

Компилируется без ошибок, спасибо
вот только файл создаётся пустым...
точнее вот такого формата
C:\=49207 ..вероятно это количество файлов на диске

с листбоксом получалось вот в таком виде:
[..]
[addins]
aksdrvsetup.log
[AppPatch]
Arj.pif
Ascd_tmp.ini
[assembly]
avisplitter.ini
bfsvc.exe
[Boot]
bootstat.dat
....
....
и т.д.


[-c-]
[-d-]
[-e-]
[-f-]
[-g-]
[-h-]
[-i-]
[-t-]
[-u-]
[-v-]
[-w-]
[-x-]
[-y-]

[evg_m]

Я так понимаю, всё можно сделать легче и проще через StringList

давайте разберем что делает Listbox.perfom( LB_DIR,....

perform отправить сообщение с кодом LB_DIR и параметрами ....
Это можно трактовать как попросить OC windows заполнить наш Listbox данными о папках и файлах в соответствии с указанными параметрами. что в результате и будет проделано.

StringList не является наследником Twincontrol не имеет такой функции и его сначала необходимо заполнить иформацией. Для получения списка папок и файлов применяются функции findfirst FindNext примеры на форуме были.