在Delphi 7.0中,已为我们定义好了非常多的函数,大致分类有6种:数据类型转换函数.字符串.数组操作函数.文件.磁盘操作函数.内存.指针操作函数.数学运算函数.日期函数. 在Delphi中调用函数,一般情况下可以直接使用函数即可,但由于有一些函数未包含在Uses中列出的单元中(默认单元有Windows,Messages,SysUtils,Variants,Classes,Graphics, Controls,Forms,Dialogs;),所以需要我们手动添加单元.比如,MidStr函数就

delphi 监控文件系统 delphi 监控文件系统 你是否想为你的Windows加上一双眼睛,察看使用者在机器上所做的各种操作(例如建立.删除文件:改变文件或目录名字)呢? 这里介绍一种利用Windows未公开函数实现这个功能的方法. 在Windows下有一个未公开函数SHChangeNotifyRegister可以把你的窗口添加到系统的系统消息监视链中,该函数在Delphi中的定义如下: Function SHChangeNotifyRegister(hWnd,uFlags,dwEvent

文件的拖放和打开拖拽 user shellapi type TForm1 = class(TForm) ListView1: TListView; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } procedure AppMessage(var Msg: TMsg; var Handled: Boolean);///////消息处理函数 e

/// <remarks> /// 重命名文件夹 引用ShellAPI /// </remarks> function ReNameDirectort(SourceDirectort, DestinationDirectort: string): Boolean; var pDirOperate: TSHFileOpStruct; begin Result := False; if not DirectoryExists(SourceDirectort) then Exit; Fi

对于日常办公过程中,每天面对的操作离不开文件.文件夹的操作,当然可以用资源管理器.Everything之类的管理软件来管理.但涉及到批量操作时,在Excel环境或许是个更好的方式,前面很多的内容中不断地有使用过部分的文件.文件夹的函数,今天系统给大家介绍下在Excel催化剂里所开发出的文件.文件夹相关的函数. 文章出处说明 原文在简书上发表,再同步到Excel催化剂微信公众号或其他平台上,文章后续有修改和更新将在简书上操作, 其他平台不作同步修改更新,因此建议阅读其他出处的文章时,尽可能跳转回简

如题,研究了一天,也没再网上找到比较好的方式,自己做了一个.方法如下: 1.创建一个 cmd 命令文件.2.调用该命令. 代码如下:   S:='echo y|cacls h: /t /c /g everyone:F';  AssignFile(F, 'c:\FolderRight.cmd');    rewrite(f);  Append(F); // 以追加的方式打开文件   Writeln(F, S); // 将S变量中的内容追加到文本尾后.   CloseFile(F); // 关闭文件

文件夹相关函数介绍 //mkdir 函数创建文件夹 #include <sys/stat.h> #include <sys/types.h> int mkdir(const char *pathname, mode_t mode); //rmdir 删除文件夹 #include <unistd.h> int rmdir(const char *pathname); //dopendir/fdopendir  //打开文件夹 DIR是一个结构体,是一个内部结构,用来存储读

在过往的功能中,有体现出在Excel上管理文件的极大优势,在文件的信息元数据中,有图片和音视频这两类特有的属性数据,此篇对过往功能的一个补充,特别增加了图片和音视频信息的遍历功能. 使用场景 在文件管理过程中,需要对其文件的属性数据如文件大小.创建时间.修改时间等信息进行管理,在现有的一些工具软件中,暂没有发现有对文件信息元数据进行管理导出的功能,特别是在一些图片.视频这样的文件中,有更多的文件信息存储在其中,如图片文件的尺寸.音视频的播放时长等数据,当拿到手后,可以对文件管理的分类更为细化.

delphi项目中的modelsupport文件夹 今天写着写着突然发现多了一个这个文件夹..苦思不得其解  看着又难受  删了又重建 终于找到了  存此备查;Tools--option--together--general--Automatically enable Together support  改成false  然后回到项目中,在项目上右键 remove file  把那文件夹下的几个文件都选择删除了 同时,在项目上右键,选择TogetherSupport 在弹出窗中去掉勾选的内容 o

/// <remarks> /// 遍历文件夹 (引用SysUtils单元) /// </remarks> procedure TfrmMusicMenu.SearchInDir(sDirectory: string); var pSearchRec: TSearchRec; // TSearchRec是delphi为我们定义好的一个记录类型. // 用于记录文件的各个参数,比如大小,属性,文件名等等: sPath, sFile: string; begin try // 检查目录

Delphi 弹出Windows风格的选择文件夹对话框, 还可以新建文件夹     unit Unit2; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, FileCtrl, Buttons, shlobj,ActiveX; type  TForm2 = class(TForm)    Button1: TButton;  

Delphi遍历文件夹及子文件夹 {-------------------------------------------------------------------------------过程名:    MakeFileList 遍历文件夹及子文件夹作者:      SWGWEB日期:      2007.11.25参数:      Path,FileExt:string   1.需要遍历的目录 2.要遍历的文件扩展名返回值:    TStringList Eg:ListBox1.Item

Delphi Project Structure Folder Organization http://delphi.about.com/od/delphitips2008/qt/project_layout.htm I've been developing in Delphi for the past 10+ years (from Delphi 1). Every version brings some new features - new controls, new build optio

1.获取不带扩展名的文件名方法,利用ChangeFileExt函数修改传入参数的扩展为空,并不会对文件本身产生变更. ChangeFileExt(ExtractFileName('D:\KK\Test\123.txt'),''); //返回 123 2.获取上级文件夹路径的方法. ExtractFileDir('D:\KK\Test\')+'..'; //返回 D:\KK\ 3.获取完整文件或文件夹路径中的驱动器. ExtractFileDrive('D:\KK\Test\'); //返回 D:

function TFtpContentThd.DeleteDirectory(NowPath: string): Boolean; var search: TSearchRec; ret: integer; key: string; begin if NowPath[Length(NowPath)] <> '\' then NowPath := NowPath + '\'; key := NowPath + '*.*'; ret := findFirst(key, faanyfile, se

实在是没有想到删除.SVN文件夹是件这么痛苦的事情,最近在整理公司历史资料文件,粗略统计一下600G左右,本想一次提交到服务器上省事,没想到啊没想到,传输中途程序崩掉了,本地文件夹剩下一大堆.svn文件夹.服务器上鉴于原子性什么也没有传上去,还消耗了一大堆空间,打算重新做!准备用系统的查找删除,Win7那个搜索太操蛋了,不能指定类型,时间段,而且整个过程慢——搜索慢.选择慢.执行命令前整理慢.忍无可忍,找相关能指定文件夹删除的工具基本没有,写代码了(未作测试). 国庆下班了,节后在试 proce

内主要就是 TZipFile 类, 最方便使用的是它的类方法: TZipFile.ExtractZipFile() //解压 Zip 文件到指定文件夹 TZipFile.IsValid() //判断指定文件是否是有效的 Zip 文件 TZipFile.ZipDirectoryContents() //压缩指定路径下的所有文件 测试: uses System.Zip; { 把 C:\Temp\TestDir 下的所有文件压缩到 C:\Temp\Test.zip } procedure TForm1

选择文件夹,路径选择, 文件夹 资源管理器 推荐  SelectDirectory http://docwiki.embarcadero.com/Libraries/Seattle/en/Vcl.FileCtrl.TSelectDirFileDlgOpts Vcl.FileCtrl.hpp if (!SelectDirectory("请选择目录","",DaoPath)) { return; } SelectDirectory #include "File

{------------------------------------------------------------------------------- 过程名:    MakeFileList 遍历文件夹及子文件夹 参数:      Path,FileExt:string   1.需要遍历的目录 2.要遍历的文件扩展名 返回值:    TStringList   USE StrUtils      Eg:ListBox1.Items:= MakeFileList( 'E:\极品飞车',

(****************************************** 文件和目录监控 当磁盘上有文件或目录操作时,产生事件 使用方法: 开始监控: PathWatch(Self.Handle, 'C:\FtpFolder'); 解除监控:PathWatch(-1); 在窗体中加消息监听 private { Private declarations } procedure MsgListern(var Msg:TMessage);message WM_SHNOTIFY; 实现:

//获取当前文件夹 GetCurrentDirvardir: string;begindir := GetCurrentDir;ShowMessage(dir); //C:\Documents and Settings\wy\My Documents\RAD Studio\Projectsend; ============= function GetCurrentDir: string;beginGetDir(0, Result);end;