안녕하세요. 최용일입니다.

아래코드를 이용해서 Privilege를 설정해보세요.

참고로 복원(Restore)할때는 Privilege 이름이 SeRestorePrivilege입니다.

<!--CodeS-->
var
    OSVI: TOSVersionInfo;
    PrivilegeName: string;
    TokenHandle: THandle;
    TokenPrivileges: TTokenPrivileges;
    LUID: Int64;
    ReturnLength: Cardinal;
    LastErrorCode: Integer;
begin
    // find out if it's NT/2000
    FillChar(OSVI, SizeOf(OSVI), 0);
    OSVI.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
    GetVersionEx(OSVI);

    //  if so, obtain the required priviledges
    if (OSVI.dwPlatformId = VER_PLATFORM_WIN32_NT) then
    begin
        PrivilegeName :=  'SeBackupPrivilege';
        if OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, TokenHandle) then
        begin
            if LookupPrivilegeValue(nil, PChar(PrivilegeName), LUID) then
            begin
                TokenPrivileges.PrivilegeCount := 1;
                TokenPrivileges.Privileges[0].Luid := LUID;
                TokenPrivileges.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
                AdjustTokenPrivileges(TokenHandle, False, TokenPrivileges, 0, nil, ReturnLength);
                LastErrorCode := GetLastError();
                if (LastErrorCode <> ERROR_SUCCESS) then
                begin
                    ShowMessage('Can''t get Registry''s SaveKey Privilege.');
                    Exit
                end
            end
        end;
    end;

    .... // Save to file from registry.

end;

<!--CodeE-->

^^ 항상 즐코하세요...

안녕하세요

오호~ 좀 늦게서야 확인을 했는디 재미있는 코드군요...
녀석을 적용 했더니 한방에 해결 되었네요... 감사함다~

TRegistry.SaveKey 라는 녀석 알려주신 코드 없이는 아무런 동작이 없군요
알려주신 코드를 추가해 몇몇 키값들을 저장해 봤는디 잘 동작하는디
제가 의도했던 유니코드형의 파일로 키값이 저장되지 않고 하이브 파일로 저장
되는군요 TT

할수 없이 꽁수를 좀 썼답니다.
System32 에 있는 Reg.exe 파일을 리소스에 추가해서


실행 후 프로세스가 종료될때 0,1 의 리턴값을 체킹하였는디...
^^; 원하는 결과를 얻었지만 이거 역쉬 문제가 있더군요...
바이너리 데이터가 대용량일 경우 지나쳐 버리는군요... 아마도 65535 Byte 가
한계가 아닐까 예상되요...

좀더 여기저기 동냥 다녀야될듯....

즐거운 하루~