1,183
社区成员




//调用
RegCopyKey_BySHCopyKey(HKEY_LOCAL_MACHINE, 'SOFTWARE\Test', HKEY_CURRENT_USER, 'SOFTWARE\Test', True);
function RegCopyKey_BySHCopyKey(hkeySrc: HKEY; szSrcSubKey: string; hkeyDest: HKEY;
szDestSubKey: String; RecurseSubKeys:Boolean = True) : Boolean;
var
hReg: HKEY;
begin
if RegCreateKey(hkeyDest, PChar(szDestSubKey), hReg) = ERROR_SUCCESS then
begin
Result := SHCopyKey(hkeySrc, PChar(szSrcSubKey), hReg, 0) = ERROR_SUCCESS;
RegCloseKey(hReg);
end;
end;
//调用
RegCopyKey_BySHCopyKey(HKLM, 'SOFTWARE\Test', HKCU, 'SOFTWARE\Test', True);
function SHCopyKeyA(hkeySrc: HKEY; szSrcSubKey: LPCTSTR; hkeyDest: HKEY; fReserved: DWORD): Longint; stdcall;external 'shlwapi.dll';
if SHCopyKeyA(HKEY_CURRENT_USER, PChar('Wind6'), HKEY_LOCAL_MACHINE, 0) = ERROR_SUCCESS then
ShowMessage('y')
else
ShowMessage('n');