注册表怎么实现让一个键值指向另2个键值合并 如 键值 A=12 键值 B=34怎么让 键值 c=1234 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 是这个意思嘛?伪码:var reg: TRegistry; KeyA,KeyB,KeyC: string;begin KeyA:= reg.readstring('a'); KeyB:= reg.readstring('b'); KeyC:= KeyA + KeyB; reg.createkey(KeyC);end; uses Registry;...cost RegKey := '\Software\Test\MyKey';//假定你的注冊表中有這個鍵。var AValue,BValue :string; Reg :TRegistry;begin Reg := TRegistry.Create; Reg.RootKey :=HKEY_CURRENT_USER; if Reg.Open(RegKey,True) then begin AValue := Reg.ReadString('KeyA'); //先讀出A,前提是你的注冊表中有這個鍵 BValue := Reg.ReadString('KeyB'); //再讀出B,前提是你的注冊表中有這個鍵 Reg.WriteString('KeyC',AValue+BValue); //建立C,並將A+B寫入。 Reg.CloseKey; //關閉注冊表鍵。 end; Reg.Free;end; StrCat(Dest,Source : Pchar):Pchar; 还是关于delphi生成服务端exe文件的问题,请各位老大帮忙... 续刚刚问题,程序在最前方了,但是。。。 请问showmessage的用法,谢谢。 如何断开网络? 高手!能帮我吗?一个菜鸟的问题! 有500分!!!!!请教有人用DELPHI作过电子地图吗??? SOS 难。。。。 高分求救!!! DELPHI如何处理象VF中的宏的使用?高手请进! 开源一套delphi编写的客户关系系统 installshield 的问题
reg: TRegistry;
KeyA,KeyB,KeyC: string;
begin
KeyA:= reg.readstring('a');
KeyB:= reg.readstring('b');
KeyC:= KeyA + KeyB;
reg.createkey(KeyC);
end;
...
cost RegKey := '\Software\Test\MyKey';//假定你的注冊表中有這個鍵。
var
AValue,BValue :string;
Reg :TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey :=HKEY_CURRENT_USER;
if Reg.Open(RegKey,True) then
begin
AValue := Reg.ReadString('KeyA'); //先讀出A,前提是你的注冊表中有這個鍵
BValue := Reg.ReadString('KeyB'); //再讀出B,前提是你的注冊表中有這個鍵
Reg.WriteString('KeyC',AValue+BValue); //建立C,並將A+B寫入。
Reg.CloseKey; //關閉注冊表鍵。
end;
Reg.Free;
end;