- 博客(3)
- 资源 (11)
- 收藏
- 关注
原创 注册表递归函数
//使用方法:(遍历根hkey_classes_root)// fxxx(HKEY_CLASSES_ROOT,,);Procedure TForm1.fxxx(root:hkey;Fatherkey,KeyName: String);Var tstring: tstrings; i: integer; registry: TRegistry;Begin // 定位主键的位置
2005-08-26 14:22:00 667
原创 邮件发送
procedure TForm1.Button2Click(Sender: TObject);vartmp:string;begin with IdMessage1 do begin Clear; // 清除前一次產生的 body & headerm, 以免第二次按時重複 Body.Assign(Memo1.Lines); From.Text := yangtang_n
2005-08-19 09:12:00 922
原创 datatool
Unit datatool;InterfaceUses Windows, Messages, SysUtils, Variants, Graphics, Classes, Controls, Forms, Dialogs, ComCtrls, DBGrids, DBGridEhImpExp,DB, DBGridEh;Type datatools = Class(TObject) Publi
2005-08-16 11:23:00 1573
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人