首页 > 代码库 > 使用windows资源管理器的排序规则

使用windows资源管理器的排序规则

对于windows资源管理器 abc_1_def是要排到abc_10_def前面的

而一般的排序规则, 都会吧_10_排到前面

 

所以为了使用习惯, 最好用资源管理器的排序规则, windows有个API提供了此规则:

在Shlwapi.dll中的StrCmpLogicalW函数

 

可惜, Delphi目前似乎并没有引入此函数, 至少我在XE5的Winapi.ShLwApi中也没有见到, 所以只能手动引用了

 

引用以后, 使用方式和其他排序一样, 用listview举例:

function StrCmpLogicalW(P1, P2: PWideChar): Integer; stdcall; external Shlwapi.dll;procedure TForm1.ListView1ColumnClick(Sender: TObject; Column: TListColumn);begin  ListView1.AlphaSort;end;procedure TForm1.ListView1Compare(Sender: TObject; Item1, Item2: TListItem; Data: Integer;  var Compare: Integer);begin  Compare := StrCmpLogicalW(PChar(Item1.Caption), PChar(Item2.Caption));end;

 

使用windows资源管理器的排序规则