在win 2000下以前呼叫Regsavekey總是存一空檔,即什麼也沒有之零byte之檔案,在大陸大富翁網站非常多人提到這問題,也有非常多人想掌握自己windows registry被寫入什麼,將他們程式碼拿來測試也總是失敗(http://www.experts-exchange.com/Programming/Programming_Languages/Delphi/Q_20251935.html),直到參考微軟網站之範例(是c語言寫的,http://support.microsoft.com/default.aspx?scid=KB;EN-US;Q128731&)後稍微修改終於可儲存指定之subkey為一檔案,只是執行時會有一訊息(project1.exe raised exception class Eacess violation with message 'Access violation at address 00403706 in module ' project1.exe '.Read of address FFFFFFD1'. process stopped. Use step or Run to contiune.),下面是我的程式碼,希望知道這問題能予指教?

unit Unit1;    interface     uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,registry;    type
  TForm1 = class(TForm)
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.Button2Click(Sender: TObject);
var tpNew: TTokenPrivileges;
    tpPrev: PTokenPrivileges;
    wReturn: DWord;
    //tp:TOKEN_PRIVILEGES;
    hToken:THANDLE ;
    //aluid: luid;
    aluid:TLargeInteger;
    vret:integer;
    keycode:hkey;
    disposition:integer;
begin
  wReturn := sizeof(PTOKENPRIVILEGES);      if not (OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,hToken )) then
    begin
     showmessage('OpenProcessToken  fail');
     exit;
    end;
  if not LookupPrivilegeValue(nil, 'SeBackupPrivilege',aluid) then
    begin
     showmessage(' ***  LookupPrivilegeValue  fail');
     exit;
    end;
  tpnew.PrivilegeCount:= 1;
  tpnew.Privileges[0].Luid:= aluid;
  tpnew.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;     if not AdjustTokenPrivileges(hToken, FALSE, tpnew, sizeof(TTokenPrivileges),tpPrev, wReturn ) then
  begin
 //有兩個 AdjustTokenPrivileges(TokenHandle: THandle; DisableAllPrivileges: BOOL;const NewState: TTokenPrivileges; BufferLength: DWORD;var PreviousState: TTokenPrivileges; var ReturnLength: DWORD): BOOL; stdcall; overload;
   showmessage(' *** AdjustTokenPrivileges  fail');
   exit;
  end;     vret:=regcreatekeyex(HKEY_LOCAL_MACHINE,'system',0,nil,REG_OPTION_BACKUP_RESTORE,KEY_QUERY_VALUE,nil,keycode,@disposition);
//ps:這裡不用regcreatekeyex用RegopenkeyEx會失敗,即無存一檔案
 if vret <> error_success then
   begin
    showmessage('regcreatekeyex fail ');
    exit;
   end;
 vret:=RegSaveKey(Keycode, 'c:\wutemp\system.reg', nil);
 if vret <> error_success then
   begin
    showmessage('RegSaveKey fail ');
    //exit;
   end;
 RegCloseKey(Keycode);
 // Revoke all privileges this process holds (including backup)
 AdjustTokenPrivileges( hToken, TRUE,tpNew, sizeof(TTOKENPRIVILEGES), tpPrev, wReturn);
 // close handle to process token
 CloseHandle(hToken);    end;    end.

你可以 用 TSTRINGLIST 將 registry 將 資料讀出 再用 TSTRINGLIST 存檔

引言: 你可以 用 TSTRINGLIST 將 registry 將 資料讀出 再用 TSTRINGLIST 存檔

registry的資料量很大,且有階層關係,我有寫一遞迴呼叫函數去讀取每一個機碼,機碼數目非常龐大,所以更不用說每個機碼所含資料值,我沒依你說的方式去試,不過我猜想應不適合,不過還是謝謝你的建議.