Un programme exe plante à chaque 1èr lancement

' LanceEdi.bas lancement éditeur Panoramic ou FreeBasic avec choix d'un source
DIM w0, h0, al, f$, r$, fm$, exe$, titre$, a$, b$, seq$, i%, d%, n%, tq%
LABEL Fin, Tri, Trait, Recher, Retcher, Cherche, Manuel, Objets, Newmc

fm$ = "C:\Temp\Dir"

IF PARAM_NUMBER = 0 THEN TERMINATE
r$ = UPPER$(PARAM_VALUE$(1))
IF r$ = "FREEBASIC"
    r$ = "C:\Langages\FreeBasic\Sources": ' répertoire des sources
    exe$ = "C:\Langages\FreeBasic\fbide.exe ": ' Editeur FreeBasic
    titre$ = "FreeBasic"
ELSE
    IF r$ = "PANORAMIC"
        r$ = "C:\Langages\Panoramic": ' répertoire des sources
        exe$ = "C:\Progra~2\Panora~1\PANORAMIC_EDITOR.exe ": ' Editeur Panoramic
        titre$ = "PANORAMIC"
    ELSE
        TERMINATE
    END_IF
END_IF

w0 = 180: h0 = 800
TOP 0, 10: LEFT 0, 10: WIDTH 0, w0: HEIGHT 0, h0: COLOR 0, 128,255,255: BORDER_HIDE 0
LIST 1: TOP 1, 75: LEFT 1, 2: WIDTH 1, w0-6: HEIGHT 1, h0-79
FONT_NAME 1, "Bitstream Vera Sans Mono": FONT_SIZE 1, 9
COLOR 1, 255,255,200
ON_CLICK 1, Trait
ALPHA 2: TOP 2, 0: LEFT 2, 5: FONT_SIZE 2, 12: FONT_BOLD 2: CAPTION 2, titre$
BUTTON 3: TOP 3, 24: LEFT 3, 2: WIDTH 3, w0/3-1: CAPTION 3, "Tri Alpha"
ON_CLICK 3, Tri
BUTTON 4: TOP 4, 24: LEFT 4, w0/3+1: WIDTH 4, w0/3-1: CAPTION 4, "Recherche"
ON_CLICK 4, Recher
BUTTON 5: TOP 5, 24: LEFT 5, 2*w0/3: WIDTH 5, w0/3-1: CAPTION 5, "Nouveau"
ON_CLICK 5, Trait
BUTTON 6: TOP 6, 0: LEFT 6, w0-40: WIDTH 6, 38: HEIGHT 6, 20: CAPTION 6, "Exit"
ON_CLICK 6, Fin
BUTTON 7: TOP 7, 50: LEFT 7, 2: WIDTH 7,  w0/4-4: CAPTION 7, "Manuel"
ON_CLICK 7, Manuel
IF titre$ = "PANORAMIC"
    BUTTON 9: TOP 9, 50:: LEFT 9, w0/4-2: WIDTH 9, w0/4-4: CAPTION 9, "Objets"
    ON_CLICK 9, Objets
    BUTTON 8: TOP 8, 50: LEFT 8, w0/2-6: WIDTH 8, w0/2+5: CAPTION 8, "Nouveaux motsclés"
    ON_CLICK 8, Newmc
END_IF

FORM 10: TOP 10, 70: WIDTH 10,600: HEIGHT 10,600: COLOR 10, 255,192,192
CAPTION 10, "RECHERCHE DANS LES SOURCES "+UPPER$(r$)+"\*.BAS": HIDE 10
ALPHA 11: PARENT 11, 10: TOP 11, 3: CAPTION 11, "Séquence cherchée:"
EDIT 12: PARENT 12,10: LEFT 12, 100: WIDTH 12, 150
BUTTON 13: PARENT 13, 10: LEFT 13, 370: CAPTION 13, "Chercher"
ON_CLICK 13, Cherche
CHECK 14: PARENT 14, 10: TOP 14,3: LEFT 14, 254: WIDTH 14, 110: CAPTION 14, "Respecter la casse"
BUTTON 15: PARENT 15, 10: LEFT 15, 509: CAPTION 15, "Retour"
ON_CLICK 15, Retcher
LIST 18: PARENT 18, 10: TOP 18, 24: WIDTH 18, 584: HEIGHT 18, 540
COLOR 18, 220,255,220: FONT_NAME 18, "Bitstream Vera Sans Mono": FONT_SIZE 18, 9

al = 1: GOSUB Tri
END

Fin:
TERMINATE

Tri:
CLEAR 1
IF al = 0
    CAPTION 3, "Tri Dates"
    EXECUTE_WAIT "Cmd.exe /c DIR " + r$ + "\*.bas, /O:N /B >" + fm$
    al = 1
ELSE
    CAPTION 3, "Tri Alpha"
    EXECUTE_WAIT "Cmd.exe /c DIR " + r$ + "\*.bas /O:-D /B >" + fm$
    al = 0
END_IF
FILE_LOAD 1, fm$
FILE_DELETE fm$
RETURN

Trait:
fm$ = ""
IF CLICKED(1) = 1
    fm$ = r$ + "" + ITEM_READ$(1, ITEM_INDEX(1))
END_IF
DIR_CHANGE r$
EXECUTE exe$ + fm$
TERMINATE
RETURN

Recher:
CLEAR 18: SHOW 10
RETURN

Retcher:
HIDE 10
RETURN

Cherche:
CLEAR 18
seq$ = TEXT$(12): IF seq$ = "" THEN RETURN
tq% = 0: IF CHECKED(14) = 1 THEN tq% = 1
IF tq% = 0 THEN seq$ = UPPER$(seq$)
FOR i% = 1 TO COUNT(1)
    f$ = r$ + "" + ITEM_READ$(1, i%)
    FILE_OPEN_READ 1, f$: d% = 0: n% = 0
    WHILE FILE_EOF(1) = 0
        FILE_READLN 1, a$: n% = n% + 1
        b$ = a$: IF tq% = 0 THEN b$ = UPPER$(a$)
        IF INSTR(b$, seq$) > 0
            IF d% = 0
                ITEM_ADD 18, "": ITEM_ADD 18, " - " + f$+" +++++++++++++++": d% = 1
            END_IF
            ITEM_ADD 18, STR$(n%)+": "+a$
        END_IF
    END_WHILE
    FILE_CLOSE 1
NEXT i%
ITEM_ADD 18,""
ITEM_ADD 18, "              --------------- RECHERCHE TERMINÉE ! ---------------"
RETURN

Manuel:
IF titre$ = "PANORAMIC"
    EXECUTE_WAIT "C:\Langages\Panoramic\Aide.exe"
ELSE
    EXECUTE_WAIT "C:\Langages\FreeBasic\Manuel_fr\Manuel.html"
END_IF
RETURN

Objets:
EXECUTE_WAIT "C:\Langages\Panoramic\Objets.exe"
RETURN

Newmc:
EXECUTE_WAIT "Wordpad.exe C:\Langages\Panoramic\Newmc.rtf"
RETURN

IF PARAM_NUMBER = 0 THEN TERMINATE

TERMINATE

DIM compteurErreur  : label err ,charge
memo 1
on_error_goto err
on_click 0,charge
end

charge:
repeat
  dir_change "c:\temp\"
  if file_exists("mon_fichier.txt") = 1 then file_load 1,"mon_fichier.txt"
until count(1) > 0
return

err:
compteurErreur = compteurErreur +1
if compteurErreur =3 then off_error_goto :' on limite l'appel pour ne pas boucler indéfiniment, et valider l'erreur
return

dim i%, h%
dll_on "SetWindowButtons.dll"

edit 1 : top 1,10 : left 1,10
text 1,"Essai"

h% = handle(0)
i% = dll_call2("WindowTranparency",h%,128)
end