5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
yifan1008 2003-05-30
- 打赏
- 举报
up
「已注销」 2003-05-29
- 打赏
- 举报
Result:=ExtractFilePath(ParamStr(0));
if Result[Length[Result]]<>'\' then
Result:=Result+'\';
if Result[Length[Result]]<>'\' then
Result:=Result+'\';
eloner 2003-05-27
- 打赏
- 举报
问题？
peterzhou2000 2003-05-27
- 打赏
- 举报
ExtractFilePath(Application.ExeName)
不过需要注意WIN2000和WIN98取出来的会有些区别，一个带'\'，另一个不带'\'
不过需要注意WIN2000和WIN98取出来的会有些区别，一个带'\'，另一个不带'\'
「已注销」 2003-05-26
- 打赏
- 举报
function ParamStr(Index: Integer): string;
主要用于返回指定的命令行参数，其中第0个参数为可执行程序的路径和文件名
主要用于返回指定的命令行参数，其中第0个参数为可执行程序的路径和文件名
lindaolong 2003-05-25
- 打赏
- 举报
楼上的，请问一下Path:=ExtractFilePath(paramstr(0))中的Paramstr(0)函数是什么意思，有什么用，还有别的类似的函数可以调用的吗？谢谢回答。。。。
「已注销」 2003-05-24
- 打赏
- 举报
Path:=ExtractFilePath(paramstr(0));
带有最后一个‘\’
带有最后一个‘\’
d0347 2003-05-24
- 打赏
- 举报
同意楼主的
lf43 2003-05-19
- 打赏
- 举报
path := ExtractFilePath(Application.ExeName);
ffwin 2003-05-19
- 打赏
- 举报
ExtractFileDir
ExtractFilePath
ExtractFileName
ExtractFilePath
ExtractFileName
deepsen 2003-05-19
- 打赏
- 举报
同意
cxj21 2003-05-19
- 打赏
- 举报
谢谢！
sysu 2003-05-19
- 打赏
- 举报
path := ExtractFilePath(Application.ExeName);
windwather 2003-05-19
- 打赏
- 举报
path:=extractfilepath(application.exename);
filename:=expandfilename(application.exename);//文件的绝对路径(包括文件名)。
filename:=expandfilename(application.exename);//文件的绝对路径(包括文件名)。
