Цитата:
Сообщение от wanick
если кто знает как из fastScript получить список фалов пишите
|
Надо вот так попробовать
delphi Код:
var
searchResult : TSearchRec;
begin
// Попытка найти правильные файлы, соответствующие Unit1.d* в текущем каталоге
if FindFirst('Unit1.d*', faAnyFile, searchResult) = 0 then
begin
repeat
ShowMessage('Имя файла = '+searchResult.Name);
ShowMessage('Размер файла = '+IntToStr(searchResult.Size));
until FindNext(searchResult) <> 0;
// Должен освободить ресурсы, используемые этим успешным поиском
FindClose(searchResult);
end;
end;