聲明:CSDN以外的任合團體和個人轉載本文必須註明出處和作者。
Delphi自帶的TRegistry類別只能實現註冊表的基本操作,如果我們要即時監視註冊表的變化或掃描註冊表特定項下的所有子項,TRegistry類別就無能為力了。我啃了半天SDK,終於實現了Delphi對登錄的監視與掃描,不敢獨享,拿來獻給廣大的Delphi愛好者。
監視登錄機碼相關項的改變要用到一個API:RegNotifyChangeKeyValue。
LONG RegNotifyChangeKeyValue(
HKEY hKey, // 要監視的一個項目的句柄
BOOL bWatchSubtree, // 是否監控此項的子鍵
DWord dwNotifyFilter, // 監視哪些變化
HANDLE hEvent, // 接受登錄機碼變更事件的事件物件句柄
BOOL fAsynchronous // 註冊表變更前報告還是註冊表變更後才報告
);
注意上面的hEvent是接受登錄機碼變更事件的事件物件句柄,我們要用API:CreateEvent來建立一個系統事件物件。
HANDLE CreateEvent(
LPSECURITY_ATTRIBUTES lpEventAttributes, // SECURITY_ATTRIBUTES架構
BOOL bManualReset, // 是否自動重置
BOOL bInitialState, // 是否設定初始狀態
LPCTSTR lpName // 事件物件的名稱
);
新建一個工程,新增一個ListBox,兩個Button。
//先寫個監視登錄的例子
//監視HKEY_CURRENT_USER/Software項目下所有子鍵
PRocedure TForm1.Button1Click(Sender: TObject);
var
hNotify : THandle;
hKeyx : HKEY;
dwRes : DWORD;
begin
hNotify := CreateEvent( nil, //不使用SECURITY_ATTRIBUTES架構
FALSE, //不自動重置
TRUE, //設定初始狀態
'RegistryNotify' //事件物件的名稱
);
if hNotify = 0 then
begin
Showmessage('CreateEvent failed.');
exit;
end;
if RegOpenKeyEx( HKEY_CURRENT_USER, //跟鍵
'Software', //子鍵
0, //reserved
KEY_NOTIFY, //監視用
hKeyx //儲存句柄
) <> ERROR_SUCCESS then
begin
CloseHandle( hNotify );
Showmessage('RegOpenKeyEx failed.');
exit;
end;
if RegNotifyChangeKeyValue( hKeyx, //監視子鍵句柄
TRUE, //監視此項目的子鍵
REG_NOTIFY_CHANGE_NAME or REG_NOTIFY_CHANGE_LAST_SET,
hNotify, //接受登錄機碼變更事件的事件物件句柄
TRUE //登錄機碼變更前報告
) <> ERROR_SUCCESS then
begin
CloseHandle( hNotify );
RegCloseKey( hKeyx );
Showmessage('RegNotifyChangeKeyValue failed');
exit;
end;
dwRes := WaitForSingleObject( hNotify, 60 * 1000 ); //監視一分鐘
if dwRes = 0 then
Showmessage( 'Registry will be changed.' );
CloseHandle( hNotify );
RegCloseKey( hKeyx );
end;
要注意的是,API: WaitForSingleObject要等到註冊表變更事件發生或逾時才會返回,在此期間我們的程式將失去回應。解決的辦法是新建一個線程,在新線程中監視註冊表。
對註冊表進行掃描要用到另外兩個API: RegEnumKey和RegEnumValue。
LONG RegEnumKey(
HKEY hKey,// 要掃描的登錄項目句柄
DWORD dwIndex,// 要掃描的subkey序號
LPTSTR lpName,// 要掃描的subkey名稱
LPDWORD lpcbName,// 要掃描的subkey名稱佔用空間
);
此函數的使用方法是: 首先給dwIndex賦值0, 呼叫RegEnumKey; 然後Inc(dwIndex), 再呼叫RegEnumKey,直到返回值為ERROR_NO_MORE_ITEMS,表示沒有更多的子項了。
//掃描註冊表的例子
//只示範如何列舉HKEY_CURRENT_USER/Software下的一層子項
procedure TForm1.Button2Click(Sender: TObject);
var
buf : array [0..255] of char;
iRes : integer;
hKeyx : HKEY;
dwIndex, dwSize : DWORD;
begin
if RegOpenKeyEx( HKEY_CURRENT_USER, 'Software', 0, KEY_READ or
KEY_ENUMERATE_SUB_KEYS, hKeyx ) <> ERROR_SUCCESS then
begin
Showmessage('RegOpenKeyEx failed.');
exit;
end;
dwIndex := 0;
repeat
dwSize := 255;
iRes := RegEnumKey( hKeyx, dwIndex, buf, dwSize );
if iRes = ERROR_NO_MORE_ITEMS then
break
else if iRes = ERROR_SUCCESS then
begin
Listbox1.Items.Add( buf );
Inc( dwIndex );
end;
until iRes <> ERROR_SUCCESS;
RegCloseKey( hKeyx );
end;