Question

请说明delphi 打开相对路径文件文件夹的语句怎么写

比如窗体上有一个button,希望按下时自动打开 DELPHI EXE文件同路径下的MULU文件夹。
请教这条语句怎么写。

Answer 1

在uses里记得加入shellapi,

str := ExtractFilePath(Application.ExeName);
这是程序的运行路径，在这里设置好。

语句：ShellExecute(Handle,'open',PChar(str+'MULU\'),nil,nil,1);执行打开文件夹mulu

Answer 2

str := ExtractFilePath(Application.ExeName);
这是程序的运行路径
ShellExecute(Handle,'open',PChar(str+'MULU\'),nil,nil,1);打开文件夹
注意引用：ShellAPI单元

Answer 3

安装个cnpack吧，提高效率。