DELPHI TreeView 文件目录树和 设置节点图标   下载地址 http://download.csdn.net/detail/teststudio/6448293     需要制作文档管理软件 这个非常有用的 1 文件夹 设置图标为  2 文件夹里没有文件的文件夹 设置图标为 没有  3 .HTML文档 设置图标为 4 有附件的 文档设置图标为    DELPHI XE 5测试通过 unit Unit1; interface uses Windows, Messages, S

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

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

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

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

unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls,FileCtrl,ShellAPI; type  TForm1 = class(TForm)    Button1: TButton;    Memo1: TMemo;    procedure Button1Click(Sender: TObject);

1.新增一个函数 function TForm1.DelDirAll(aDir: string): Boolean;varvSearch: TSearchRec;vRet: integer;vKey: string;begin if aDir[Length(aDir)] <> '\' then aDir := aDir + '\'; vKey := aDir + '*.*'; vRet := FindFirst(vKey, faanyfile, vSearch); while vRet = 0

strFileName := FcxLV[nIndex].Items.Item[FcxLV[nIndex].ItemIndex].SubItems.Strings[0]; //路径  ShellExecute(0, nil, PChar('explorer.exe'),PChar('/e, ' + '/select,' + strFileName), nil, SW_NORMAL); http://blog.csdn.net/yanjiaye520/article/details/6803795

strFileName := FcxLV[nIndex].Items.Item[FcxLV[nIndex].ItemIndex].SubItems.Strings[0]; //路径  ShellExecute(0, nil, PChar('explorer.exe'),PChar('/e, ' + '/select,' + strFileName), nil, SW_NORMAL); http://blog.csdn.net/yanjiaye520/article/details/6803795

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

一直对递归的理解不深刻,有时候觉得很简单,可是用起来总会出错.这里需要在TreeView控件里显示一个文件夹下的所有目录以及文件,毫无意外的需要用到递归. 一开始,想到用递归写一个生成每一个节点(TreeNode)的方法,最后将根结点添加到TreeView中即可. private static TreeNode getRootNode(string dirname)//根据传入的文件夹地址,遍历所有的子目录和文件并生成节点 { TreeNode node = new TreeNode(dirna

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

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 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

原文 张丹-小桥流水,C#2010 在TreeView控件下显示路径下所有文件和文件夹 C#2010学习过程中有所收获,便总结下来,希望能给和我一样在学习遇到困难的同学提供参考. 本文主要介绍两个自定义函数,实现的功能是遍历路径下文件和文件夹并显示在TreeView控件中.   首先添加命名空间: using System.Windows.Forms; using System.IO;   函数代码如下: #region 生成程序所在根目录的TreeView private void Paint

读取电脑硬盘根目录添加到TreeView控件 foreach (DriveInfo item in System.IO.DriveInfo.GetDrives()) { if(item.ToString()=="C:\\") //这里不添加c盘 continue; TreeViewItem tvi = new TreeViewItem(); tvi.Header = item.ToString(); tvi.Tag = item.RootDirectory; tvi.Items.Add

转载:http://www.cnblogs.com/zhbsh/archive/2011/05/26/2057733.html #region treeview 绑定文件夹和文件 /// <summary> /// 根据文件夹绑定到树 /// </summary> /// <param name="treeview"></param> /// <param name="FilePath"></para

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