[HKEY_LOCAL_MACHINE\SOFTWARE\www]
"Register"="喍聊喍sH"
"time"="0"
"Date"="2019年12月11日" 最好是把源码打包一下发到我邮箱 [email protected] ,因为我是新手呀。谢谢啦·
茫茫人海之中,我想还是有好心人帮忙的吧,
"Register"="喍聊喍sH"
"time"="0"
"Date"="2019年12月11日" 最好是把源码打包一下发到我邮箱 [email protected] ,因为我是新手呀。谢谢啦·
茫茫人海之中,我想还是有好心人帮忙的吧,
users registry;.........procedure TForm1.Button1Click(Sender: TObject);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('HKEY_LOCAL_MACHINE\SOFTWARE\www', True) then
begin
Reg.WriteString('Register','喍聊喍sH');
Reg.WriteInteger('time',0);
Reg.WriteString('Date',FormatDateTime('yyyy年mm月dd日',now));
Reg.CloseKey;
end;
finally
Reg.Free;
end;
end;