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 如果搜索到数据里面有数据,则把里面的数据读取并且显示出来,,
这样的功能能实现吗?走过路过的看到的都回答一下。谢谢!
解决方案 »
- SPComm能否读取StartComm之前的COM口数据?
- 关于sum对文本字段求和
- 在DBGridEh中,如何做到单元格得到、失去焦点的事件
- postmessage问题
- 如何使一个动态创建组件的parent为另一个动态创建的组件哪?急需,谢谢!
- 关于 WAP 空间的申请
- 急!房地产软件中的销售窗口表怎么实现?
- 哪些考勤机可以通过互联网将异地刷卡数据自动上传到服务器
- DELPHI初学,遇到一个问题,望前辈们指教!!
- 请问想要将数据库自动启动,就是将TDatabase的Connected属性自动设为true应该放在什么事件里好一些?
- 两个窗口能随时切换
- 想打印DBGrid,大家觉得哪种“打印控件”比较好?
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;