Sub Process_Globals
Type SetStruct (Language As Int ,UserName As String, Password As String, ClrPassword As String, Client As String, Imei As String, Show As Int, TxtLanguage As String)
Dim TheSettings As SetStruct
End Sub
Sub Activity_Create(FirstTime As Boolean)
......
......
If File.Exists(File.DirRootExternal, "EcoObjSec.dat") Then
'reading the object
Dim raf As RandomAccessFile
raf.Initialize(File.DirRootExternal, "EcoObjSec.dat", False)
TheSettings = raf.ReadEncryptedObject("settings",0)
raf.Close
End If
.......
.......
End Sub