آموزش دلفی

مثال از رجیستری--تغییر عنوان صبح-شب در کنار ساعت

اول يوزز را اضافه کنيد
uses Registery
يک باتون روي فرم قرار دهيد ، سپس کد زير را در آن کپي کنيد
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('\Control Panel\International\', True) then
begin
Reg.WriteString('s1159','فري فرد');
Reg.WriteString('s2359','فري فرد' );
Reg.CloseKey;
end;
finally
Reg.Free;
inherited;
end;
Showmessage('Saved Your Changed!... Refresh Your System ')

posted by آموزش برنامه نویسی دلفی @ 3:13 AM