在
program WYJ2000Manager;
uses
Registry,
...
{$R *.res}
procedure AutoRun;
var
RegF : TRegistry;
begin
RegF:=TRegistry.Create;
RegF.RootKey:=HKEY_LOCAL_MACHINE;
RegF.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',True);
RegF.WriteString('WYJ2000Manager','"D:\software"');
RegF.Close;
RegF.Free;
end;
begin
Application.Initialize;
AutoRun;
....
end.
编译时提示 : Undeclared identifier :HKEY_LOCAL_MACHINE;请问如何解决??
program WYJ2000Manager;
uses
Registry,
...
{$R *.res}
procedure AutoRun;
var
RegF : TRegistry;
begin
RegF:=TRegistry.Create;
RegF.RootKey:=HKEY_LOCAL_MACHINE;
RegF.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',True);
RegF.WriteString('WYJ2000Manager','"D:\software"');
RegF.Close;
RegF.Free;
end;
begin
Application.Initialize;
AutoRun;
....
end.
编译时提示 : Undeclared identifier :HKEY_LOCAL_MACHINE;请问如何解决??
Registry,
Windows, //加上这个单元就OK了
...
但是编译时出现:
[Error] WYJ2000Manager.dpr(43): Illegal character in input file: ' ' ($A1A1)
//定位到:RegF.RootKey:=HKEY_LOCAL_MACHINE;
[Error] WYJ2000Manager.dpr(45): Illegal character in input file: ' ' ($A1A1)
//定位到:RegF.WriteString('WYJ2000Manager','"D:\software"');
[Error] WYJ2000Manager.dpr(46): Illegal character in input file: ' ' ($A1A1)
//定位到:RegF.Close;
'SOFTWARE\Microsoft\Windows\CurrentVersion\Run',True
不要双引号!
[Error] WYJ2000Manager.dpr(43): Illegal character in input file: ' ' ($A1A1)
//定位到:RegF.RootKey:=HKEY_LOCAL_MACHINE;
[Error] WYJ2000Manager.dpr(45): Illegal character in input file: ' ' ($A1A1)
//定位到:RegF.WriteString('WYJ2000Manager','"D:\software"');
[Error] WYJ2000Manager.dpr(46): Illegal character in input file: ' ' ($A1A1)
//定位到:RegF.Close;
------------------------
可能由于你用中文输入法的空格了,把这些空格删去就可以了。