读注册表数值并显示出来。！

Question

比如 HKEY_LOCAL_MACHINE\SOFTWARE\WWWW\  下面显示的时间是：2008年8月1日， 
我要 LABEL1 读取显示出来。如果有时间则显示出来。没时间则不显示。！！注册表里的名字是： 
date 类型是：reg_sz 数值是：2008年8月1日

Answer 1

uses
  Registry;var
  Reg:TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('SOFTWARE\WWWW',False) then
      if Reg.ValueExists('Date') then
        Label1.Caption := Reg.ReadString('Date');  finally
    Reg.Free;
  end;
end;