レジストリのエクスポートについて (ID:19307)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

こんな感じかな

function GetBackupPrivileges: DWORD;
var
  hToken:        THandle;
  tp:            _TOKEN_PRIVILEGES;
  returnLength:  Cardinal;
begin
  if OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, hToken) then begin
    if LookupPrivilegeValue(nil, 'SeBackupPrivilege', tp.Privileges[0].Luid)	then begin
      tp.PrivilegeCount := 1;
      tp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
      AdjustTokenPrivileges(hToken, false, tp, 0, nil, returnLength)
    end;
  end;
  Result := GetLastError;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  FName: String;
  KH: HKEY;
  Ret: DWord;
begin
  FName := 'D:\backup';
  if FileExists(FName) then DeleteFile(FName);
  Ret := RegOpenKeyEx(HKEY_CURRENT_USER,PChar'Software\MakeSeaquence'), 0, KEY_ALL_ACCESS, KH);
  if Ret = ERROR_SUCCESS then begin
    try
      Ret := GetBackupPrivileges;
      if Ret = ERROR_SUCCESS then begin
        if RegSaveKey(KH, PChar(FName), nil) = 0
          then ShowMessage('BACKUP OK!')
          else ShowMessage('BACKUP ERROR!');
      end;
    finally
      RegCloseKey(KH);
    end;
  end;
end;

←解決時は質問者本人がここをチェックしてください。

戻る