读写注册表的问题,附代码。
我要实现读写注册表的功能,在Uses 中已经加上Registry 单元 ,在var中也ARegistry: TRegistry;,但是delphi总是提示在begin中的ARegistry:=TRegistry.Create; 有错误,是什么原因?
贴上所有代码:
unit unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,Registry;
type
Tsvchostun = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
svchostun: Tsvchostun;
ARegistry: TRegistry;
implementation
{$R *.dfm}
begin
ARegistry:=TRegistry.Create;
//建立一个TRegistry实例
with ARegistry do
begin
RootKey:=HKEY_LOCAL_MACHINE;
if OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',True) then
WriteString('delphi','C:\test.exe');
CloseKey;
Destroy;
end;
end.