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

Delphi文本文件的写操作

Delphi有关文本文件的操作,经整理后,我将其封装成了一个函数,以方便以后的使用,访函数代码如下://将帐号信息写入文本文件函数procedureTForm1.WriteUserToText(user:String;pass:String);vartxt:TextFile;begin/…
类别:文件 标签:文本 作者:admin 日期:2013-10-11 20.45.46

Delphi 得到文件创建时间,修改时间,访问时间

procedureTForm1.Button1Click(Sender:TObject);varFileOp:TOFStruct;FHandle:THandle;FInfo:TByHandleFileInformation;dtCreate:TSystemTime;Temp:_FileTime;beginmemo1.clear;setlasterror(20);FHandle:=openfile(…
类别:文件 标签: 作者:admin 日期:2013-10-10 20.27.07

delphi 写日志函数

procedureTFrm_main.writelog(str:string);varF:TextFile;S,FilePath:String;qFileStream:TFileStream;beginFilePath:=ExtractFilePath(ParamStr(0))+'logfile.ini';IfnotFileExists(FilePath)thenbeginqFileStream:…
类别:文件 标签: 作者:admin 日期:2013-10-10 20.20.42

delphi获取本地全部盘符并存如combobox1

varDriveNum:Integer;DriveChar:Char;DriveType:TDriveType;DriveBits:setof0..25;beginmonitorthread:=nil;combobox1.clear;Integer(DriveBits):=GetLogicalDrives;forDriveNum:=0to25dobeginif&nb...
类别:文件 标签: 作者:admin 日期:2013-10-10 20.16.36

delphi IOUtils单元查找文件夹高级功能

IOUtils单元,查找文件夹内信息的getfile函数,还可以在内部嵌套函数,提升其功能的扩展,非常好用!代码部分:unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialog…
类别:文件 标签: 作者:admin 日期:2013-10-10 19.57.00

delphi IOUtils单元查找文件夹下所有文件

用IOUtils单元下的TDirectory.GetFiles获取文件列表太方便了;下面的例子只是TDirectory.GetFiles的典型应用...unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs…
类别:文件 标签: 作者:admin 日期:2013-10-10 19.56.19

delphi IOUtils单元3查找并搜索文件夹信息

IOUtils单元3查找并搜索文件夹信息unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)mmo1:TMemo;btn1:TButton;btn2:TButton;p…
类别:文件 标签: 作者:admin 日期:2013-10-10 19.49.31

delphi IOUtils 单元(5): TDirectory.TDirectory 的其他功能

****irectory.CreateDirectory();
类别:文件 标签: 作者:admin 日期:2013-10-10 19.38.56

delphi IOUtils 单元(6): TPath(结构体)路径的提取和处理

之前复杂的ExtractFilePath这类的函数总算有新的替换者了。//较常用的方法:TPath.GetTempPath;{获取临时文件夹路径}TPath.GetTempFileName;{获取一个临时文件名}TPath.GetPathRoot();&nbs...
类别:文件 标签: 作者:admin 日期:2013-10-10 19.35.32

delphi 获取文件所在路径

//delphi获取文件所在路径ExtractFileDrive:返回完整文件名中的驱动器,如"C:"ExtractFilePath:返回完整文件名中的路径,最后带“/”,如"C:/test/"ExtractFileDir:返回完整文件名中的路径,最后不带“/”,如"C:/…
类别:文件 标签: 作者:admin 日期:2013-04-05 19.56.13

Delphi从外部拖拽文件

1.引用ShellAPI单元2.定义AppOnMessage,拦截处理拖拽文件操作3.设置接收拖拽文件的对象。DragAcceptFiles(listview1.Handle,****ue);4.定义对拖拽文件的具体操作WMDropFiles(varMsg:TWMDropFiles);unitUnit1;//Delp…
类别:文件 标签:拖拽 作者:admin 日期:2013-04-02 21.54.53

delphi获取文件编码

//delphi获取文件编码unitEncodeUnit;interfaceusesSysUtils,Windows,Classes;typeTTextFormat=(tfAnsi,tfUnicode,tfUnicodeBigEndian,tfUtf8);constTextFormatFlag:array[tfAnsi..tfUtf8]ofWord=($0000,$FFFE,$FEFF…
类别:文件 标签: 作者:admin 日期:2013-04-02 16.42.58

delphi 文件路径相关的字符串操作

//delphi文件路径相关的字符串操作usesHTTPApp,Masks;procedureTForm1.Button1Click(Sender:TObject);varss,s:string;begin//先提取一个文件名的字符串ss:=Application.ExeName;ShowMessage(ss);//C:\DocumentsandSe…
类别:文件 标签: 作者:admin 日期:2013-04-02 16.40.19

Delphi 删除只读文件

Delphi中调用DeleteFile删除文件,但是DeleteFile不能删除只读文件。如果要删除只读文件,应该将其只读属性去掉,在调用DeleteFile来删除。SetFileAttributes(fileName,file_attribute_normal);DeleteFile(fileName)…
类别:文件 标签: 作者:admin 日期:2013-04-02 15.20.08

delphi 打开文件夹并定位到一个文件

单元:shellapistrFileName:=FcxLV[nIndex].Items.Item[FcxLV[nIndex].ItemIndex].SubItems.Strings[0];//路径ShellExecute(0,nil,PChar('explorer.exe'),PChar('/e,'+'/select,'+strFileName),nil,SW_NORMAL);
类别:文件 标签: 作者:admin 日期:2013-03-25 16.19.06

Delphi 文件夹操作

usesShellApi//建立文件夹procedureTfrmMain.cxButton1Click(Sender:TObject);beginCreateDirectory(PChar(ExtractFilePath(ParamStr(0))+'Microblue'),nil);end;//删除文件夹,放到回收站procedureTfrmMain.cxButto…
类别:文件 标签: 作者:admin 日期:2013-03-25 16.10.42

delphi 监控系统文件操作

你是否想为你的Windows加上一双眼睛,察看使用者在机器上所做的各种操作(例如建立、删除文件;改变文件或目录名字)呢?这里介绍一种利用Windows未公开函数实现这个功能的方法。在Windows下有一个未公开函数SHChang…
类别:文件 标签: 作者:admin 日期:2013-03-25 16.02.03

Delphi Windows API判断文件共享锁定状态

一、概述锁是操作系统为实现数据共享而提供的一种安全机制,它使得不同的应用程序,不同的计算机之间可以安全有效地共享和交换数据。要保证安全有效地操作共享数据,必须在相应的操作前判断锁的类型,然后才能确定数…
类别:文件 标签: 作者:admin 日期:2013-03-25 16.00.01

delphi TFileStream 的读写 合并文件

TFileStream的读写合并文件向TFileStream中写入字符串的问题sbuff:TString;S1:Tfilestream;S1.write(sbuff,length(sbuff))是乱码S1.write(pChar(sbuff)^,length(sbuff)))是对的~求解释S1.write(sbuf…
类别:文件 标签: 作者:admin 日期:2013-03-25 15.44.57

delphi ShellExecute 打开文件夹

单元shellapiShellExecute(Handle,'open','Explorer.exe',PChar(GetCurrentDir),nil,SW_NORMAL);
类别:文件 标签: 作者:admin 日期:2013-03-25 15.43.27