怎么会说 HKEY_CURRENT_USER 没定义？

Question

我ADOConnection的连接串放在注册表里，在DataModule的OnCreate事件中读出。uses
  SysUtils, Classes, DB, ADODB, Registry;procedure TDM.DataModuleCreate(Sender: TObject);
var
  cs:TRegistry;
begin
    cs:=TRegistry.Create;
  try
    cs.RootKey:=HKEY_CURRENT_USER;
    if cs.OpenKey('\Software\TestManager',false)=true then
      DM.ADOConnection1.ConnectionString:=cs.ReadString('ADODateSource')
    else
      begin
        GetPara.Tag:=1;
        GetPara.ShowModal;
      end;
  finally
    cs.CloseKey;
    cs.Free;
  end;
end;

Answer 1

这是windows的常量，加上windows单元；
或者直接自己定义
#define HKEY_CURRENT_USER  0x80000001