lazarus打开中文文件夹是怎么操作法?

小晖

uses ShellAPI;
procedure TForm1.Button2Click(Sender: TObject);
var
   str1:STRING;
   str2:STRING;
   str3:STRING;
begin
str1:='D:\中文,目录';

str2:=ansitoutf8(str1);

  edit1.Text:=str1;
  edit2.Text:= str2;

ShellExecute(Handle,'open','Explorer.exe',pchar(str2),nil,1);

end;

小晖

如上代码用ansitoutf8，打不开"D:\中文,目录"这个文件夹

gucao

小晖 发表于 2020-12-17 10:10
如上代码用ansitoutf8，打不开"D:\中文,目录"这个文件夹

试试wincptoutf8 跟 utf8towincp 这两函数在 lazutf8单元