ExtractFilePath(Application.ExeName) + 'res\logo.jpg'。这里面 Application.ExeName 的值是应用程序所在 的绝对路径 "c:\temp\Project1.exe" ,使用ExtractFilePath()得到的就是“c:\temp\”,也就是当前这个应 用程序所在的目录,正是我们想要的东西,最后把字符串连接,得到的结果就是 “c:\temp\res\logo....
Exe程序: DLL程序: ExtractFilePath(Application.ExeName) GetCurrentDir TIniFile.Create(GetCurrentDir + '\chis.ini'); TIniFile.Create(ExtractFilePath(Application.ExeName)+'chis.ini') paramstr(0) 代表这个exe文件的本地路径. 假如你这个编译好的exe文件在 d:\delphi下,名字叫做 project1.exe 那么params...
ExtractFileExt(FileName:String):String; SysUtils 单元中有 ExtractFileDir 与 ExtractFilePath两个类似的函数, 用哪一个?没有太大的关系。 不过有以下的差别: ExtractFilePath 传回值的最後一个字元是反斜杠"/"。 通过tapplication.exename特性可以获取当前进程的进程和文件名,要从中提取信息, 可以调用下列函数:...
2. glAppPath := ExtractFilePath(Application.ExeName);获取当前运行程序的路径,记得要设置一下程序的输出路径才行否则程序路径是安装delphi的路径,设置方法:project->options->Directories/Coditionals的属性设为 Output directory :E:\prj\ini文件(即程序保存路径) Unit output directory :E:\prj\ini文件(即程序...
ExtractFileName(文件完整路径 含文件名)例：procedure TForm1.Button1Click(Sender: TObject);begin if OpenDialog1.Execute then begin showmessage(ExtractFileName(OpenDialog1.FileName));end;end;以上例子为：当点击Button1时，弹出选择文件后，显示所选的文件名称（含扩展名）。
procedure TBFSA.readparamt;var vA,vL,vT,vNd,vLd,vS,vH,vNum: textfile;outf: textfile;vTempStr: string;i,indx: integer;wahveyPath: String;begin wahveyPath:=ExtractFilePath(application.exename);AssignFile(vA,wahveyPath+'算法参数.txt');AssignFile(vL,wahveyPath+'线路参...
定义如下: property ExeName: string; ExeName是只读属性。使用ExeName能够得到应用程序可执行文件的文件名。 这是一个很有用的属性。例如,运行光盘中的应用程序 f:mediamyapp.exe 时,可能需要访问目录 f:mediadata 中的文件或者确定应用程序所在的驱动器盘符。 这时可以使用Delphi提供的函数ExtractFilePath和Extract...
conServer.Params.Database:=ExtractFilePath(Application.ExeName) + 'SC.db'; conServer.LoginPrompt:=False; conServer.Connected:=True; 当然,以上连接是代码的设置,如果要正确的运行连接,还需要在窗体中增加两个控件,FDPhysSQLiteDriverLink1和FDGUIxWaitCursor ...
1.ExeName。ExtractFileName(Application.ExeName)得到文件名: ExtractFilePath(Application.ExeName)得到全路径,到最后一层目录,不包括应用程序。 ExtractFileExt(Application.ExeName)得到文
用这句话就ok了。ExtractFilePath(Application.ExeName)