张志峰的博客

水滴石川，积少成多。

导航

随笔分类 -  Delphi 文件夹目录

delphi 文件查找

摘要：FindFirst 是用来寻找目标目录下的第一个文件， FindFirst函数在delphi帮助下的定义: function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer; 其中有一句:FindFir 阅读全文

posted @ 2017-09-21 14:35 ╰★张志峰★╮ 阅读(1489) 评论(0) 推荐(0)

delphi 取上级目录

摘要：var S: string;begin S := 'c:\aa\bb\cc\dd\abc.exe'; ShowMessage(ExtractFileDir(ExtractFileDir(S))); //c:\aa\bb\cc ShowMessage(ExtractFileDir(ExtractFil 阅读全文

posted @ 2017-06-21 13:02 ╰★张志峰★╮ 阅读(1298) 评论(0) 推荐(0)

delphi 文件删除，复制

摘要：这是个相对简单的方法，不知道能不能帮到你删除：procedure TForm1.Button1Click(Sender: TObject);begin deletefile('c:\123.txt');end;复制：procedure TForm1.Button1Click(Sender: TObj 阅读全文

posted @ 2016-12-20 15:31 ╰★张志峰★╮ 阅读(381) 评论(0) 推荐(0)

delphi获取目录下所有文件名

摘要：procedure searchfile(path:string);//注意,path后面要有'\'; var SearchRec:TSearchRec; found:integer; begin found:=FindFirst(path+'*.*',faAnyFile,SearchRec); w 阅读全文

posted @ 2016-08-07 13:41 ╰★张志峰★╮ 阅读(4108) 评论(0) 推荐(0)

Delphi~通过程序窗体句柄获取程序路径

摘要：http://www.cnblogs.com/Jesses/articles/1636323.html 引用PsAPIvar h:HWND; pid: Cardinal; pHandle: THandle; buf: array[0..MAX_PATH] of Char;begin h:=GetFo 阅读全文

posted @ 2016-07-27 16:06 ╰★张志峰★╮ 阅读(719) 评论(0) 推荐(0)

Delphi 弹出Windows风格的选择文件夹对话框， 还可以新建文件夹

摘要：Delphi 弹出Windows风格的选择文件夹对话框， 还可以新建文件夹unit Unit2;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, FileCtrl, Buttons, shlobj,ActiveX;type TForm2 = class(TForm) Button1: TButton; Button2: TButton; Edit1: TEdit; procedure Button1Click(Sender: TO 阅读全文

posted @ 2013-08-21 19:54 ╰★张志峰★╮ 阅读(2148) 评论(0) 推荐(0)

delphi 对话框初始地址InitialDir

摘要：我的电脑：SaveDialog1.InitialDir := '::{20D04FE0-3AEA-1069-A2D8-08002B30309D}';// My Computer {20D04FE0-3AEA-1069-A2D8-08002B30309D}// Network Neighborhood {208D2C60-3AEA-1069-A2D7-08002B30309D}// Recycled {645FF040-5081-101B-9F08-00AA002F954E}另外可使用SHGetSpecialFolder获取其它Windows虚拟文件夹，相关函数和常数定义于Shl 阅读全文

posted @ 2013-08-12 11:24 ╰★张志峰★╮ 阅读(935) 评论(0) 推荐(0)

Delphi 拷贝目录

摘要：---- 1、拷贝目录 ---- 为了能拷贝目录下带有子目录的情况，先定义一个辅助的拷贝函数，它是递归执行的，直到把目录下的所有文件和子目录都拷贝完。 ---- 1.1拷贝目录的递归辅助函数：DoCopyDir function DoCopyDir(sDirName:String; sToDirName:String):Boolean; var hFindFile:Cardinal; t,tfile:String; sCurDir:String[255]; FindFileData:WIN32_FIND_DATA; begin //先保存当前目录 ... 阅读全文

posted @ 2011-12-05 13:51 ╰★张志峰★╮ 阅读(1508) 评论(0) 推荐(0)

Delphi 删除目录

摘要：---- 2、删除目录 ---- 删除目录与拷贝目录很类似，但为了能删除位于根目录下的一个空目录，需要在辅助函数中设置一个标志变量，即：如果删除的是空目录,则置bEmptyDir为True，这一句已经用深色框表示了。 ---- 2.1删除目录的递归辅助函数：DoRemoveDir function DoRemoveDir(sDirName:String):Boolean; var hFindFile:Cardinal; tfile:String; sCurDir:String; bEmptyDir:Boolean; FindFileData:WIN3... 阅读全文

posted @ 2011-12-05 13:50 ╰★张志峰★╮ 阅读(2165) 评论(0) 推荐(0)

Delphi 移动目录

摘要：---- 3、移动目录 ---- 有了拷贝目录和删除目录的函数，移动目录就变得很简单，只需顺序调用前两个函数即可： function MoveDir(sDirName:String; sToDirName:string):Boolean; begin if CopyDir(sDirName,sToDirName) then if RemoveDir(sDirName) then result:=True else result:=false; end; ///////////////////... 阅读全文

posted @ 2011-12-05 13:49 ╰★张志峰★╮ 阅读(491) 评论(0) 推荐(0)

Delphi 删除目录（二）

摘要：Delphi 删除目录（二）procedure TForm1.BitBtn1Click(Sender: TObject); var sr:TsearchRec; begin if directoryExists( 'g:\a ') then begin if FindFirst( 'g:\a\*.* ',faAnyFile,sr)=0 then begin repeat deleteFile( 'g:\a\ '+sr.Name); until FindNext(sr) <> 0; Findcl... 阅读全文

posted @ 2011-12-05 13:48 ╰★张志峰★╮ 阅读(413) 评论(0) 推荐(0)