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...
ExtractFilePath 传回值的最後一个字元是反斜杠“/”。 ShowMessage(ExtractFileDir(Application.Exename));// 返回值为 c:/temp ShowMessage(ExtractFilePath(Application.Exename));// 返回值为 c:/temp/相同点: 如果执行文件在根目录下(如:C:/SAMPLE.EXE)的话, 两者的传回值相同, 且最后一个字符都是“/...
ShellExecute不能接受字符型的参数，应该是 ShellExecute(Handle,'open','Explorer.exe',pchar(edt6.Text+'直连数据库'),nil,1);ShellExecute(Handle,'open','Explorer.exe',PChar(edt6.Text+'直连数据库'),nil,1);或者ShellExecute(Handle,'open',PChar(edt6.Text+'直连数据库'), '', ‘...
if OpenDialog1.Execute then begin showmessage(ExtractFileName(OpenDialog1.FileName));end;end;以上例子为：当点击Button1时，弹出选择文件后，显示所选的文件名称（含扩展名）。ExtractFileName(extractfilepath(application.ExeName)+'jpgf'+'.jpg')ShowMessage(ExtractFileDir(Application.Exename));...
extractFilepath(application.exeName); //获取某个程序的目录,有斜'\' ExtractFilePath(ParamStr(0)); //获取当前运行文件的目录,有斜'\' ExtractFileDir(Application.Exename); //获取某个程序的目录,无斜'\' ExtractFileName('C:\test\123.txt'); //取得文件名 123.txt ...
注:MySysPath为SYSTEM路径 得到程序的路径 ExtractFileDir(Application.Exename); 察看文件是否存在 FileExists(FileName:String):Boolean; 改变文件扩展名 ChangeFileExt(FileName:String) 得到文件的扩展名 ExtractFileExt(FileName:String):String; 如何取得Windows的临时文件目录?
在应用上添加一个TIdSMTP及TIdMessage,最后再添加一个IdAttachmentFile的单元引用。 主要代码 implementation uses IdAttachmentFile; procedure TForm1.Button1Click(Sender: TObject); var apath: string; begin apath := ExtractFilePath(Application.ExeName); //当前应用路径 ...
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+'线路参...
用这句话就ok了。ExtractFilePath(Application.ExeName)function
1.ExeName。ExtractFileName(Application.ExeName)得到文件名: ExtractFilePath(Application.ExeName)得到全路径,到最后一层目录,不包括应用程序。 ExtractFileExt(Application.ExeName)得到文