2006年04月_dingrj

转载 Delphi例程－文件管理函数集

1.AssignFile 过程关联一个外部文件名到一个文件变量上。单元System语法procedure AssignFile(var F; FileName: string);描述调用AssignFile来初始化Delphi代码中的文件变量。F是一个任何文件类型的文件变量。FileName是一个字符串类型的表达式，或者，如果扩展的语法激活的话，是PChar类型的表达式。调用Assign

2006-04-17 22:27:00 1435

转载微软ping命令的源代码

作者：未知来源：CnXHacker.Net 加入时间：2005-2-13 阅读次数：23222 /***********************************************************

2006-04-13 22:16:00 974

转载利用Indy的TIdFtp控件实现FTP协议, 远程下载上传文件

现在很多应用都需要上传与下载大型文件，通过HTTP方式上传大文件有一定的局限性。幸好FTP作为一个非常老而且非常成熟的协议可以高效稳定地完成大文件的上传下载，并且可以完美地实现续传。就拿我写的电影服务器管理端程序来说，各种方案比较后，发现使用FTP可以完美地实现要求。但是要通过WinSocket库实现FTP比较麻烦，幸好有Indy--一个包装了大多数网络协议的组件包。　　通过Indy，程序设计人员

2006-04-13 15:34:00 2397 2

原创一个初始化窗体编辑类控件的函数

function ResetControls(oForm:TForm):Boolean;var i:integer;begin for i:=1 to oForm.ComponentCount do begin if (oForm.Components[i-1] is TEdit) then (oForm.Components[i-1]

2006-04-12 16:36:00 883

原创一个简单的帮助文档制作工具 Treeview控件

unit UnitOperationDoc;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, ExtCtrls, StdCtrls, ImgList, Menus, UnitCommon, UnitCo

2006-04-12 16:33:00 1940

转载程序中调出控制面板等窗口

var x:cardinal;begin{启动控制面板}x:=winexec(‘rundll32.exe shell32.dll,Control_RunDLL‘,9);{辅助选项属性-键盘}x:=winexec(‘rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1‘,9);{辅助选项属性-声音}x:=winexec(‘rundll32.e

2006-04-06 16:36:00 1098

转载 DELPHI如何注册系统热键

用DELPHI如何注册系统热键 (2003年10月21日) 发表日期：2003-3-1 文章作者：未知已浏览： 357 次 var i=9; fun

2006-04-04 22:10:00 2269

转载人民币金额大小写转换函数

[转帖]人民币金额大小写转换函数 Function NtoC( n0 :Extended) :wideString;//人民币金额大小写转换函数(如发现更为精简的，请告诉我)//作者：方小庆(上海) inrm@263.net Function IIF(b :boolean

2006-04-03 17:48:00 3928

dingrj的专栏