自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

原创 CopyFile

const source = 'TPEPatch.7z'; Destination = 'targetf.rar'; var FromF, ToF: file of byte; Buffer: array[0..2047] of char; NumRead: int...

2010-08-29 17:05:00

阅读数 442

评论数 0

原创 CopyDirectoryTree

<br />procedure CopyDirectoryTree(AHandle: THandle; const AFromDirectory, AToDirectory: String); var SHFileOpStruct: TSHFileOpStruct;...

2010-08-27 20:34:00

阅读数 291

评论数 0

原创 Delphi编程“流”的应用

Delphi编程“流”的应用<br /><br />   什么是流?流,简单来说就是建立在面向对象基础上的一种抽象的处理数据的工具。在流中,定义了一些处理数据的基本操作,如读取数据,写入数据等,程序员是对流进行所有操作的,而不用关心流的另一头数据的真正流向。流不但可以处理文...

2010-08-24 17:28:00

阅读数 352

评论数 0

原创 Delphi读写INI文件

INI文件结构: ;注释 [小节名] 关键字=值 INI文件允许有多个小节,每个小节又允许有多个关键字,“=”后面是该关键字的值。值的类型有3种 : String ,integer, boolean 。其中字字符存取在INI文件时没有引号,布尔...

2010-08-22 12:58:00

阅读数 575

评论数 0

原创 资源文件制作及使用

<br /> <br />一、引子:<br />现在的Windows应用程序几乎都使用图标、图片、光标、声音等,我们称它们为资源(Resource)。最简单的使用资源的办法是把这些资源的源文件打入软件包,以方便程序需要的时候调用。资源是程序的一部分,程序要正常运...

2010-08-21 14:56:00

阅读数 393

评论数 0

原创 ClearConsoleScreen

function ClearConsoleScreen: boolean; const BUFSIZE = 80*25; var Han,Dummy: LongWord; buf: string; coord: TCoord; begin Result := ...

2010-08-21 14:50:00

阅读数 304

评论数 0

原创 FileSizeByName

<br />取文件大小  <br />      FileSizeByName(需要引用IdGlobal单元)  <br />      GetFileSize  <br />      FileSize(不能获得正在使用的文件大小)  <br...

2010-08-21 14:48:00

阅读数 1410

评论数 0

原创 WinExecAndWait32

function WinExecAndWait32(FileName: string; Visibility: Integer; ProcessMsg: Boolean): Integer; var zAppName: array[0..512] of Char; zCurDir: a...

2010-08-21 14:44:00

阅读数 1665

评论数 0

原创 设置园角窗口

<br />var hr: thandle; begin //定义窗体园角 hr := createroundrectrgn(0, 0, Width + 1,Height+1, 30, 30); //定义园角矩形(win API函数) setwindo...

2010-08-21 14:35:00

阅读数 474

评论数 0

提示
确定要删除当前文章?
取消 删除