文件 - 文章分类 - 覆雨翻云

windows中监视用户操作

摘要：是否想为你的Windows加上一双眼睛，察看使用者在机器上所做的各种操作（例如建立、删除文件；改变文件或目录名字）呢？　　这里介绍一种利用Windows未公开函数实现这个功能的方法。　　在Windows下有一个未公开函数SHChangeNotifyRegister可以把你的窗口添加到系统的系统消息监视链中，该函数在Delphi中的定义如下：　　Function SHChangeNotifyR... 阅读全文

posted @ 2010-08-25 23:35 覆雨翻云阅读(604) 评论(0) 推荐(0)

文件夹监视

摘要：unit PublicDir;interfaceuses SysUtils,StrUtils,Classes,Windows,Graphics,ComCtrls, DateUtils,IniFiles,StdCtrls,ShlObj,ShellCtrls,Forms, Messages,Activex; const SHCNE_RENAMEITEM = $1; SHCNE_CREATE = ... 阅读全文

posted @ 2010-08-25 23:03 覆雨翻云阅读(692) 评论(0) 推荐(0)

Delphi中的INI文件管理

摘要：INI 文件在系统配置及应用程序参数保存与设置方面，具有很重要的作用，所以可视化的编程一族，如 VB、VC、VFP、Delphi 等都提供了读写 INI 文件的方法，其中Delphi中操作 INI 文件，最为简洁，这是因为Delphi提供了一个 TInifile 类，使我们可以非常灵活的处理 INI 文件。一、INI 文件的结构：;注释 [小节名] 关键字=值...INI文件允许有多个小节，每个... 阅读全文

posted @ 2010-08-16 00:33 覆雨翻云阅读(182) 评论(0) 推荐(0)

Delphi关于记录文件的操作

摘要：本例子几个变量的说明TFileRec = record 　　//记录定义Day : Integer;...　　//其他定义end;f : File of TFileRec;　　//标准的输入/输出文件FilRec : TFileRec; 　　 //记录数据FileName ; 　　 //记录文件的名称关于记录文件的相关操作(1)记录文件的打开 (2)记录文件的读入和显示(3)记录的增加(4)记录的... 阅读全文

posted @ 2010-08-16 00:17 覆雨翻云阅读(500) 评论(0) 推荐(0)

delphi文件操作

摘要：Delphi中默认有input和output两个文件变量,使用可以不用定义,直接使用.　　但: input:只读、output:只写。用时注意以免引起异常. 文件是由文件名标识的一组数据的集合，文件通常存放在磁盘上。源程序、学生档案记录、图形、音乐等均可以作为文件存储在磁盘上。操作系统是以文件为单位对数据进行管理的，也就是说，如果想读取外存介质上的数据，必须先按文件名找到所指定的文件，然后再从该文... 阅读全文

posted @ 2010-08-16 00:10 覆雨翻云阅读(11214) 评论(0) 推荐(0)

检查文件是否为文本文件

摘要：Function isAscii(Nomefile: String): Boolean; constSett=2048;vari: Integer;F: file;a: Boolean;TotSize, IncSize, ReadSize: Integer;c: Array[0..Sett] of byte;beginIf FileExists(NomeFile) thenbegin{$I-}As... 阅读全文

posted @ 2010-08-15 23:48 覆雨翻云阅读(213) 评论(0) 推荐(0)

Delphi中关于文件、目录操作的函数

摘要：关键词:文件、目录操作 //关于文件、目录操作 Chdir('c:\abcdir'); // 转到目录Mkdir('dirname'); //建立目录Rmdir('dirname'); //删除目录GetCurrentDir; //取当前目录名，无'\'Getdir(0,s); //取工作目录名s:='c:\abcdir';Deletfile('abc.txt'); //删除文件Renamefi... 阅读全文

posted @ 2010-08-15 23:47 覆雨翻云阅读(202) 评论(0) 推荐(0)

如何判断一个文件是不是正在被使用

摘要：关键词:文件状态 function IsFileInUse(FileName: TFileName): Boolean; var HFileRes: HFILE; begin Result := False; if not FileExists(FileName) then Exit; HFileRes := CreateFile(PChar(FileName), GENERIC_READ... 阅读全文

posted @ 2010-08-15 23:47 覆雨翻云阅读(186) 评论(0) 推荐(0)

在Delphi中获取和修改文件的时间

摘要：本文介绍了在Delphi中利用系统函数和Windows API函数调用来获取和修改文件的时间信息的方法。熟悉Windows 95/98的朋友一定经常会用单击鼠标右键的方法来查看所选定的文件的属性信息。在属性菜单中会列出该文件的创建时间、修改时间和访问时间。这些信息常常是很有用的，它们的设置一般都是由操作系统（也就是由Dos/Windows等等）自动完成的，不会让用户轻易修改。这里，我向大家介绍... 阅读全文

posted @ 2010-08-15 23:46 覆雨翻云阅读(827) 评论(0) 推荐(0)

如何读写文本文件

摘要：下面源代码或许对你有些帮助:Procedure NewTxt;Var　F : Textfile;Begin　AssignFile(F, 'c:\ek.txt'); {将文件名与变量 F 关联}　ReWrite(F); {创建一个新的文件并命名为 ek.txt}　Writeln(F, '将您要写入的文本写入到一个 .txt 文件');　Closefile(F); {关闭文件 F}End;Proced... 阅读全文

posted @ 2010-08-15 23:46 覆雨翻云阅读(167) 评论(0) 推荐(0)

获得和相应扩展文件名关联的应用程序的名字

摘要：uses{$IFDEF WIN32} Registry; {We will get it from the registry}{$ELSE} IniFiles; {We will get it from the win.ini file}{$ENDIF}{$IFNDEF WIN32} const MAX_PATH = 144;{$ENDIF}function GetProgramAssociati... 阅读全文

posted @ 2010-08-15 23:46 覆雨翻云阅读(255) 评论(0) 推荐(0)

取得该快捷方式的指向EXE

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObj... 阅读全文

posted @ 2010-08-15 23:45 覆雨翻云阅读(176) 评论(0) 推荐(0)

一些文件操作函数

摘要：FileAge　　　　　　　　　　函数　　　　返回文件已存在的时间 FileClose　　　　　　　　　命令　　　　关闭指定的文件 FileCreate　　　　　　　　　命令　　　　用指定的文件名建立新文件 FileDateToDateTime　　　　函数　　　　将DOS的日期格式转换为DELPHI的日期格式 FileExists　　　　　　　　　函数　　　　检查文件是否存在 Fil... 阅读全文

posted @ 2010-08-15 23:35 覆雨翻云阅读(136) 评论(0) 推荐(0)

文章分类 - 文件