delphi学习记录

delphi 二十四点

作者：admin分类：[技术资料]浏览（459）评论（30）

unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, uTF; type TForm1 = class(TForm) memMsg: TMemo; Button1: TButton; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } FTFList: TTFList; procedure DispMsg(AMsg: string); public { Public declarations } end; 全文

delphi 遍历注册表

作者：admin分类：[技术资料]浏览（339）评论（14）

uses Registry; procedure TForm1.Button1Click(Sender: TObject); Var list,softList :TStringList; Reg :TRegistry; FPath,FKey,SubString:String; i: integer; begin FPath := 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall'; FKey := 'DisplayName'; list := TStringList.Create; softList := TStringList.Create; Reg := TRegistry.Create; try Reg.RootKey := HKEY_LOCAL_MACHINE; If Reg.OpenKey(FPath, False) then 全文