FROM有一个按钮,有一个label1,打开软件时搜索规定的注册表,如果有资料就显示出“有情况”,反之就显示没情况,,代码要怎么写呀。
比如打开软件时,按钮搜索
HKEY_LOCAL_MACHINE\SOFTWARE\WWW
下的一个名称,这个名称为:CODE 类型为:REG_SZ 如果搜索到数据里面有数据,即按按钮显示 有情况,
如果没有数据则显示“没情况”,并且,如果有情况,则label1搜索
HKEY_LOCAL_MACHINE\SOFTWARE\WWW
下的一个名称,这个名称为:DATE 类型为:REG_SZ 如果搜索到数据里面有数据,则把里面的数据读取并且显示出来,,
这样的功能能实现吗?走过路过的看到的都回答一下。谢谢!
比如打开软件时,按钮搜索
HKEY_LOCAL_MACHINE\SOFTWARE\WWW
下的一个名称,这个名称为:CODE 类型为:REG_SZ 如果搜索到数据里面有数据,即按按钮显示 有情况,
如果没有数据则显示“没情况”,并且,如果有情况,则label1搜索
HKEY_LOCAL_MACHINE\SOFTWARE\WWW
下的一个名称,这个名称为:DATE 类型为:REG_SZ 如果搜索到数据里面有数据,则把里面的数据读取并且显示出来,,
这样的功能能实现吗?走过路过的看到的都回答一下。谢谢!
HKEY_LOCAL_MACHINE\SOFTWARE\WWW
下的一个名称,这个名称为:CODE 类型为:REG_SZ 如果搜索到数据里面有数据,即按按钮显示 有情况, 且按钮显示是灰色的,点不了!
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;
你看这段代码,应该会明白怎么读注册表.
现在是要用来显示出来。日期。
用 label1
我要 LABEL1 读取显示出来。应该怎么写呀?
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;