导航:
论坛 -> DELPHI技术
斑竹:liumazi,sephil
作者:
2004/1/14 9:40:05
标题:
加入我的收藏
楼主:
AppPath := ExtractFilePath(ParamStr(0)); 怎样表示程序当前路径的上级目录?
----------------------------------------------
我真的不会!
作者:
2004/1/14 9:46:00
1楼:
var s1,s2:byte; begin s1:=2; s2:=Length(AppPath); repeat if AppPaht[s2]='\' then dec(s1); dec(s2); until (s2=3)or(s1=0); SetLength(AppPath,s2); Result:=AppPath end;
----------------------------------------------
-
作者:
2004/1/14 9:50:04
2楼:
有没简单的方法?
----------------------------------------------
我真的不会!
作者:
2004/1/14 10:15:21
3楼:
AppPath :=‘..\’+ ExtractFilePath(ParamStr(0)); 好像差不多吧 没有Delphi在手边,不好试了,不过我以前是用过的
----------------------------------------------
老杨
作者:
2004/1/14 10:24:00
4楼:
试试这个吧,ExpandFileName('..');获得应用程序的上级目录全名。
----------------------------------------------
<<努力自信爱心>>菜鸟中的菜鸟
作者:
2004/1/14 11:38:47
5楼:
luowenfu大哥的方法很好
----------------------------------------------
我真的不会!
作者:
2004/1/14 12:41:13
6楼:
学习了....
----------------------------------------------
-
作者:
jwc163 (sillybird)
★☆☆☆☆
-
盒子活跃会员
2004/1/14 13:25:16
7楼:
up
----------------------------------------------
因为蓝天的诱惑 梦想有天与白云共舞!