如何实现DELPHI对注册表读写操作

2008-09-15 10:23:46 515 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

手把手教你用Python模拟侧信道攻击：从电磁辐射到数据窃取（附防御代码）本文详细介绍了如何使用Python模拟侧信道攻击，从电磁辐射信号采集到数据窃取的全过程，并提供了实用的防御代码。通过实战案例，帮助安全研究员和开发者理解侧信道攻击原理，掌握信号处理与图像重建技术，同时学习有效的噪声干扰和电磁屏蔽防御措施。阅读详情

Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion]
"GUID_ZGXS"="80ZHOUGUIXIN668877990*"
-----------------------------------------------------------------------------------
以上信息,保存到1.reg中,双击后就可以导入到[注册表]中,建立好信息
如何用DELPHI实现这个功能

...全文

实测避坑：华为Atlas 300I DUO推理卡部署Qwen1.5，性能对比3090与完整配置流程本文深度评测华为Atlas 300I DUO推理卡在部署Qwen1.5-14B大模型时的性能表现，并与RTX 3090进行对比。通过实测数据展示硬件参数、部署流程及性能优化建议，揭示国产AI加速卡在LLM推理中的独特优势与适用场景，为开发者提供完整的配置指南和避坑方案。阅读详情

山东蓝鸟贵薪

数据库相关 2,508 成员 88,437 内容

+ 关注 + 加入社区

切换为时间正序

山东蓝鸟贵薪 2010-01-22

打赏
举报

[Quote=引用 6 楼 kenshinggg 的回复:]
原來是0分帖呢，我還是沙發回復幫他解決困難呢，唉
[/Quote]
感谢你的辛苦回帖子,请帮看一下其它的100分的帖子

lezerger 2008-09-19

打赏
举报

揭贴率：52.63%

0分帖

LZ请尊重他人

山东蓝鸟贵薪 2008-09-19

打赏
举报

谢谢高手们,我测试后一切好用:
在此基础上,我也完成了如下功能:
添加、删除、修改、更新
　　对相应的键名、键项都正常处理

panrongzeng 2008-09-19

打赏
举报

原來是0分帖呢，我還是沙發回復幫他解決困難呢，唉

山东蓝鸟贵薪 2008-09-16

打赏
举报

我试试如何,谢谢回贴dddddddddddddddddddddddddd

panrongzeng 2008-09-15

打赏
举报

写一个例子给你
var
regs:TRegistry;
str:string;
username:string;
begin
username:=Trim(getideserialnumber())+GetHostName;
regs:=TRegistry.Create;
regs.RootKey := HKEY_CURRENT_USER;
if (not regs.OpenKey('Software\nowtimes',False)) then
begin
regs.CreateKey ('Software\nowtimes');
if regs.OpenKey('Software\nowtimes',False) then
regs.WriteString('nowt','');
end else
str:=regs.ReadString('nowt');
regs.CloseKey;
regs.Destroy;
end;

supermain2002 2008-09-15

打赏
举报

首先要使用一下单元
uses Registry;

{注册函数,只是注册字符串类型,如果注册其它类型你可以改Value的类型}
function RegExample(ARootKey:HKEY;AKey:string;AName:String;Value:String):Boolean;
var
AReg:TRegistry;
begin
Result:= False;
AReg:= TRegistry.Create;
AReg.RootKey:= ARootKey;
Try
if AReg.OpenKey(AKey,false) then
begin
AReg.WriteString(AName,Value);
Result:= True;
end;
AReg.Free;
except
Result:= False;
AReg.Free;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
AResult:Boolean;
begin
AResult:= RegExample(HKEY_LOCAL_MACHINE,'\SOFTWARE\Microsoft\Windows\CurrentVersion','GUID_ZGXS','80ZHOUGUIXIN668877990*');
if AResult then
ShowMessage('测试注册成功');
end;

如何实现DELPHI对注册表读写操作

相关推荐