vishal

Hello everybody,

I am using REGSETVALUEEX function to update registry at run time. when I execute the program on Win Xp I am getting the proper result but the same EXE is not updating the registry on Windows Vista.
Please help me ............... if there is any other method for VISTA..

Thanks...

waiting for reply......

grumpy

Without seeing a small and complete sample of code that exhibits your problem, and some indication of what errors are being reported to RegSetValueEx() nobody can begin to help you.

It is possible that security settings have changed between XP and Vista, and you're trying to change registry entries that are inaccessible to you (or the user running the program) under Vista. Again, you will be able to get information on what's happening by checking for errors that occur.

vishal

Please refer this code. If i debug this code then it is working fine but when I execute the generated EXE its not working.

Thanks...

procedure TForm1.Button1Click(Sender: TObject);
var
HKR : HKEY;
str1,str2 : String;
begin
str1 := 'Fontname';
str2 := 'Font_FIle_Path';
REGOPENKEYEX(HKEY_LOCAL_MACHINE,'Software\Microsoft\Windows NT\CurrentVersion\Fonts',0,KEY_ALL_ACCESS,HKR);
if HKR = 0 then
exit;
if REGSETVALUEEX(HKR,@STR1[1],0,REG_SZ,@STR2[1],LENGTH(STR2)+1) = ERROR_SUCCESS then
showmessage('Registry updated');
end;

hunter123

well, sence vista is very new there are some things wrong with it so that may be the problem? but i am not for sure