FROM有一个按钮,有一个label1,打开软件时搜索规定的注册表,如果有资料就显示出“有情况”,反之就显示没情况,,代码要怎么写呀。
比如打开软件时,按钮搜索
HKEY_LOCAL_MACHINE\SOFTWARE\WWW
下的一个名称,这个名称为:CODE 类型为:REG_SZ   如果搜索到数据里面有数据,即按按钮显示 有情况, 
如果没有数据则显示“没情况”,并且,如果有情况,则label1搜索
HKEY_LOCAL_MACHINE\SOFTWARE\WWW
下的一个名称,这个名称为:DATE 类型为:REG_SZ   如果搜索到数据里面有数据,则把里面的数据读取并且显示出来,,
这样的功能能实现吗?走过路过的看到的都回答一下。谢谢!

解决方案 »

  1.   

    打开软件时,按钮搜索 
    HKEY_LOCAL_MACHINE\SOFTWARE\WWW 
    下的一个名称,这个名称为:CODE 类型为:REG_SZ  如果搜索到数据里面有数据,即按按钮显示 有情况, 且按钮显示是灰色的,点不了!
      

  2.   

    var
      RegRoot: HKEY = HKEY_LOCAL_MACHINE;
    const
      Install_PATH = '\SOFTWARE\MService\8.1\';procedure TQualityUpForm.FormCreate(Sender: TObject);
    var
      Reg : TRegistry;
      PthValue:string;
    begin
      Reg := TRegistry.Create;
      with Reg do
      begin
        RootKey := RegRoot;
        if OpenKey(Install_PATH,True) then
          PthValue := ReadString('InstallPath');
        if not DirectoryExists(PthValue+'\') then
          MessageDlg('安装路径无效!',mtinformation,[mbok],0)
        else
          RptFileEdit.Text := PthValue+'\Program\Data';
      end;
    end;
    你看这段代码,应该会明白怎么读注册表.
      

  3.   


    现在是要用来显示出来。日期。
    用 label1
      

  4.   

    比如 \SOFTWARE\MService\8.1\ 下面显示的时间是:2008年8月1日,
    我要 LABEL1 读取显示出来。应该怎么写呀?
      

  5.   


    var 
      Reg : TRegistry;
    begin
      Reg := TRegistry.Create;
      with Reg do
      begin
        RootKey := HKEY_LOCAL_MACHINE;                    //设定注册表根路径
        if OpenKey('\SOFTWARE\Storm Codec\',false) then   //打开子路径
          label1.Caption := ReadString('Path');           //取出Path键的值并在label1中显示
      end;
    end;