ShellAPI
ShellExecute
(Handle,'open','辩备Explorer.exe','C:\Windows',nil,1)
这谨灶穗样可以打开C:\Windows,如果需要其它目录祥卜的话,可以自己设置一下就行了。
str:=
ExtractFilePath
(Application.ExeName)
这是程序的运行路径指州橡
ShellExecute
(Handle,'唯旁迹搭open',PChar(str+'MULU\'),nil,nil,1)打开文件夹
注意引用:ShellAPI单元
你把一个默认的晌迹空白过程保存的该目录下(该目录就是就是这个工程的文件夹!),关闭delphi,宴判并再打开就是了。另外:Tools->Enviroment
Options->preferences标签->最下面的冲液Directory
,在browse中浏览到你要设置的路径,确认。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)