Comment renommer automatiquement des copies d’écran ?

Il est fastidieux d’effectuer des copies d’écran les unes à la suite des autres avec un Psion. En effet, elles portent toutes le même nom, Screen.pic, ce qui signifie que la dernière remplace toujours la précédente qui est alors perdue.
Pour contrecarrer ce processus, vous devez renommer la capture avant de réaliser une nouvelle copie d’écran.Pour automatiser cette opération, écrivez un programme qui s’exécutera en arrière-plan. Ouvrez l’éditeur de programme en sélectionnant l’icône OPL et en appuyant sur la touche . Saisissez le listing ci-dessous.
Enregistrez le programme via ++. Saisissez un nom, par exemple RenomCapt. Pressez ensuite + pour compiler le programme et détecter les éventuelles erreurs.Si aucune erreur n’est détectée, une fenêtre vous propose alors de lancer le programme. Appuyez sur pour valider. Dès que vous tapez la combinaison de touches +++, une fenêtre apparaît, vous demandant d’indiquer le nom de la capture. Saisissez un libellé et validez par .Si c’est la première fois que vous compilez un programme, l’application RunOPL va apparaître dans le menu Système, à la suite de licône OPL. Pour arrêter le programme, appuyez simultanément sur les touches ++.Listing :
PROC RenomCap :
Local Nom$
Do
If Exist (“m:screen.pic”)
Call($198D,0,0)
Gupdate
Dinit
Dedit Nom$,”Nommez la capture :”
Dialog


Call($198D,100,0)
Gupdate
If Nom$=””
trap delete “m:scereen.pic”
return
Endif
Rename “m:screen.pic”,”m:”+Nom$+”.pic”
Endif
Until 0
Endp