home *** CD-ROM | disk | FTP | other *** search
/ Galleria D'arte: Manet / Manet.iso / Dati / Gadgets.dxr / Internal_45_applicascreen.ls < prev    next >
Encoding:
Text File  |  2000-12-21  |  8.7 KB  |  185 lines
  1. on mouseUp me
  2.   member("log").text = EMPTY
  3.   openMessageWindow("Si proceder├á ad installare lo screensaver personalizzato." & RETURN & "Desideri procedere all'installazione?", "AVVISO", "Question")
  4. end
  5.  
  6. on exitFrame me
  7.   global gWindowAlertResult
  8.   if gWindowAlertResult then
  9.     gWindowAlertResult = VOID
  10.     continua(me)
  11.   else
  12.     nothing()
  13.   end if
  14. end
  15.  
  16. on continua me
  17.   risoluzione = string(the deskTopRectList)
  18.   case risoluzione of
  19.     "[rect(0, 0, 1024, 768)]":
  20.       cartella = "1024"
  21.     "[rect(0, 0, 800, 600)]":
  22.       cartella = "800"
  23.     otherwise:
  24.       cartella = "1024"
  25.   end case
  26.   the itemDelimiter = ":"
  27.   dati = the text of field "NomePittore" of castLib "common"
  28.   nomepittore = item 2 of dati
  29.   if char 1 of nomepittore = " " then
  30.     delete char 1 of nomepittore
  31.   end if
  32.   nomepittore = nomepittore && "Screensaver"
  33.   codicePittore = member("codicePittore").text
  34.   programmi = trovaprogrammi()
  35.   system = trovasystem()
  36.   member("log").text = "*** installation started" && the date && the time && "***"
  37.   put RETURN & "Title:" && nomepittore && "- screensaver" after member "log"
  38.   put RETURN & "Source:" && the pathName after member "log"
  39.   listapict = []
  40.   repeat with i = 31 to 36
  41.     tmp = sprite(i).member
  42.     nome = member(tmp).name
  43.     if nome = "dummymesi" then
  44.       openMessageWindow("E' necessario selezionare sei immagini da utilizzare nello screensaver.", "Galleria d'arte", "Warning")
  45.       exit
  46.       next repeat
  47.     end if
  48.     delete char 6 to 7 of nome
  49.     append(listapict, nome)
  50.   end repeat
  51.   cursor(4)
  52.   deammfolder = programmi & "\Deamm\GALLERIA ARTE\" & nomepittore
  53.   dosCreateFolder(deammfolder)
  54.   put RETURN & "Made Dir:" && deammfolder after member "log"
  55.   repeat with i = 1 to 6
  56.     nome = getAt(listapict, i)
  57.     origine = the pathName & "Media\Gadgets\" & cartella & "\" & nome & ".jpg"
  58.     target = deammfolder & "\" & nome & ".jpg"
  59.     dosCopyFile(origine, target)
  60.     put RETURN & "File Copy:" && target after member "log"
  61.   end repeat
  62.   origine = the pathName & "Media\Gadgets\ScreenSaver\setup" & cartella & "\" & cartella & "exe.exe"
  63.   target = deammfolder & "\" & cartella & "exe.exe"
  64.   dosCopyFile(origine, target)
  65.   put RETURN & "File Copy:" && target after member "log"
  66.   origine = the pathName & "Media\Gadgets\ScreenSaver\setup" & cartella & "\" & cartella & "dxr.dxr"
  67.   target = deammfolder & "\" & cartella & "dxr.dxr"
  68.   dosCopyFile(origine, target)
  69.   put RETURN & "File Copy:" && target after member "log"
  70.   origine = the pathName & "Media\Gadgets\ScreenSaver\setup" & cartella & "\commonCST.cxt"
  71.   target = deammfolder & "\commonCST.cxt"
  72.   dosCopyFile(origine, target)
  73.   put RETURN & "File Copy:" && target after member "log"
  74.   dati = EMPTY
  75.   the itemDelimiter = "#"
  76.   repeat with i = 1 to 6
  77.     nome = getAt(listapict, i)
  78.     dati = dati & "#" & nome
  79.   end repeat
  80.   dati = dati & "#" & nomepittore
  81.   delete char 1 of dati
  82.   txt = deammfolder & "\screen.txt"
  83.   screen = new(xtra("fileio"))
  84.   createFile(screen, txt)
  85.   openFile(screen, txt, 2)
  86.   writeString(screen, dati)
  87.   closeFile(screen)
  88.   screen = 0
  89.   put RETURN & "File Copy:" && txt after member "log"
  90.   origine = the pathName & "Media\Gadgets\ScreenSaver\setup" & cartella & "\" & nomepittore & ".scr"
  91.   target = deammfolder & "\" & nomepittore & ".scr"
  92.   dosCopyFile(origine, target)
  93.   put RETURN & "File Copy:" && target after member "log"
  94.   target = system & "\" & nomepittore & ".scr"
  95.   dosCopyFile(origine, target)
  96.   put RETURN & "File Copy:" && target after member "log"
  97.   origine = the pathName & "Media\Gadgets\ScreenSaver\setup" & cartella & "\grwproex.dll"
  98.   target = deammfolder & "\grwproex.dll"
  99.   dosCopyFile(origine, target)
  100.   put RETURN & "File Copy:" && target after member "log"
  101.   deammfolderXtras = programmi & "\Deamm\GALLERIA ARTE\" & nomepittore & "\Xtras"
  102.   dosCreateFolder(deammfolderXtras)
  103.   put RETURN & "Made Dir:" && deammfolderXtras after member "log"
  104.   origine = the pathName & "Media\Gadgets\ScreenSaver\setup" & cartella & "\Xtras\DTAvalanche.x32"
  105.   target = deammfolderXtras & "\DTAvalanche.x32"
  106.   dosCopyFile(origine, target)
  107.   put RETURN & "File Copy:" && target after member "log"
  108.   origine = the pathName & "Media\Gadgets\ScreenSaver\setup" & cartella & "\Xtras\DTBricks.x32"
  109.   target = deammfolderXtras & "\DTBricks.x32"
  110.   dosCopyFile(origine, target)
  111.   put RETURN & "File Copy:" && target after member "log"
  112.   origine = the pathName & "Media\Gadgets\ScreenSaver\setup" & cartella & "\Xtras\DTHeadline.x32"
  113.   target = deammfolderXtras & "\DTHeadline.x32"
  114.   dosCopyFile(origine, target)
  115.   put RETURN & "File Copy:" && target after member "log"
  116.   origine = the pathName & "Media\Gadgets\ScreenSaver\setup" & cartella & "\Xtras\DTPivot.x32"
  117.   target = deammfolderXtras & "\DTPivot.x32"
  118.   dosCopyFile(origine, target)
  119.   put RETURN & "File Copy:" && target after member "log"
  120.   origine = the pathName & "Media\Gadgets\ScreenSaver\setup" & cartella & "\Xtras\DTShatter.x32"
  121.   target = deammfolderXtras & "\DTShatter.x32"
  122.   dosCopyFile(origine, target)
  123.   put RETURN & "File Copy:" && target after member "log"
  124.   origine = the pathName & "Media\Gadgets\ScreenSaver\setup" & cartella & "\Xtras\DTSplatter.x32"
  125.   target = deammfolderXtras & "\DTSplatter.x32"
  126.   dosCopyFile(origine, target)
  127.   put RETURN & "File Copy:" && target after member "log"
  128.   origine = the pathName & "Media\Gadgets\ScreenSaver\setup" & cartella & "\Xtras\DTTurnTable.x32"
  129.   target = deammfolderXtras & "\DTTurnTable.x32"
  130.   dosCopyFile(origine, target)
  131.   put RETURN & "File Copy:" && target after member "log"
  132.   origine = the pathName & "Media\Gadgets\ScreenSaver\setup" & cartella & "\Xtras\DTX.x32"
  133.   target = deammfolderXtras & "\DTX.x32"
  134.   dosCopyFile(origine, target)
  135.   put RETURN & "File Copy:" && target after member "log"
  136.   origine = the pathName & "Media\Gadgets\ScreenSaver\setup" & cartella & "\Xtras\DTZipper.x32"
  137.   target = deammfolderXtras & "\DTZipper.x32"
  138.   dosCopyFile(origine, target)
  139.   put RETURN & "File Copy:" && target after member "log"
  140.   dosWriteReg("HKEY_CURRENT_USER", "Software\Grooveware Multimedia\Screenweaver\" & nomepittore & "\Settings", "Filepath", deammfolder)
  141.   put RETURN & "RegDB Key:" && "Software\Grooveware Multimedia\Screenweaver\" & nomepittore & "\Settings" after member "log"
  142.   put RETURN & "RegDB Val:" && deammfolder after member "log"
  143.   put RETURN & "RegDB Name: Filepath" after member "log"
  144.   put RETURN & "RegDB Root: 1" after member "log"
  145.   dosWriteReg("HKEY_CURRENT_USER", "Software\Grooveware Multimedia\Screenweaver\" & nomepittore & "\Settings", "Mutesound", 0)
  146.   put RETURN & "RegDB Key:" && "Software\Grooveware Multimedia\Screenweaver\" & nomepittore & "\Settings" after member "log"
  147.   put RETURN & "RegDB Val: 0" after member "log"
  148.   put RETURN & "RegDB Name: Mutesound" after member "log"
  149.   put RETURN & "RegDB Root: 1" after member "log"
  150.   path = system & "\" & nomepittore & ".scr"
  151.   dosWriteReg("HKEY_CURRENT_USER", "Control Panel\desktop", "SCRNSAVE.EXE", path)
  152.   put RETURN & "RegDB Key:" && "Control Panel\desktop" after member "log"
  153.   put RETURN & "RegDB Val:" && path after member "log"
  154.   put RETURN & "RegDB Name: SCRNSAVE.EXE" after member "log"
  155.   put RETURN & "RegDB Root: 1" after member "log"
  156.   path = deammfolder & "\" & nomepittore & ".scr"
  157.   dosSetScreenSaverActive(1)
  158.   dosSetScreenSaver(path)
  159.   dosSetScreenSaverTimeOut(600)
  160.   dosWriteReg("HKEY_CURRENT_USER", "Control Panel\desktop", "ScreenSaveUsePassword", 0)
  161.   put RETURN & "RegDB Key:" && "Control Panel\desktop" after member "log"
  162.   put RETURN & "RegDB Val: 1" after member "log"
  163.   put RETURN & "RegDB Name: ScreenSaveActive" after member "log"
  164.   put RETURN & "RegDB Root: 1" after member "log"
  165.   origine = the pathName & "Media\Gadgets\ScreenSaver\Uninstall.exe"
  166.   target = deammfolder & "\Uninstall.exe"
  167.   dosCopyFile(origine, target)
  168.   origine = the pathName & "Media\Gadgets\ScreenSaver\UnX.exe"
  169.   target = system & "\UnX.exe"
  170.   dosCopyFile(origine, target)
  171.   dosWriteReg("HKEY_LOCAL_MACHINE", "Software\Microsoft\Windows\CurrentVersion\Uninstall\" & nomepittore, "DisplayName", nomepittore)
  172.   put RETURN & "RegDB Key:" && "Software\Microsoft\Windows\CurrentVersion\Uninstall\" & nomepittore after member "log"
  173.   put RETURN & "RegDB Val:" && nomepittore after member "log"
  174.   put RETURN & "RegDB Name: DisplayName" after member "log"
  175.   put RETURN & "RegDB Root: 2" after member "log"
  176.   path = deammfolder & "\Uninstall.exe"
  177.   dosWriteReg("HKEY_LOCAL_MACHINE", "Software\Microsoft\Windows\CurrentVersion\Uninstall\" & nomepittore, "UninstallString", path)
  178.   put RETURN & "RegDB Key:" && "Software\Microsoft\Windows\CurrentVersion\Uninstall\" & nomepittore after member "log"
  179.   put RETURN & "RegDB Val:" && path after member "log"
  180.   put RETURN & "RegDB Name: UninstallString" after member "log"
  181.   put RETURN & "RegDB Root: 2" after member "log"
  182.   cursor(0)
  183.   openMessageWindow("L'installazione ├¿ stata completata", "Galleria d'arte", "Warning")
  184. end
  185.