如何用delphi向注册表中写入一个文件夹,(5分)

  • 主题发起人 主题发起人 wecap
  • 开始时间 开始时间
W

wecap

Unregistered / Unconfirmed
GUEST, unregistred user!
如何用delphi向注册表中写入一个文件夹,
 
怎么写,是文件夹的目录信息还是所有文件?
不管如何可以首先把你需要的文件存为二进制文档,然后用Reg.WriteBinary写入注册表即可。
 
也可以创建一个Tregistry
然后进行操作下面是一个例子:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs,registry, StdCtrls,unit3;
 
例如software 文件夹没有,而我要在 software下追加几个主键,现的问题是怎样添加一个这
个software文件夹到注册表中去,
 
procedure TForm1.form1create(Sender: TObject);
var
registerTemp : TRegistry;
begin
 registerTemp := TRegistry.Create; //准备使用注册表
 with registerTemp do
 begin
   RootKey:=HKEY_LOCAL_MACHINE; //存放在此根下
   if OpenKey('Software/Microsoft/Windows/CurrentVersion/Mark',True) then //建立一个Mark的目录
   .......
end 
 
后退
顶部