delphi 根据文件扩展名判断文件类型函数写法

functionIsImageFile(constfn:string):Boolean;varextfn:String;beginextfn:=LowerCase(ExtractFileExt(fn)…

Delphi出现 No mapping for the Unicode character exists in the target multi-byte code page 处理方法

当调用TStrings.LoadFromFile(html_file_name,TEncoding.UTF8);出现NomappingfortheUnicodecharacterexists…

delphi 判断 文本文件 utf-8 BOM头

functionUTF8FileBOM(constFileName:s****ing):boolean;vartxt:file;bytes:array[0..2]ofbyte;amt:integer;…

delphi NTFS USN 磁盘文件搜索

对于NTFS磁盘文件，可以通过遍历USN日志来搜索，可以非常快查找文件，上图为我的电脑160多万文件，大概为10…

delphi 分割文件合并文件的函数

//分割文件的函数{参数1是要分割的文件名;参数2是要风格文件的大小,单位是KB}{分割后的文件名扩展名用序号替…

delphi TStreamWriter TStreamReader 流操作3

unitUnit1;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes…

delphi IOUtils 获取当前目录下所有的文件/文件夹

unitfrmMain;interfaceusesSystem.Types,System.IOUtils,Winapi.Windows,Winapi.Messages,System.SysUtils,…

delphi TFileStream 流操作2

unitfrmMain;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Class…

delphi TFileStream流操作1

unitfrmMain;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Class…

delphi INI文件操作用法

unitUnit1;interfaceusesSystem.IOUtils,System.IniFiles,Winapi.Windows,Winapi.Messages,System.SysUtils…

delphi 查看指定文件是否在进程列表中

usestlhelp32;//查看指定文件是否在进程列表中functionFileInProcessList(strFileName:string):Boolean;var…

delphi 取当前目录下所有文件夹名和文件名

procedureSearchLangFiles(constDir:string;List:TStrings;IsDir:Boolean);varSearchRec:TSearchRec;F:Inte…

delphi TStringList UTF8编码保存并开启BOM

varSl:TStringList;beginSl:=TStringList.Create;Sl.DefaultEncoding:=TEncoding.UTF8;Sl.WriteBOM:=True;T…

delphi 判断是否为文件名

functionIsBaseFileName(constFileName:string):Boolean;beginResult:=(FileName<>'')and(ExtractFileName(…

delphi 长文件路径转换短文件路径

转换前：C:\Users\zhangshuai\Desktop\codesnip-develop\codesnip-develop转换后：C:\Users\ZhangSH~1\Desk…

delphi 取文件目录下所有文件名和文件目录名

unitUnit1;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes…

delphi IsDirectory 判断是否是目录

functionIsDirectory(constDirName:string):Boolean;beginResult:=DirectoryExists(DirName);end;

Delphi 从 .lnk 文件获取真正路径的程序

unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,Ac…

Delphi 相对路径和绝对路径的转换

(*相对路径和绝对路径的转换*)unitxPath;interfaceusesShlwApi,Windows,SysUtils;//////取绝对路径的函数。…

delphi 相对路径

delphi相对路径..代表上级目录.代表当前目录\代表目录分隔..\..\表上上一级目录