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

delphi FileSearch 获取指定文件夹下所有文件包括隐藏文件

procedureFileSearch(constPathName,FileName:string);varRec:TSearchRec;Path:string;beginPath:=IncludeTrailingPathDelimiter(PathName);ifFindFirst(Path+FileName,faAnyFile-faDirectory,Rec)=0thentryrepeatLi…
类别:文件 标签: 作者:admin 日期:2018-01-14 13.03.20

delphi DeleteDirectory 删除目录下所有文件包括子文件夹下所有文件

procedureDeleteDirectory(constName:string);varF:TSearchRec;beginifFindFirst(Name+'\*',faAnyFile,F)=0thenbegintryrepeatif(F.AttrandfaDirectory<>0)thenbeginif(F.Name'..')thenbegin...
类别:文件 标签: 作者:admin 日期:2018-01-14 12.41.26

delphi TSearchRec

TSearchRecFindFirst是用来寻找目标目录下的第一个文件,FindNext则是寻找下一个TSearchRec是一个文件信息的纪录,当FindFirst返回SearchRec时,你可以通过SearchRec.Name获取文件名,以及SearchRec.Size获取文件大小…
类别:文件 标签: 作者:admin 日期:2018-01-14 11.56.40

delphi 获取打开文件的PID

varSI:TStartupInfo;PI:TProcessInformation;pid:DWORD;beginZeroMemory(@SI,SizeOf(SI));//ZeroMemory宏用0来填充一块内存区域SizeOf//Pascal的一种内存容量度量函数ZeroMemory(@PI,SizeOf(PI));SI.cb:=SizeOf(SI);…
类别:文件 标签: 作者:admin 日期:2018-01-14 10.59.18

Delphi 用文件流读取文本文件字符串的方法

procedureTForm23.Button4Click(Sender:TObject);varpstr:Pchar;mestr,Str1:string;FS:TFilestream;meint,PoStr,I,LenStr:integer;Fpos:Int64;TT,IsDay:Boolean;Liststr:TStringList;beginifnotSelf.OpenDialog1.Exe…
类别:文件 标签: 作者:admin 日期:2018-01-13 20.27.14

Delphi读写二进制文件

二进制文件(也叫类型文件),二进制文件是由一批同一类型的数据组成的一个数据序列,就是说一个具体的二进制文件只能存放同一种类型的数据。typeTMember=recordName:string[10];eMail:string[20];Posts:LongInt;end…
类别:文件 标签: 作者:admin 日期:2018-01-13 15.15.30

Delphi SetFileAttributes 功能:修改文件属性

SetFileAttributes功能:修改文件属性这是一个修改文件属性的API使用下面WINDOWSAPI函数functionSetFileAttributes(lpFileName:PChar;dwFileAttributes:DWORD):BOOL;stdcall;{$EXTERNALSYMSetFileAttributes}function…
类别:文件 标签: 作者:admin 日期:2018-01-13 13.50.52

delphi 如何读取文件头 判断文件类型

functiomGetFileType(FileName:String):string;varMyImage:TMemoryStream;Buffer:Word;i:integer;beginResult:='Err';MyImage:=TMemoryStream.Create;tryMyImage.LoadFromFile(FileName);MyImage.Position:=0; .…
类别:文件 标签: 作者:admin 日期:2018-01-13 13.21.56

delphi TStringList 用法详解

//TStringList常用方法与属性:varList:TStringList;i:Integer;beginList:=TStringList.Create;List.Add('Strings1');{添加}List.Add('Strings2');List.Exchange(0,1);{置换}List.Insert(0,'Strings3');{插入}i:=...
类别:文件 标签:TS****ingList 作者:admin 日期:2018-01-11 16.01.17

delphi 方便的文本文件操作(TEXT)

FText:Text;//只能定义为成员或全局AssignFile(FText,edt1.Text);//打开文件Rewrite(FText);//只能一行一行的写Writeln(FText,'aaa');Writeln(FText,'aaa');Writeln(FText,'aaa');Writeln(FText,'aaa');Writeln(FTex…
类别:文件 标签: 作者:admin 日期:2018-01-11 09.49.25

delphi NativeExcel获取Excel所有列

当我们打开一个Excel文件时,我们往往需要将它的数据进行处理,比如获取文件中所有行和列的数据,并进行显示。这里,我简单的演示一下如何列举所有列名:procedureTForm1.Button1Click(Sender:TObject);Varbook:IXLS…
类别:文件 标签: 作者:admin 日期:2018-01-08 20.43.14

delphi 获取一个文件夹下的一级目录

functionTForm1.GetFolders(MainPath:string):TStringList;varSearchRec:TSearchRec;sMainpath:String;list:TStringList;beginlist:=TStringList.Create;ifMainPath[Length(MainPath)]='\'thensMainpath:=MainPathel…
类别:文件 标签: 作者:admin 日期:2018-01-07 15.02.42

delphi 文件夹拷贝子文件及文件夹

functionTForm1.CopyPath(BasePath,TargetPath:string):Boolean;vari:Integer;cmd:string;begincmd:='echod|Xcopy'+BasePath+''+TargetPath+'/s/e';ShowMessage(cmd);i:=ShellExecute(Handle,nil,'cmd.exe',PChar('/…
类别:文件 标签: 作者:admin 日期:2018-01-07 15.01.48

delphi删除文件夹

删除空文件夹:RemoveDirRemoveDirectory删除文件夹及文件及子文件夹functionTForm1.DelDirectory(constSource:string):Boolean;varfo:TSHFILEOPSTRUCT;beginFillChar(fo,SizeOf(fo),0);withfodobeginWnd:=0;wFunc:=…
类别:文件 标签: 作者:admin 日期:2018-01-07 15.01.04

Delphi RTF文件转Txt函数

原理:借用TRichEdit组件,TRichEdit可以读取RTF文件并且显示出文本内容,将文本内容保存就可以了procedureRtfToText(rtfStrs,textStrs:TStrings);varrtfEditor:TRichEdit;begin//rtf文本转换成txt文本ifAssigned(rt…
类别:文件 标签: 作者:admin 日期:2018-01-03 22.32.50

delphi 判断目录是否可写

FUNCTIONWritableDir(CONSTDir:STRING):BOOLEAN;VARFIL:FILE;N:STRING;I:Cardinal;BEGINREPEATN:=IncludeTrailingPathDelimiter(Dir);FORI:=1TO250-LENGTH(N)DON:=N+CHAR(RANDOM(26)+65)UNTILNOTFileExists(N);</d..…
类别:文件 标签: 作者:admin 日期:2018-01-02 16.14.46

Delphi的Dll中获取文件路径

一、获取Dll自身路径1)方法一:FunctionGetDllPath(sDllName:string):string;varModuleFileName:array[0..255]ofchar;begin//{取得dll的实际位置}GetModuleFileName(GetModuleHandle(sDllName),@ModuleFileName[0],…
类别:文件 标签: 作者:admin 日期:2018-01-02 15.29.32

Delphi 快速读取TXT 指定行的数据

继上次的问题。在提取了大量的Email数据后。现在读取数据成了一个问题。今天我取过1~100w的数据。明天我要取100w~200w的数据。在不用数据库的情况下,我搞了一个下午。DelphiTstringlist和textfile的简单读取是满足不…
类别:文件 标签: 作者:admin 日期:2018-01-02 11.47.30

delphi TFileStream和TMemoryStream分别读取、创建、合并文件

functionTform1.Test;varfs:TFileStream;fs2:TFileStream;fs3:TFileStream;str:string;ms:TMemoryStream;ms2:TMemoryStream;sr:TStream;begin//TFileStream创建文本文件str:='文件操作';fs:=TFileStream.Create('c:\…
类别:文件 标签: 作者:admin 日期:2018-01-01 18.15.20

delphi 判断文件类型函数

functiomGetFileType(FileName:S****ing):s****ing;varMyImage:TMemoryS****eam;Buffer:Word;i:integer;beginResult:='Err';MyImage:=TMemoryS****eam.Create;****yMyImage.LoadFromFile(FileName);MyImage.…
类别:文件 标签:文件类型 作者:admin 日期:2018-01-01 18.08.18