i try with this code but don't work
Code: Select all
const
FHIDE_KEY = '*HIDE_ME*'
{-----------------Next Hook prototype---------------------}
RegEnumKeyExWNextHook : function(hKey: HKEY;
dwIndex: DWORD;
lpName: PWideChar;
var lpcbName: DWORD;
lpReserved: Pointer;
lpClass: PWideChar;
lpcbClass: PDWORD;
lpftLastWriteTime: PFileTime): Longint; stdcall;
{-------------------------------------------------------------}
{----------------------Callback function -----------------------------}
function RegEnumKeyExWCallBack( hKey: HKEY; dwIndex: DWORD; lpName: PWideChar; var lpcbName: DWORD; lpReserved: Pointer; lpClass: PWideChar; lpcbClass: PDWORD; lpftLastWriteTime: PFileTime): Longint; stdcall;
var MyKey : string;
begin
MyKey := '';
MyKey := WideCharToString(lpName);
if TextMatch(MyKey,FHIDE_KEY) then
begin
hKey := hKey;
dwIndex := dwIndex+1;
lpName := nil;
lpcbName := 0;
lpReserved := lpReserved;
lpClass := nil;
lpcbClass := nil;
lpftLastWriteTime := 0
end;
Result := RegEnumKeyExWNextHook(hKey,dwIndex,lpName,lpcbName,lpReserved,lpClass,lpcbClass,lpftLastWriteTime);
end;
{-----------------------------------------------------------------------------------}
Tanks for help.