注册表操作(100分)

  • 主题发起人 主题发起人 Zhejiang_Knight
  • 开始时间 开始时间
Z

Zhejiang_Knight

Unregistered / Unconfirmed
GUEST, unregistred user!
我在建立类TRegistry时提示错误:
[Warning] main.pas(8): Unit 'ShellCtrls' is specific to a platform
[Error] main.pas(196): Undeclared identifier: 'TRegistry'
该怎么做啊?
 
在第一个uses部分加TRegistry单元即可.
 
同意楼上的。
 
这是回答:
[Warning] main.pas(8): Unit 'ShellCtrls' is specific to a platform
[Fatal Error] main.pas(8): File not found: 'TRegistry.dcu'
 
同意二位楼上的……
 
各位,不行啊!
 
uses Registry;不是uses TRegistry
~~~~
 
问题追加
Reg.OpenKey('Software/abc/abc',True);
这句有没有问题啊,做了没反应啊!
在D6中
 
举例：
procedure AddIeButton;
var
rg: Tregistry;
SubKey, TemName: string;
begin
rg := Tregistry.create;
rg.rootkey := HKEY_CURRENT_USER;
SubKey := 'SOFTWARE/MICROSOFT/INTERNET EXPLORER/EXTENSIONS/{0713E8D2-850A-101B-AFC0-4210102A8DA8}';
if not rg.KeyExists(SubKey) then
begin
rg.openkey(SubKey,true);
rg.writestring('BUTTONTEXT','收藏伴侣');
rg.writestring('CLSID','{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}');
rg.writestring('DEFAULT VISIBLE','YES');
rg.writestring('EXEC',AppName);
rg.writestring('ICON',AppDir+'/Icon2.ico');
rg.writestring('HOTICON',AppDir+'/Icon1.ico');
end
rg.closekey;
rg.free;
end;
 
thank you all
 
您必须登录或注册才可回复。

Similar threads

I
注册表文件关联
回复
0
查看
612
import
I
I
注册表转化成.REG文件
回复
0
查看
774
import
I
S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
I
TRegistry注册表类方法详解
回复
0
查看
540
import
I
S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部