function TForm_mypics.GetDirFileName(Dir,ExtName: string): TStringList;
var
FSearchRec: TSearchRec;
FileList: TStringList;
FindResult: Integer;
begin
if Dir[length(Dir)] <> '\' then
Dir := Dir + '\';
FileList := TStringList.Create;
FindResult := FindFirst(Dir + '*.'+ExtName, faAnyFile, FSearchRec);
try
while FindResult = 0 do
begin
if (FSearchRec.name <> '.') and (FSearchRec.name <> '..') then
FileList.Add(LowerCase(Dir + FSearchRec.Name));
FindResult := FindNext(FSearchRec);
end;
finally
SysUtils.FindClose(FSearchRec);
//FindClose(FSearchRec);
dir := '';
end;
Result := FileList;
end;
var
FSearchRec: TSearchRec;
FileList: TStringList;
FindResult: Integer;
begin
if Dir[length(Dir)] <> '\' then
Dir := Dir + '\';
FileList := TStringList.Create;
FindResult := FindFirst(Dir + '*.'+ExtName, faAnyFile, FSearchRec);
try
while FindResult = 0 do
begin
if (FSearchRec.name <> '.') and (FSearchRec.name <> '..') then
FileList.Add(LowerCase(Dir + FSearchRec.Name));
FindResult := FindNext(FSearchRec);
end;
finally
SysUtils.FindClose(FSearchRec);
//FindClose(FSearchRec);
dir := '';
end;
Result := FileList;
end;