Windows文件名排序

function StrCmpLogicalW(psz1, psz2: PWideChar): Integer; stdcall; external 'shlwapi.dll';


procedure GetFileList(list: TStringList; path: string; ext: string = '');
var
  sr: TSearchRec;
  I, J, found: Integer;
  extStr: string;
begin
  list.Clear;
  extStr := ext;

  if extStr = '' then
    extStr := '*.*';
  found := FindFirst(path + '\' + extStr, faAnyFile, sr);

  while found = 0 do
  begin
    if (sr.Name <> '.') and (sr.Name <> '..') and (sr.Attr <> faDirectory) then
      list.Add(path + '\' + sr.Name);
    found := FindNext(sr);
  end;
  FindClose(sr);

  for I := 0 to list.Count - 1 do
  begin
    for J := I + 1 to list.Count - 1 do
    begin
      if StrCmpLogicalW(PChar(list[I]), PChar(list[J])) > 0 then
        list.Exchange(I, J);
    end;
  end;
end;