我想再注册表里判断一个值,决定系统是否启动的问题

Question

我想再注册表里判断一个值,比如在HKEY_LOCAL_MACHINE\SoftWare\Microsoft下我想判断是否有项m里的zc字符串,zc的值是1
如果都满足系统启动,不满足系统就 Application.Terminate;
谢谢大家了,请给出代码,谢谢,拜托了

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
Tr:Tregistry;
begin
    Tr:=Tregistry.Create;
    if Tr.OpenKey('HKEY_LOCAL_MACHINE\SoftWare\Microsoft\m',false) then
          begin
            if  Tr.ReadString('zc')='1'  then
                      begin
                      showmessage('ok');
                      Tr.Free;
                      end
             else
                application.Terminate;
            end
         else
           application.Terminate;end;

Answer 2

Sorry,修改一下:
procedure TForm1.Button1Click(Sender: TObject);
var
Tr:Tregistry;
begin
    Tr:=Tregistry.Create;
 try
    if not Tr.OpenKey('HKEY_LOCAL_MACHINE\SoftWare\Microsoft\m',false) then
         application.terminate
     else
          begin              if  Tr.ReadString('zc')='1'  then
                         showmessage('ok')
              else
            application.terminate;
           end
finally
       Tr.free;
end;
end;

Answer 3

procedure TDM.DataModuleCreate(Sender: TObject);
var
  Reg:TRegistry;
  n:string;
  a: integer;
begin
  Reg:=TRegistry.Create;
  Try
    Reg.RootKey:=HKEY_LOCAL_MACHINE;
      if Reg.OpenKey('\SoftWare\Microsoft\'+'m',true) then
      begin
         n:=Reg.ReadString('zc');
         try
           a := strtoint(n) ;
         except
           a := 0;
         end;
         if a <> 1 then
         begin
           Application.Terminate;
         end
      end;
    finally
       Reg.CloseKey;
    end;
end;

Answer 4

Sorry,修改一下:
procedure TForm1.Button1Click(Sender: TObject);
var
Tr:Tregistry;
begin
    Tr:=Tregistry.Create;
 try
    if not Tr.OpenKey('HKEY_LOCAL_MACHINE\SoftWare\Microsoft\m',false) then
         application.terminate
     else
          begin              if  Tr.ReadString('zc')='1'  then
                         showmessage('ok')
              else
            application.terminate;
           end
finally
       begin
       Tr.CloseKey;
       Tr.free;
       end;
end;
end;