var
path:string;
begin
path:=ExtractFilePath(application.Name);
end;
path:string;
begin
path:=ExtractFilePath(application.Name);
end;
解决方案 »
- 因公司业务需学Delphi,大家以后多多照顾小弟,散分~`
- 求生成缩略图文件的控件
- 关于memo或richtext
- 我快崩溃了,大家安慰我吧
- 谁有DBADVStringGrid的帮助,100分.
- 民以食为天,公司现在无以为计,没办法要跳槽了,8年Delphi经验,做过许多大型项目
- MP3文件处理,大家帮忙!!!
- [DCC Error] E2597
- 关于delphi反编译
- 谁知道delphi 5 ADOExpress Update pack 2 的序列号,十万火急
- unit2.unit3上的adoquery都可以使用这个adoconnection,但编译的时候却不通过请问你门知道是什么原因吗
- 如何关闭 QuickRep.preview ,求救。马上给分 ,谢谢,急,急,急,
var
sPath;sPath := ExtractFilePath(Application.Exename);
GetCurrentDir或ExtractFilePath(Application.ExeName);前一个得到路径没有“\”,后一个有。还有,请问Rainsea(飞龙在天) ,GetModuleName具体用法是什么?我查不到它的帮助。
ExtractFilePath(Application.ExeName);
返回的路径不一定是一致的,当前路径可能不是执行文件的路径。