如何取得程序动态路径? 如题,我想用动态数据库,但不知如何能取得当前程序运行的动态路径? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 ShowMessage(Application.ExeName); ShowMessage(ExtractFilePath(Application.ExeName)); function ExeOrDllPath: string;var Path: array[0..MAX_PATH - 1] of Char;begin if IsLibrary then SetString(result, Path, GetModuleFileName(HInstance, Path, SizeOf(Path))) else result := ParamStr(0);end; FastReprt想使用页眉,不是表头(pageHeader),有没有 吐血,排序的问题,星期类型 WebBrowser的问题,自动提交数据 delphi事务处理 DELPHI 原生 ADO 的使用方法难道只有用 CREATEOLEOBJECT 来完成,还有其他方法么?因为我要指定 ADO 的版本! 为什么1024*768的图片不能撑满界面? 请问手机软件到底是如何开发的? 一个全新的问题,等待你来解决!!!(分不够出一声) 这个功能sql语句能实现吗?? 我是这里的新成员,如果有人给我回贴,我怎样给分给他? 如何将XML格式的字符串导入ClientDataSet中 回首…
ShowMessage(ExtractFilePath(Application.ExeName));
var
Path: array[0..MAX_PATH - 1] of Char;
begin
if IsLibrary then
SetString(result, Path, GetModuleFileName(HInstance, Path, SizeOf(Path)))
else
result := ParamStr(0);
end;