ExtractFileDir 与 ExtractFilePath 的差别ExtractFileDir从文件名称中获取文件夹名(文件不在根文件夹下时取得的值后没有“/”，在根文件夹时一样，都是盘符，比如“C:/”) ExtractFilePath从文件名称中获取路径名(文件不在根文件夹下时取得的值后有...
转载
2015-01-05 09:16:00
140阅读
2评论
ExtractFileDir 与 ExtractFilePath 的区别 ExtractFileDir 从文件名中获取目录名(文件不在根目录下时取得的值后没有“/”，在根目录时一样，都是盘符，例如“C:/”) ExtractFilePath 从文件名中获取路径名(文件不在根目录下时取得的值后有“/”
转载
2020-03-11 20:22:00
146阅读
2评论
ExtractFileDir 与 ExtractFilePath 的差别ExtractFileDir从文件名称中获取文件夹名
转载
2014-11-09 14:07:00
32阅读
2评论
XmlTrans:=TXMLTransform.Create(self);
XmlTrans.SourceXmlFile:=ExtractFilePath(Application.ExeName)+'report.xml';
XmlTrans.TransformationFile:=ExtractFilePath(Application.ExeName)+'report.xtr';
原创
2021-07-29 15:14:34
587阅读
wDoc := docapp1.Documents.open(ExtractFilePath(Paramstr(0)) + 'abc.doc'); wDoc.SaveAs(ExtractFilePath(Paramstr(0)) + 'tmp\2.rtf', wdFormatRTF); wDoc.c
转载
2016-04-12 09:49:00
123阅读
2评论
procedure TForm1.Button1Click(Sender: TObject);var a,b,c:string;begin a:=ExtractFilePath(paramstr(0)); b:=copy(a,1,length(a)-1); showmessage(ExtractFilePath(b + '..'));
end;
原创
2009-08-08 19:03:54
1048阅读
Delphi中获取路径的函数 //********获取当前路径***************GetCurrentDir() //获取当前的Windows打开的目录，无斜'\'extractFilepath(application.exeName); //获取某个程序的目录，有斜'\'ExtractFilePath(ParamStr(0)); //获取当前运行文件的目录，有斜'\' ExtractFileDir(Application.Exename); //获取某个程序的目录，无斜'\'ExtractFileName('C
转载
2011-09-16 14:27:00
333阅读
2评论
第一种：(普通批处理方式)
procedure DeleteMe;
var
BatchFile: TextFile;
BatchFileName: string;
ProcessInfo: TProcessInformation;
StartUpInfo: TStartupInfo;
begin
BatchFileName := ExtractFilePath(ParamStr(0
转载
精选
2010-03-26 11:55:34
822阅读
procedure DeleteMe;var BatchFile: TextFile; BatchFileName: string; ProcessInfo: TProcessInformation; StartUpInfo: TStartupInfo;begin BatchFileName := ExtractFilePath(Pa
转载
2008-04-01 13:52:46
910阅读
FileList.Strings[i] 是文件路径(含文件名)：
StringReplace(FileList.Strings[i],ExtractFilePath(FileList.Strings[i]),'',[rfReplaceAll])
转载
2010-11-11 12:56:00
84阅读
2评论
批量删除同类文件的函数
procedure DelFiles(f: string);
var
SearchRec: TSearchRec;
begin
ChDir(ExtractFilePath(f)); //进入文件路径
FindFirst(f, faAnyFile, SearchRec)
原创
2021-04-30 15:06:51
420阅读
获取程序所在目录
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(ExtractFilePath(ParamStr(0))); //获取程序所在目录
ShowMessage(ExtractFile
原创
2021-04-30 15:23:30
364阅读
//需要引用IniFiles uses system.IniFiles; //保存INI配置文件 procedure TForm1.btnSaveClick(Sender: TObject); var myIniFile: TIniFile; filepath: string; begin filepath := ExtractFilePath(Application.Exen...
转载
2019-08-04 09:30:00
226阅读
2评论
filename:='c:\mypath\myfile.exe'; ExtractFileDir(Filename);-->'c:\mypath' ExtractFilePath(Filename);-->'c:\mypath\' ExtractFileName(FileName);-->'myf
原创
2009-08-08 12:00:11
484阅读
function HtmlHelpA(hwndcaller:Longint;lpHelpFile:string;uCommand:Longint;dwData:string):HWND;stdcall;external 'hhctrl.ocx'例句:HtmlHelpA(self.handle,ExtractFilePath(Application.ExeName)+'pbtool.chm',0,'gaishu.html');
转载
2008-09-23 22:09:00
168阅读
2评论
var aIP, aSubMask, aDns, aGateWay, ipcmd, dnscmd: string; ini: TIniFile;begin try ini := TIniFile.Create(ExtractFilePath(Paramstr(0)) + 'Ipconfig.cfg'); aIP := ini.ReadString('Main', 'i
原创
2023-08-31 10:31:44
58阅读
DELPHI基础开发技巧(二)
◇[DELPHI]如何计算一个目录的大小
function GetDirectorySize(const ADirectory: string): Integer;
var
Dir: TSearchRec;
Ret: integer;
Path: string;
begin
Result := 0;
Path := ExtractFilePath(ADirecto
转载
2024-06-18 15:16:47
146阅读
WPath := ExtractFilePath(ParamStr(0));
frReport1.Clear;
frReport1.dataset := nil;
frReport1.LoadFromFile(WPath +'门诊发票.frf
原创
2012-12-05 11:44:06
1084阅读
var F: Text; //TextFile 和 Text 是一样的---------------------------------- filename := ExtractFilePath(Application.ExeName) + '院感病历导入记录.txt'; if FileExists(f
原创
2016-03-23 14:22:02
485阅读
一、读INI文件示例 procedure TForm1.FormCreate(Sender: TObject);
Var
MyIni :Tinifile;
glAppPath :string;
begin
glAppPath := ExtractFilePath(Application.ExeName);//获取当前运行程序的路径
MyIni := Tinifile.Create
