醉
醉樊尘
Unregistered / Unconfirmed
GUEST, unregistred user!
大家好，我有一个问题总解决不了，在这里我发表一下，希望高手指点一下，
下面代码是注册成功以后，将注册码写入注册表。
procedure TFnreg.Button1Click(Sender: TObject);
var
tmpstr: string;
Reg: TRegistry;
begin
tmpstr := GetClientRegCode(Edit1.Text);
if Edit2.Text <> tmpstr then
begin
Application.MessageBox('注册码错误。','提示',MB_OK);
Edit2.SetFocus;
end
else
begin
WriteValueToReg(Edit2.Text);
Application.MessageBox('注册成功','提示',MB_OK);
Close;
end;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('/Software/yxkj',True) then
Reg.WriteString('RegCode',edit2.Text); //注册码写入注册表
finally
Reg.CloseKey;
Reg.Free;
end;
end;
end;
写入注册表以后，打开软件后他还要提示注册，
怎样写代码进行对比，对得上注册表注册码的就不用注册，对不上就要注册????
帮帮忙!!
下面代码是注册成功以后，将注册码写入注册表。
procedure TFnreg.Button1Click(Sender: TObject);
var
tmpstr: string;
Reg: TRegistry;
begin
tmpstr := GetClientRegCode(Edit1.Text);
if Edit2.Text <> tmpstr then
begin
Application.MessageBox('注册码错误。','提示',MB_OK);
Edit2.SetFocus;
end
else
begin
WriteValueToReg(Edit2.Text);
Application.MessageBox('注册成功','提示',MB_OK);
Close;
end;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('/Software/yxkj',True) then
Reg.WriteString('RegCode',edit2.Text); //注册码写入注册表
finally
Reg.CloseKey;
Reg.Free;
end;
end;
end;
写入注册表以后，打开软件后他还要提示注册，
怎样写代码进行对比，对得上注册表注册码的就不用注册，对不上就要注册????
帮帮忙!!
!]