limboo
02-07-2009, 08:20 PM
what's wrong with this code??
it has to try another methode if the previous methode failed
INIFile.SetValue(WindowsFolder.."\\"..Name.." Eula 1.0.0.dat", "Eula", "Accepted Eula? 1 means yes ", "1");
val = INIFile.GetValue(_WindowsFolder.."\\"..Name.." Eula 1.0.0.dat", "Eula", "Accepted Eula? 1 means yes ");
if (val == "") then
Registry.SetValue(HKEY_CURRENT_USER, "Software\\"..Name.." Eula 1.0.0", "Accepted Eula? 1 means yes", "1", REG_DWORD);
val1 = Registry.GetValue(HKEY_CURRENT_USER, "Software\\"..Name.." Eula 1.0.0", "Accepted Eula? 1 means yes", true);
elseif (val == "1") then
Page.Jump("Encrypt");
if (val1 == "") then
INIFile.SetValue(ProgramFolder.."\\"..Name.." Eula 1.0.0.dat", "Eula", "Accepted Eula? 1 means yes ", "1");
val2 = INIFile.GetValue(ProgramFolder.."\\"..Name.." Eula 1.0.0.dat", "Eula", "Accepted Eula? 1 means yes ");
elseif (val1 == "1") then
Page.Jump("Encrypt");
if (val2 == "") then
Dialog.Message("Error", "There was an error writing the eula data. Try it again with Administrator rights.\r\n\r\n The application will now terminate.", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1)
Application.Exit(0);
elseif (val2 == "1") then
Page.Jump("Encrypt");
end
end
end
it has to try another methode if the previous methode failed
INIFile.SetValue(WindowsFolder.."\\"..Name.." Eula 1.0.0.dat", "Eula", "Accepted Eula? 1 means yes ", "1");
val = INIFile.GetValue(_WindowsFolder.."\\"..Name.." Eula 1.0.0.dat", "Eula", "Accepted Eula? 1 means yes ");
if (val == "") then
Registry.SetValue(HKEY_CURRENT_USER, "Software\\"..Name.." Eula 1.0.0", "Accepted Eula? 1 means yes", "1", REG_DWORD);
val1 = Registry.GetValue(HKEY_CURRENT_USER, "Software\\"..Name.." Eula 1.0.0", "Accepted Eula? 1 means yes", true);
elseif (val == "1") then
Page.Jump("Encrypt");
if (val1 == "") then
INIFile.SetValue(ProgramFolder.."\\"..Name.." Eula 1.0.0.dat", "Eula", "Accepted Eula? 1 means yes ", "1");
val2 = INIFile.GetValue(ProgramFolder.."\\"..Name.." Eula 1.0.0.dat", "Eula", "Accepted Eula? 1 means yes ");
elseif (val1 == "1") then
Page.Jump("Encrypt");
if (val2 == "") then
Dialog.Message("Error", "There was an error writing the eula data. Try it again with Administrator rights.\r\n\r\n The application will now terminate.", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1)
Application.Exit(0);
elseif (val2 == "1") then
Page.Jump("Encrypt");
end
end
end