F
for88
Unregistered / Unconfirmed
GUEST, unregistred user!
怎么我这段代码在执行时会出现"undeclared identifier:'tregistry'",我在书上看到过类似的啊.各位大虾帮帮我.
procedure TForm1.Button1Click(Sender:[
] TObject);
var
[red]Reg: TRegistry;[/red]
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('/Software/Microsoft/Windows/CurrentVersion/RunOnce', True) then
begin
Reg.WriteString('MyApp','"' + ParamStr(0) + '"');
Reg.CloseKey;
end;
finally
Reg.Free;
inherited;
end;
procedure TForm1.Button1Click(Sender:[
] TObject);var
[red]Reg: TRegistry;[/red]
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('/Software/Microsoft/Windows/CurrentVersion/RunOnce', True) then
begin
Reg.WriteString('MyApp','"' + ParamStr(0) + '"');
Reg.CloseKey;
end;
finally
Reg.Free;
inherited;
end;