home *** CD-ROM | disk | FTP | other *** search
/ Amico PC 3 / Amico_PC_3.iso / amicopc / msgdisk.dxr / 00014_Percorso.ls < prev    next >
Encoding:
Text File  |  1996-12-19  |  1.4 KB  |  34 lines
  1. on keyDown
  2.   global FileEseguibile
  3.   if charToNum(the key) = 13 then
  4.     cursor(4)
  5.     set percorso to the text of field "Percorso"
  6.     if percorso contains "\" then
  7.       set DirectoryDiInstallazione to directoryValida(percorso)
  8.       if DirectoryDiInstallazione contains "." then
  9.         set DirectoryDiInstallazione to EstraiPath(DirectoryDiInstallazione)
  10.       end if
  11.       set listaFileDirectory to string(ListaFIle(DirectoryDiInstallazione))
  12.       if listaFileDirectory contains FileEseguibile then
  13.         set NuovaDir to DirectoryDiInstallazione
  14.         set CurrRec to DBCurrRecNum()
  15.         ScriviValoreCampo("DirInstall", NuovaDir, CurrRec)
  16.         LanciaFileEseguibile(FileEseguibile, DirectoryDiInstallazione)
  17.         ChiudiFinestra("Cerca")
  18.         cursor(-1)
  19.         quit()
  20.       else
  21.         set Messaggio to "Il programma richiesto non risulta installato nella directory specificata. Inserire il"
  22.         set Messaggio to Messaggio & " percorso della nuova directory nello spazio sottostante e premere 'Invio'"
  23.         set Messaggio to Messaggio & " o selezionare 'Cerca' per avviare una ricerca sul disco fisso."
  24.         set Messaggio to Messaggio & RETURN & RETURN & "Selezionate 'Annulla' se l'installazione non ├¿ stata completata."
  25.         ScriviTestoFieldWin(Messaggio, "MsgCerca", "Arial", 14, "Plain", "Left", "Cerca")
  26.       end if
  27.     end if
  28.     cursor(-1)
  29.     exit
  30.   end if
  31.   pass()
  32.   cursor(-1)
  33. end
  34.