"Limited Access to One User at a Time"
Startup and shutdown scripts

'--- Startup Script

ps = av.getproject.getfilename.clone 
psd = ps.stripfile 
'MsgBox.Info(ps.AsString,"") 

ptitleapr = av.GetProject.GetWin.GetTitle.Clone 
ptitle = ptitleapr.AsString.Substitute(".apr","apr") 
text_file = "\"+ptitle+".txt" 

thefilestr = psd.AsString+text_file.AsString 

_textfilename = thefilestr.AsString.AsFileName 

checkfile = FileName.FindInSystemSearchPath (_textfilename.AsString) 
if (checkfile <> nil) then 
theLineFile = linefile.make(_textfilename,#FILE_PERM_READ) 
thelist = List.Make 
numlines = theLineFile.GetSize 
source = theLineFile.Read( theList,numlines ) 
a = theList.count 
pos = theLineFile.SetPos (0) 
info_list = list.make 
for each l in theList 
theline = theLineFile.ReadElt 
info_list.Add(theline) 
end 
MsgBox.Warning(info_list.Get(0).AsString++ 
"is currently using this project on"++info_list.Get(1).AsString+NL+ 
"Login date and time:"++info_list.Get(2).AsString+NL+ 
"Check with the above user. Closing the project","W A R N I N G !!") 
av.run("Project.Close",nil) 

else 

'--- Determine if OS is Windows 
'--- Set %SystemRoot% if Windows NT or 95 

OSvar = System.GetOSVariant 
if (OSvar = #SYSTEM_OSVARIANT_MSWNT) then 
wd = system.GetEnvVar("windir") 

_WinSysDir = wd+"\system32\" 

elseif (OSvar = #SYSTEM_OSVARIANT_MSW95) then 
wd = system.GetEnvVar("windir") 

_WinSysDir = wd+"\system32\" 
else 
MsgBox.Warning("This project is designed for use" +NL+ 
"by WindowsNT and Windows95 PCs.","Stop") 
av.GetProject.Close 
end 

'--- Determine the user Login name

'--- Make the DLL object 
dllAdvAPI32 = dll.make((_WinSysDir + "advapi32.dll").AsFileName) 

'--- Make the DLLProc object 
dpGetUserNameA = dllproc.make(dllAdvAPI32, "GetUserNameA", 
#DLLPROC_TYPE_INT32,{#DLLPROC_TYPE_STR, #DLLPROC_TYPE_PINT32}) 

'--- Make the string buffer 
uname = String.MakeBuffer(12) 
buflen = 10 
retValue = Number.MakeNull 

'--- Call the function which returns the username to the buffer 
retValue = dpGetUserNameA.Call({uname, buflen}) 

tf = LineFile.Make(_textfilename, #FILE_PERM_APPEND) 

mystr = Uname.AsString 
'MsgBox.Info(mystr.AsString,"") 
tf.WriteElt(mystr) 

'-- Determine the computer name

'--- Make the DLL object 
dllKernel32 = dll.make((_WinSysDir + "kernel32.dll").AsFileName) 

'--- Make the DLLProc object 
dpGetComputerNameA = dllproc.make(dllkernel32, "GetComputerNameA", 
#DLLPROC_TYPE_INT32,{#DLLPROC_TYPE_STR, #DLLPROC_TYPE_PINT32}) 

'--- Make the string buffer 
cname = String.MakeBuffer(12) 
buflen = 10 
retValue = Number.MakeNull 

'--- Call the function which returns the username to the buffer 
retValue = dpGetComputerNameA.Call({cname, buflen}) 

compname = cname.AsString 
'MsgBox.Info(compname,"") 
tf.WriteElt(compname) 

d = Date.Now.AsString 
tf.WriteElt(d) 

tf.close 

end 

'--- End of Startup Script


'--- ShutDown Script

OSvar = System.GetOSVariant 
if (OSvar = #SYSTEM_OSVARIANT_MSWNT) then 
wd = system.GetEnvVar("windir") 

_WinSysDir = wd+"\system32\" 

elseif (OSvar = #SYSTEM_OSVARIANT_MSW95) then 
wd = system.GetEnvVar("windir") 

_WinSysDir = wd+"\system32\" 
else 
MsgBox.Warning("This project is designed for use" +NL+ 
"by WindowsNT and Windows95 PCs.","Stop") 
av.GetProject.Close 
end 

'--- Determine the user Login name
 
'--- Make the DLL object 
dllAdvAPI32 = dll.make((_WinSysDir + "advapi32.dll").AsFileName) 

'--- Make the DLLProc object 
dpGetUserNameA = dllproc.make(dllAdvAPI32, "GetUserNameA", 
#DLLPROC_TYPE_INT32,{#DLLPROC_TYPE_STR, #DLLPROC_TYPE_PINT32}) 

'--- Make the string buffer 
uname = String.MakeBuffer(12) 
buflen = 10 
retValue = Number.MakeNull 

'--- Call the function which returns the username to the buffer 
retValue = dpGetUserNameA.Call({uname, buflen}) 


mystr = Uname.AsString 

'-- Determine the computer name

'--- Make the DLL object 
dllKernel32 = dll.make((_WinSysDir + "kernel32.dll").AsFileName) 

'--- Make the DLLProc object 
dpGetComputerNameA = dllproc.make(dllkernel32, "GetComputerNameA", 
#DLLPROC_TYPE_INT32,{#DLLPROC_TYPE_STR, #DLLPROC_TYPE_PINT32}) 

'--- Make the string buffer 
cname = String.MakeBuffer(12) 
buflen = 10 
retValue = Number.MakeNull 

'--- Call the function which returns the username to the buffer 
retValue = dpGetComputerNameA.Call({cname, buflen}) 

compname = cname.AsString 

info_list = list.make 
checkfile2 = FileName.FindInSystemSearchPath (_textfilename.AsString) 
if (checkfile2 <> nil) then 
theLineFile2 = linefile.make(_textfilename,#FILE_PERM_READ) 
thelist = List.Make 
numlines = theLineFile2.GetSize 
source = theLineFile2.Read( theList,numlines ) 
a = theList.count 
pos = theLineFile2.SetPos (0) 

for each l in theList 
theline = theLineFile2.ReadElt 
info_list.Add(theline) 
end 
end 

if (info_list.Count > 0) then 
user = info_list.Get(0).AsString 
comp = info_list.Get(1).AsString 
else 
return nil 
end 

if ((mystr = user) and (compname = comp)) then 
_theLineFile = nil 
_tf = nil 
theLineFile2 = nil 
av.PurgeObjects 

File.Delete(_textFileName) 

else 

end 

'--- End of Shutdown Script