3

おはようございます...ディレクトリ内のすべてのファイルをリストしています...しかし、次の問題に直面しています...フォルダがすべて英語で表示されるとき...しかし、オペレーティングシステムはポルトガル国防省です...オペレーティング システムの言語に従って一覧表示する方法:

例: 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;
4

1 に答える 1

1

わかりました ポルトガル語:

SHGetFileInfo(PChar(strPath + SearchRec.Name), 0, FileInfo,
                  SizeOf(FileInfo), SHGFI_DISPLAYNAME);
                Listitem.Caption := FileInfo.szDisplayName;
于 2014-12-13T01:22:33.917 に答える