请选择 进入手机版 | 继续访问电脑版

Lazarus中文社区

 找回密码
 立即注册

QQ登录

只需一步,快速开始

Lazarus IDE and 组件 下载地址版权申明
查看: 675|回复: 2

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

[复制链接]

该用户从未签到

发表于 2020-12-17 10:08:57 | 显示全部楼层 |阅读模式
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;


回复

使用道具 举报

该用户从未签到

 楼主 发表于 2020-12-17 10:10:14 | 显示全部楼层

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

如上代码用ansitoutf8,打不开"D:\中文,目录"这个文件夹
回复 支持 1 反对 0

使用道具 举报

  • TA的每日心情
    奋斗
    2016-8-15 09:19
  • 签到天数: 9 天

    [LV.3]偶尔看看II

    发表于 2020-12-24 11:04:21 | 显示全部楼层

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

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

    试试wincptoutf8 跟 utf8towincp 这两函数在 lazutf8单元
    回复 支持 反对

    使用道具 举报

    QQ|手机版|小黑屋|Lazarus中国|Lazarus中文社区 ( 鄂ICP备16006501号-1

    GMT+8, 2021-6-22 06:30 , Processed in 0.069335 second(s), 35 queries .

    Powered by Discuz! F1.0 Build 20160930

    © 2001-2021 Comsenz Inc. & Discuz! Fans

    快速回复 返回顶部 返回列表