Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var rkey1 := Registry.CurrentUser;
- var rkey := rkey1.CreateSubKey('Software\Miller\maasync');
- InvPause := 0;
- APPause := 0;
- try
- var ival := rkey.GetValue('InvSyncEnabled');
- if ival<>nil then
- InvSyncCheck.IsChecked := Convert.ToBoolean(ival);
- var apval := rkey.GetValue('APSyncEnabled');
- if apval<>nil then
- APSyncCheck.IsChecked := Convert.ToBoolean(apval);
- if rkey.GetValue('InvSyncInterval')<>nil then
- InvPause := Convert.ToInt64(rkey.GetValue('InvSyncInterval'));
- if rkey.GetValue('APSyncInterval')<>nil then
- APPause := Convert.ToInt64(rkey.GetValue('APSyncInterval'));
- finally
- rkey.Close;
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement