Advertisement
Guest User

Untitled

a guest
May 13th, 2016
174
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.   var rkey1 := Registry.CurrentUser;
  2.   var rkey := rkey1.CreateSubKey('Software\Miller\maasync');
  3.   InvPause := 0;
  4.   APPause := 0;
  5.  
  6.   try
  7.     var apval := rkey.GetValue('APSyncEnabled');
  8.     if apval<>nil then
  9.       APSyncCheck.IsChecked := Convert.ToBoolean(apval);
  10.  
  11.     var ival := rkey.GetValue('InvSyncEnabled');
  12.     if ival<>nil then
  13.       InvSyncCheck.IsChecked := Convert.ToBoolean(ival);
  14.  
  15.     if rkey.GetValue('InvSyncInterval')<>nil then
  16.       InvPause := Convert.ToInt32(rkey.GetValue('InvSyncInterval'));
  17.     if rkey.GetValue('APSyncInterval')<>nil then
  18.       APPause := Convert.ToInt32(rkey.GetValue('APSyncInterval'));
  19.   finally
  20.     rkey.Close;
  21.   end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement