怎样取得当前程序文件(EXE文件)所在目录?急!在线等 在线等 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Extractfilepath(application.exename) Extractfilepath(application.exename)bcb Extractfilepath(application->exename) Extractfilepath(application.exename) var oldpath:string;begin getdir(0,oldpath); showmessage(oldpath);end; ExtractFilePath(ParamStr(0))或Extractfilepath(application.exename) procedure TMainFrm.GetAppDir(var AppDir: string);var hModule:THandle; buf:array [0..MAX_PATH-1] of char;begin hModule:=GetModuleHandle(nil); GetModuleFileName(hmodule,buf,sizeof(buf)); AppDir:=buf;end; 另一种办法: copy(application.exename,0,length(application.exename)-{在此是你的可执行文件名长度(包括扩展名)); 求助: 数据插入的问题 怎样用delphi的Socket控件与Linux通讯 我想用delphi做一个发送邮件的程序不知道该怎么做? 在Delphi5中怎么才能得到网卡的Mac地址 程序员如何保护自己? 请照顾新手--TADOQuery中使用sql语句的*怪*问题!请帮我,万能的网友们! 急救!!急救!!关于dbgrid的记录,用232串口录入的方法!(结贴送分) EHLIB组件哪里有? 请大家提供一个类似OICQ那样的控件,可以在哪里得到。 一个关于TWebBrowser的问题 农村的孩子,不读书,还有别的出路吗? fastreport的宽度不足,怎么解决?
bcb Extractfilepath(application->exename)
begin
getdir(0,oldpath);
showmessage(oldpath);
end;
或
Extractfilepath(application.exename)
procedure TMainFrm.GetAppDir(var AppDir: string);
var
hModule:THandle;
buf:array [0..MAX_PATH-1] of char;
begin
hModule:=GetModuleHandle(nil);
GetModuleFileName(hmodule,buf,sizeof(buf));
AppDir:=buf;
end;