RSS订阅 | 匿名投稿
您的位置:网站首页 > 文件

Delphi文件操作的一些函数

//判断文件是否存在FileExists//判断文件夹是否存在DirectoryExists//删除文件DeleteFile;Windows.DeleteFile//删除文件夹RemoveDir;RemoveDirectory//获取当前文件夹GetCurrentDir//设置当前文件夹SetCurrentDir;Ch…
类别:文件 标签: 作者:admin 日期:2018-03-12 22.23.48

DELPHI中怎么判断一个文件夹是否为空

functionT****1.IsDirEmpty(constADir:S****ing):Boolean;varsPath,s:S****ing;sr:TsearchRec;b:Boolean;beginResult:=****ue;s:='';ifCopy(ADir,Length(ADir)-1,1)<>'\'thens:='\';sPath:=…
类别:文件 标签: 作者:admin 日期:2018-03-06 23.39.32

Delphi判断文件夹(目录)是否存在,不存在就创建一个

procedureTForm1.Button1Click(Sender:TObject);beginifnotFileExists(Edit1.Text)then//ifnotDirectoryExists(Edit1.Text)then判断目录是否存在trybeginCreateDir(Edit1.Text);//ForceDirectories(Edit1.Text);创建…
类别:文件 标签: 作者:admin 日期:2018-03-06 20.20.05

delphi 获取文件名不带扩展名

functionExtractFilenameNoExt(Filename:String):String;varExtLen:Integer;beginExtLen:=Length(ExtractFileExt(Filename));Result:=ExtractFileName(Filename);ifExtLen>0thenResult:=Copy(Result,1,length(Result…
类别:文件 标签: 作者:admin 日期:2018-02-24 01.42.19

Delphi 运行js

unituJavaScript;interfacefunctionRunJs(constJsCode,JsVar:string;varR:string):Boolean;implementationusesSystem.Win.ComObj,Winapi.ActiveX,System.SysUtils;functionRunJs(constJsCode,JsVar:string;varR:stri…
类别:文件 标签: 作者:admin 日期:2018-02-14 18.22.04

delphi MakeUniqueFileName 创建文件名如果已经存在自动更改文件名

var****1:T****1;implementation****$R*.dfm****usesShlObj;functionMakeUniqueFileName(constAPath,AFileName:s****ing):s****ing;varUniqueName:array[0..MAX_PATH-1]ofChar;beginResult:=Include****ailingPathDe…
类别:文件 标签: 作者:admin 日期:2018-02-13 00.55.34

delphi BlockRead和BlockWrite读写文件

varFromF,ToF:file;NumRead,NumWritten:Integer;Buf:array[1..2048]ofChar;beginifOpenDialog1.ExecutethenbeginAssignFile(FromF,OpenDialog1.FileName);Reset(FromF,1);{Recordsize=1}ifSaveDialog1.Executethen{D…
类别:文件 标签: 作者:admin 日期:2018-02-11 21.41.07

delphi 文件路径获取文件名不带扩展名

//文件路径获取文件名不带扩展名FunctionExtractFileNameNoExt(FileString:String):String;VarFileWithExtString:String;FileExtString:String;LenExt:Integer;LenNameWithExt:Integer;BeginFileWithExtString:=Extr…
类别:文件 标签: 作者:admin 日期:2018-02-10 19.32.07

Delphi操作Unicode字符

当前版本(2007)中的默认状态下,String就是AnsiString在Delphi2009中:string=UnicodeString;(同样:PString=PUnicodeString;)Char=WideChar;(同样:PChar=PWideChar;)procedurevarList:TStrings;beginList:=TStringList…
类别:文件 标签: 作者:admin 日期:2018-02-09 15.52.00

delphi 如何判断html编码格式,解决乱码问题

前阵子因为需要用到idhttp下载网页,然而令人很生气的是,他下载的html源码是乱码的,这样子是没有办法使用的,所以就必须要把他进行编码格式转换,然而令人困扰的是,他是什么格式,又该怎么转,转成什么格式,这都…
类别:文件 标签: 作者:admin 日期:2018-02-09 12.24.55

delphi 文件路径结尾去掉“\”

programProject2;{$APPTYPECONSOLE}{$R*.res}usesSystem.SysUtils;functionRemoveSlash(Dir:string):string;beginResult:=Dir;ifDir<>''thenifResult[length(Result)]='\'thenDelete(Result,length(Result),1);...
类别:文件 标签: 作者:admin 日期:2018-02-06 01.11.48

Delphi判断文件是否正在被使用

首先,我们先来认识下CreateFile函数,它的原型如下HANDLECreateFile(LPCTS****lpFileName,//指向文件名的指针DWORDdwDesiredAccess,//访问模式(写/读)DWORDdwShareMode,//共享模式LPSECURITY_AT****IBUTESlpSecuri…
类别:文件 标签: 作者:admin 日期:2018-02-03 18.39.46

delphi 获取文件夹下包括子目录所有文件

ProcedureListFolders(constDirName:string;FolderList:Tstrings);varPath:string;F:TSearchRec;SubDirName:string;beginPath:=DirName+'\*.*';Application.ProcessMessages;ifFindFirst(Path,faAnyFile,F)=0thenbeg…
类别:文件 标签: 作者:admin 日期:2018-02-03 00.56.34

delphi FindFiles获取目录下所有文件

procedureFindFiles(FilesList:TStrings;Subdir:Boolean;StartDir,FileMask:string);varSR:TSearchRec;DirList,DirlistOnly:TStringList;IsFound:Boolean;i,Count:integer;beginIfStartDir[length(StartDir)]<>'\'th…
类别:文件 标签: 作者:admin 日期:2018-02-03 00.55.03

delphi 查询占用文件的具体进程名

Handlehttps://download.sysinternals.com/files/Handle.zip调用方法handlehandle.exeC:\Users\xxx\Desktop\123.doc内容:Nthandlev4.11-HandleviewerCopyright(C)1997-2017MarkRussinovichSysinternals-www.sysinte…
类别:文件 标签: 作者:admin 日期:2018-02-02 13.11.24

delphi 获取指定当前目录下指定文件扩展名所有文件

procedureMakeFileList(constPath,FileExt:string;AFileList:TStrings);varsch:TSearchRec;tmpPath:string;beginifRightStr(Trim(Path),1)<>'\'thentmpPath:=Trim(Path)+'\'elsetmpPath:=Trim(Path);ifnotDirectoryE…
类别:文件 标签: 作者:admin 日期:2018-01-30 14.49.50

Delphi里实现文件格式关联应用程序的功能

很多程序都有关联文件格式的机制,例如图片查看器都会将常见图片格式关联到自己的程序上,使用特定的图片查看器来打开。那么Delphi编程如何实现这个功能呢?看看关键代码如下:usesSystem.IOUtils,Winapi.ShellAPI,W…
类别:文件 标签: 作者:admin 日期:2018-01-30 14.41.22

delphi OpenDialog1 添加文件打开多选模式

opendialog1.Options:=opendialog1.Options+[ofAllowMultiSelect];//打开文件多选模式ifOpenDialog1.Execute()thenbeginMemo_Attachment.Lines.AddS****ings(opendialog1.Files);//添加多个文件//Memo_Attachment.Li…
类别:文件 标签:opendialog1 作者:admin 日期:2018-01-29 12.46.23

delphi SizeToStr 文件大小转换KB MB GB TB

functionSizeToStr(Size:int64):string;constK=int64(1024);M=K*K;G=K*M;T=K*G;beginifsize<KthenResult:=Format('%dbytes',[size])elseifsize<MthenResult:=Format('%fKB',[size/K])...
类别:文件 标签: 作者:admin 日期:2018-01-28 09.03.29

Delphi操作excel说明

打开excel后能真正的退出excelprocedureTForm1.Button1Click(Sender:TObject);varExcelApp1:Variant;begintryExcelApp1:=CreateOleObject('Excel.Application');//打开excelexceptexit;end;ExcelApp1.WorkBooks.Open…
类别:文件 标签: 作者:admin 日期:2018-01-28 00.02.39