Bug de PANORAMIC.EXE

' fichier1
dim f$
f$="C:\Program Files\Panoramic Editor\sources\fichier2.bas"
if file_exists(f$)=0 then print "fichier introuvable!" : end
execute "PANORAMIC0927i5.exe " + f$
terminate

' fichier2
print rnd(1000)
wait 2000
' print error_line   :' provoque volontairement une erreur
' terminate

' teste de blocage double démarrage de Panoramic
' Si le programme est déjà lancé au départ, il a fait une copy d'arrêt pour le clone du programme
wait 1000
if clipboard_string_paste$ = "Arret"  then arret_clone()
clipboard_string_copy "Arret" :'  pour le clone

' ------------- ici le code GUI ---------------



wait 1500 : clipboard_string_copy "" :' pour un bon départ suivant.
END
' =============================================
' procédures et sous-programme


' =============================================
' -------- Pour le clône de Panoramic ---------
sub arret_clone()
   clipboard_string_copy " "
   terminate :' le clone s'arrète, mais permet un redémarrage suivant
end_sub

' pour le cas où le programme avec ses code serait systématiquement fermé
' sélection et copier n'importe quoi, en dehors de Arret

execute "PANORAMIC.exe " + "monsource.bas"

execute MonProgramme.exe " " param

p$ = param_value$(2)

dim dir$    : dir$ = dir_current$ + "\"
dim exec$  : exec$ = "PANORAMIC.exe"
dim source$ : source$ = "test.bas"
dim cmd$    : cmd$ = "test.bat"
dim s$

' construction du code Panoramic à lancer
s$ = "message "+chr$(34)
s$ = s$ + "coucou"
s$ = s$ + chr$(34)
if file_exists(dir$+source$)=1 then file_delete dir$+source$
file_open_write 1,source$
file_writeln 1,s$
file_writeln 1,"terminate"
file_close 1

' construction d'un fichier BAT à lancer
if file_exists(dir$+cmd$)=1 then file_delete dir$+cmd$
file_open_write 1,cmd$
s$ = "cd "+chr$(34)+dir$+chr$(34)+" "
file_writeln 1,s$
s$ = exec$+" "+source$
file_writeln 1,s$
file_close 1

' exécution
execute dir$+cmd$
end

dim prog$,par$
'
dir_change "C:\Program Files\Panoramic Editor V 0.9.25"
'
prog$="PANORAMIC0927.exe" : if file_exists(prog$)=0 then message prog$+" pas trouvé!":end
prog$=prog$+" "
par$="test.bas" : if file_exists(par$)=0 then message par$+" pas trouvé!":end
'
 execute prog$ + par$

' plus de détails, en anglais:
' https://msdn.microsoft.com/en-us/library/windows/desktop/bb762153%28v=vs.85%29.aspx

dim File_dir$,File$,Parameters$,Directory$
'
'
Directory$ = "C:\Program Files\Panoramic Editor V 0.9.25" : if dir_exists(Directory$)=0 then message Directory$+" pas trouvé!":end
'
' File_dir$ = "C:\Documents and Settings\Silverman\Bureau"   :' un exemple de chemin absolu
 File_dir$ = ""   :' rien donc le chemin de 'File$' est relatif à 'Directory$'
File$ = File_dir$ + "panoramic0927.exe" : CHECK_FILE_EXIST(File$,Directory$)
'
Parameters$ = "test.bas" : CHECK_FILE_EXIST(Parameters$,Directory$)



' lance un programme source
RUN_FILE(File$,Parameters$,Directory$)




END
sub RUN_FILE(File$,Parameters$,Directory$)
'
' File$ : fichier éxécutable. Le chemin de ce fichier peut être relatif(le fichier est recherché dans 'Directory$') ou absolu(dans ce cas, il faut écrire en entier chemin+fichier)
' Parameters$ : fichier à lancer
' Directory$ : chemin du fichier 'Parameters$'
'
   if variable("shell32%")=0
      ' commande : copie de mémoire
      dim kernel32%
      kernel32%=3
      LIBRARY kernel32%,"kernel32"
      command "copy_memory","RtlMoveMemory",kernel32%,"III","stdcall"
      ' ex.: copy_memory adr(destination), adr(source), taille_en_octet%


      ' commande : shell
      dim shell32%
      shell32%=5
      LIBRARY shell32%,"shell32"
      command "run","ShellExecuteA",shell32%,"IIIIII","stdcall"
      ' ex.: run hwnd%,adr(Operation$), adr(File$),adr(Parameters$), adr(Directory$), ShowCmd%
   end_if

   '
   dim_local null%
   dim_local hwnd%,Operation$,ShowCmd%   :' ,File$,Parameters$,Directory$
   dim_local lp_Operation%,lp_File%,lp_Parameters%,lp_Directory%

   hwnd%=0
   Operation$="open" : copy_memory adr(lp_Operation%),adr(Operation$),4
   ' File$="panoramic0927.exe" :
   copy_memory adr(lp_File%),adr(File$),4
   ' Parameters$="test.bas" :
   copy_memory adr(lp_Parameters%),adr(Parameters$),4
   ' Directory$="C:\Program Files\Panoramic Editor V 0.9.25" :
   copy_memory adr(lp_Directory%),adr(Directory$),4
   ShowCmd%=10

   run hwnd%,lp_Operation%,lp_File%,lp_Parameters%,lp_Directory%,ShowCmd%
end_sub


sub CHECK_FILE_EXIST(File$,Directory$)
' vérifie l'existence d'un fichier dont le chemin est absolu ou relatif à 'Directory$'
   if file_extract_path$(file$)=""
      if file_exists(Directory$+File$)=0 then message Directory$+File$+" pas trouvé!":end
   else
      if file_exists(File$)=0 then message File$+" pas trouvé!":end
   end_if
end_sub