Une autre façon de terminer une application.

rem ============================================================================
rem                        FatalAppExit
rem ============================================================================
rem  Une autre façon de terminer une application
rem  Affiche un message et termine l’application quand on ferme la boite
rem ============================================================================
FatalAppExit()
end
SUB FatalAppExit()
    dim_local ret%  
    dll_on "kernel32"
    ret% = dll_call2("FatalAppExitA",0,0)
    dll_off
END_SUB
rem ============================================================================    

Quit:
  dll_on "kernel32"
      i% = dll_call1("ExitProcess",0)
  dll_off
  TERMINATE

label quit
dim ret%
button 10 : caption 10,"quitter" : on_click 10,quit
end

Quit:
  dll_on "user32"
      ret% = dll_call4("PostMessageA",handle(0),16,0,0)
  dll_off

label quit
dim ret%
button 10 : caption 10,"quitter" : on_click 10,quit
end

Quit:
  dll_on "user32"
  ret% = dll_call1("PostQuitMessage",0)
  dll_off
return : ' Peut être omis
  

label quit
dim ret%
button 10 : caption 10,"quitter" : on_click 10,quit
end

Quit:
  dll_on "kernel32"
  ret% = dll_call1("ExitThread",0)
  dll_off
return : ' Peut être omis

' Raccourcis clavier
DIM a$,b$,r$,i%,j%,k%,y%,n%,hl%,wl%,c%,ca$(10,30),nb%(10)
DATA "1","- Généraux, touches :"
DATA "Alt/F4: Fermer l'application en cours"
DATA "Ctrl/C: Copier la sélection dans le presse-papier"
DATA "Ctrl/X: Déplacer la sélection vers le presse-papier"
DATA "Ctrl/V: Coller le presse-papier au curseur"
DATA "Ctrl/Z: Annuler"
DATA "Ctrl/Y: Rétablir"
DATA "Ctrl/A: Tout sélectionner"
DATA "Ctrl/P: Imprimer"
DATA "Ctrl/Esc: Afficher le menu démarrer"
DATA "Ctrl/Maj/i: indenter la sélection (8 espaces)"
DATA "Ctrl/Maj/u: désindenter la sélection de 8 espaces"
DATA "Alt/Tab: Fenêtre précédente (en cascade)"
DATA "Alt/Esc: Parcourir les fenêtres ouvertes"
DATA "F1: Afficher l'aide"
DATA "F3: Recherche de fichiers"
DATA "Ctrl/Maj/Esc: Affiche gestionnaire de tâches (taskmgr)"
DATA "Ctrl/Alt/Sup: Gestionnaire de tâches"
DATA "Ctrl/clic: Sélectionner plusieurs éléments"
DATA "Shift/clic: Sélectionner tous entre deux clics"
DATA "Alt/Maj: Repasser le clavier en français"
DATA "Maj/Suppr: Suppression définitive fichier ou dossier"

DATA "2","- Touche Windows +"
DATA "(seule): Ouvrir le menu Démarrer"
DATA "E: Ouvrir l'explorateur"
DATA "D: Afficher le bureau (en bascule)"
DATA "F: Ouvrir 'Rechercher'"
DATA "R: Exécuter une application"
DATA "U: Ouvrir le Gestionnaire d'utilitaires"
DATA "L: Verrouiller le pc"
DATA "P: Mode d'affichage"
DATA "Pause: Propriétés système"
DATA "Maj/clic: Nouvelle instance d'un programme"
DATA "Ctrl/F: Recherche ordinateur sur réseau"

DATA "3","- Divers Windows (fl.=flèche) :"
DATA "Ctrl/roulette: Zoomer/dézoomer"
DATA "Ctrl/fl.g/d: Curseur au début du mot"
DATA "Shift/fl.g/d: Sélection texte"
DATA "Ctrl/Shift/fl.g/d: Sélection mot entier"
DATA "Ctrl/Backspace: Supprimer un mot entier"
DATA "Ctrl/F4: Fermer une fenêtre (ou un pc)"
DATA "Ctrl/Maj/clic: Ouvrir en tant qu'administrateur"

DATA "4","- Gestion des fenêtres :"
DATA "Alt/Tab: Passer d'une fenêtre à l'autre"
DATA "Alt/Shift/Tab: Idem, en ordre inverse"
DATA "Windows/Tab: Comme Alt/Tab"
DATA "Windows/D: Masquer toutes les fenêtres (bascule)"
DATA "Windows/fl.b: Rétrécir la fenêtre"
DATA "Windows/fl.h: Agrandir la fenêtre"
DATA "Windows/fl.g: Fenêtre à gauche de l'écran"
DATA "Windows/fl.d: Fenêtre à droite de l'écran"
DATA "Ctrl/N: Ouvrir une nouvelle fenêtre"
DATA "F5 ou Ctrl/R: Actualiser la fenêtre active"

DATA "5","- Explorateur :"
DATA "Alt/Entr: Propriétés de l'élément sélectionné"
DATA "Suppr: Supprimer l'élément sélectionné"
DATA "Maj/Suppr: Supprimer définitivement l'élément"
DATA "F2: Renommer l'élément sélectionné"
DATA "F"

READ a$
WHILE a$ <> "F"
    c% = VAL(a$): READ a$: ca$(c%,0) = a$: ' nouvelle catégorie
    n% = 0
    READ a$
    WHILE LEN(a$)>1
        n% = n%+1: ca$(c%,n%) = a$: READ a$
    END_WHILE
    nb%(c%) = n%: ' nb 'éléments
END_WHILE

WIDTH 0,420: HEIGHT 0,440: BORDER_SMALL 0: CAPTION 0,STRING$(30," ")+"-   RACCOURCIS   CLAVIER   -"
COLOR 0,196,255,255: FONT_NAME 0,"Consolas": FONT_SIZE 0,10

hl% = 16: ' hauteur d'une ligne de Memo
y% = 0: wl% = WIDTH_CLIENT(0)
n% = 10
FOR j% = 1 TO c%
    n%=n%+1: ALPHA n%: TOP n%,y%: FONT_BOLD n%: CAPTION n%,ca$(j%,0)
    y%=y%+15
    n%=n%+1: LIST n%: TOP n%,y%: WIDTH n%,wl%: HEIGHT n%,nb%(j%)*hl%
             COLOR n%,255,255,180
    FOR i% = 1 TO nb%(j%)
        a$ = ca$(j%,i%): k% = INSTR(a$,":"): b$ = LEFT$(a$,k%-1)
        IF k%<=12 THEN b$ = b$+STRING$(12-LEN(b$)," ")
        ITEM_ADD n%,b$+" "+RIGHT_POS$(a$,k%+2)
    NEXT i%
    y% = y%+HEIGHT(n%)
NEXT j%
HEIGHT 0,y%+55
END