レジストリのエクスポートについて
解決APIの
func Windows.RegSaveKey: function(hKey: HKEY; lpFile: PChar; lpSecurityAttributes: PSecurityAttributes): Integer;
を使ってレジストリのエクスポート機能を実装したいのですが
RegSaveKey('HKEY_LOCAL_MACHINE\Software\hoge\test',PChar('backup'),NULL);
とすると
'HKEY' と 'String' には互換性がありません
'Variant' と 'PSecurityAttributes' には互換性がありません
と警告されます。
型変換をしなければいけないことは分かるのですが具体的にどうすればいいのかが分からないのです。
分かる方、助言をお願いします。
型変換という問題ではありません。
var
nHandle: HKEY;
RegOpenKeyEx(HKEY_LOCAL_MACHINE, 'Software\hoge\test', 0, KEY_READ, nHandle);
RegSaveKey(nHandle, 'c:\backup', nil);
RegCloseKey(nHandle);
返信ありがとうございます。
その方法で試してみましたが、書き出されるファイルは0kバイトでした。
レジストリエディタで書き出すと約10kバイト程になります。
読み込み又は書き出しに失敗しているのでしょうか。
1)RegOpenKeyExは成功し、nHandleに値は入っていますか？
2)実行したユーザーで、アクセス権限はありますか？
レジストリエディタで保存できるユーザーであれば、アクセス権限に問題はないでしょう。
こんな感じかな
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;
関数が返すエラーコードを調べたところRegSaveKeyが1314を返したので調べたところ、
ERROR_PRIVILEGE_NOT_HELD 1314 0x00000522 クライアントは要求された特権を保有していません。
と、ありました。
RegGetKeySecurityを試したもののうまくいかないので悩んでおりましたが、
どやささんのコードのおかげで書き出すことが出来ました。
ただ、書き出したものをRegRestoreKeyで復元しようとしても1314が返されます。
(どやささんのコードのRet = ERROR_SUCCESS then beginの下に書いて試しました。)
RegRestoreKey(KH, PChar(FName), REG_REFRESH_HIVE);
この関数はmsdn(http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/jpsysinf/html/_win32_regsavekey.asp)には
LONG RegRestoreKey(
HKEY hKey, // 復元を開始するべきキーのハンドル
LPCTSTR lpFile, // レジストリ情報を保持しているファイル
DWORD dwFlags // オプション
);
とありましたが、dwFlagsの
REG_FORCE_RESTORE,REG_NO_LAZY_FLUSH,REG_REFRESH_HIVE,REG_WHOLE_HIVE_VOLATILEのうち、
前半二つはdelphiでコンパイルすると定義されていない〜と警告され、
後半二つは問題なくコンパイルできましたがどちらも復元に失敗しました。
GetBackupPrivileges関数の方で何か修正する必要があるのでしょうか？
URLが違ってました><
http://www.microsoft.com/japan/msdn/library/ja/jpsysinf/html/_win32_regrestorekey.asp
LookupPrivilegeValue関数にてSE_RESTORE_PRIVILEGE特権のID取得をしたところ
GetLastErrorによってERROR_SUCCESSは返されましたが
RegRestoreKey関数がエラーコード87(ERROR_INVALID_PARAMETER)を返します。
第3引数の部分が怪しいとは思うのですがどうにもわかりません。
エクスポートについては解決したので終了させておきます
| ツイート |  |