Получение списка файлов в каталоге
Понадобилось перебрать файлы каталога в режиме Run-Time
procedure Button3OnClick(Sender: TfrxComponent);
var
vShell, vFolder, vFolderItems: Variant;
i: Integer;
begin
vShell := CreateOleObject('Shell.Application');
vFolder := vShell.NameSpace('C:\Temp');
vFolderItems := vFolder.Items();
for i := 0 to vFolderItems.Count-1 do
ShowMessage(vFolderItems.Item(I).Name);
vShell := nil;
end
Может есть штатные средства?
procedure Button3OnClick(Sender: TfrxComponent);
var
vShell, vFolder, vFolderItems: Variant;
i: Integer;
begin
vShell := CreateOleObject('Shell.Application');
vFolder := vShell.NameSpace('C:\Temp');
vFolderItems := vFolder.Items();
for i := 0 to vFolderItems.Count-1 do
ShowMessage(vFolderItems.Item(I).Name);
vShell := nil;
end
Может есть штатные средства?