如何取得当前目录,只要目录名,不要路径(50分)

  • 主题发起人 主题发起人 konak
  • 开始时间 开始时间
K

konak

Unregistered / Unconfirmed
GUEST, unregistred user!
如何取得当前目录,只要目录名,不要路径
 
ExtractFileName(ExtractFileDir(Application.ExeName))
 
你可以先获得路径如:
c:/myprg/test/
这个相信你知道用ExtractFilePath(Application.ExeName)即可
然后利用pos函数得到路径中有几个'/',再利用pos和copy以'/'为界将路径分别插入到数组中,取最后一个数组值即可。
呵呵,麻烦的想法
 
得到当前路径,要看是exe和dll的,最好使用
GetModuleName(HInstance)
如果是dll,那么就是它的路径。
然后再:ExtractFileName(GetModuleName(HInstance))
 
ExtractFileName(ExtractFileDirctory(GetModuleFileName(0)))
 
ExtractFileName(ExtractFileDir(Application.ExeName))
 
同意以上大侠们的说法
 
李翔鹏,的可以
 
李翔鹏,的可以
 
后退
顶部