注册表如何添加多个字符

Question

本帖最后由 homeroot 于 2010-03-19 14:51:28 编辑

Answer 1

http://blog.csdn.net/bdmh/archive/2009/05/05/4151632.aspx

Answer 2

var reg:tregistry;
s:array[0..512] of char;
begin
     s:='f';
     reg:=tregistry.Create;
     reg.rootkey:=HKEY_LOCAL_MACHINE;
     reg.openkey('\SYSTEM\CurrentControlSet\Control\Session Manager',true);
     RegSetValueEx(Reg.CurrentKey,'PendingFileRenameOperations',0,REG_MULTI_SZ,@s,strlen(s)+1);
     reg.CloseKey;
     reg.Free;
     application.MessageBox('修改 HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\PendingFileRenameOperations="" 成功！','提示',64);end;