看相关资料,都是在 software下建立的,如何创建自己的。?
delphi 7
我想建立一个 比如 ASD 的 铸件。即 HKEY_LOCAL_MACHINE 下面 建立一个 ASD 的主键
delphi 7
我想建立一个 比如 ASD 的 铸件。即 HKEY_LOCAL_MACHINE 下面 建立一个 ASD 的主键
解决方案 »
- Image调用图片的方法
- 为什么在查找字符串"東"的时候会查找到一个“|”,应该如何解决?
- ShellListView问题
- 如何更改窗口的主菜单高度?
- 初学者的非常菜的问题,很急!!!!!!!!!
- group by a.a,b.b,c.c,d.d,group by a.a,b.b,c.c,d.d,后面怎么跟了那么多表那么多字段,后面怎么跟了那么多表那么多字段,说到底对分组语法
- 为什么用free已释放了的Bitmap,每加一次内存就要用5M,而我用了这个Bitmap后就释放了?
- Dephi 2007 IDE 环境问题
- XML文件,大家都是怎么操作的,我很菜,多多包涵
- delphi6。0有什么新功能?
- 关于grid多选的问题
- TPageControl控件问题
1、将自己的程序加入到注册表
var reg:Tregistry; //formCreate Event
begin
reg:=Tregistry.create;
reg.rootkey( 'HKEY_LOCAL_MACHINE ');
reg.openkey( 'SOFTWARE\Microsoft\Windows\CurrentVersion\Run ');
if not keyexists( 'MyApp.exe ') then //if not exist ,add it!
writestring( 'MyApp.exe ');
end;
2、将信息写入注册表
相应代码如下:
var
reg:TRegistry;//声明一个TRegistry类变量
…
begin
reg:=TRegistry.Create;//创建实例
reg.RootKey:=HKEY_CURRENT_USER;//指定需要操作的注册表的主键
if reg.OpenKey(’\Software\Delphi,true) then//如果打开成功则进行以下操作
begin
reg.WriteString(’内容名称’,'操作注册表’);//将需要保存的信息写入注册表
reg.CloseKey;//关闭注册表
end;
reg.Free;//释放变量所占内存
…
end;
2、从注册表中读取信息
相应代码如下:
var
reg:TRegistry;//声明一个TRegistry类变量
s:String;//声明一个字符串变量用来存放要读取的信息
…
begin
reg:=TRegistry.Create;//创建实例
reg.RootKey:=HKEY_CURRENT_USER;//指定需要操作的注册表的主键
if reg.OpenKey(’\Software\Delphi’,true) then//如果打开成功则进行以下操作
begin
s:=reg.ReadString(’内容名称’);//从注册表中读取对应字符串的值
//如果该字符串不存在则返回值为空字符串
reg.CloseKey;//关闭注册表
end;
reg.Free;//释放变量所占内存
…
end;
或
procedure TForm1.btn1Click(Sender: TObject); //写入值
var
tmpReg : TRegistry;
begin
tmpReg := TRegistry.Create;
try
tmpReg.RootKey := HKEY_LOCAL_MACHINE; //设置要操作的注册表的根键值
if tmpReg.OpenKey('\ASD', True) then //如果打开此注册表成功,刚进入写入操作.
begin
tmpReg.WriteString('delphi测试', 'c:\qmenu.exe'); //开始写入操作或空值也可以.
end;
finally
tmpReg.Free;
end;
end;