delphi - FindFirst 以英语返回文件夹 - Delphi

Question

早上好...我正在列出目录中的所有文件...但我面临以下问题...当文件夹全部都是英文...但操作系统是葡萄牙国防部...如何根据操作系统语言列出:

例如:Program Files (EN) -> Arquivos de Programa (PT)

if FindFirst (directory + '*. *', faAnyFile, search_rec) = 0 then
       begin
         repeat
           Form4.ListView1.Items.Add.Caption: = search_rec.Name;
             lista.Add (search_rec.Name);
         Until FindNext (search_rec) <> 0;

         FindClose (search_rec);
       end;

Answer 1

好的葡萄牙语:

SHGetFileInfo(PChar(strPath + SearchRec.Name), 0, FileInfo,
                  SizeOf(FileInfo), SHGFI_DISPLAYNAME);
                Listitem.Caption := FileInfo.szDisplayName;