如何得到一个目录下的所有文件名？

Question

用Handle:=FindFirstFile（FileName,LPWIN32_FIND_DATA）,
再用FindNextFile(Handle,LPWIN32_FIND_DATA)
LPWIN32_FIND_DATA是一个结构，具体看帮助。
记住给分

Answer 1

function ListFiles(Dir: String): TStrings;
var
    FSearchRec: TSearchRec;
    FileList: TStrings;
    FindResult: Integer;
begin
    if Dir[length(Dir)]<>'\' then
        Dir := Dir + '\';    FileList := TStringList.Create;
    FindResult := FindFirst(Dir + '*.*',faAnyFile,FSearchRec);
    try
        while FindResult = 0 do
        begin
            FileList.Add(LowerCase(Dir + FSearchRec.Name));
            FindResult := FindNext(FSearchRec);
        end;
    finally
        FindClose(FSearchRec);
    end;    ListFiles := FileList;
end;