[Résolu] Récuperer les fonctions systeme de Panoramic

Bonsoir à tous !

Dans l'éditeur Panoramic, il y a une option dans outils qui se nomme système dont voici la capture d'écran :

[Résolu] Récuperer les fonctions systeme de Panoramic Sans_t57

[Résolu] Récuperer les fonctions systeme de Panoramic Sans_t57

Je souhaiterai pouvoir reproduire cette page en Panoramic 'pur' sans aucune DLL.
Quelqu'un aurai-t-il une idée sur la façon de procéder ?

Voici une solution complète:

Code:: label err1, ok1, err2, err3, ok2, err4, err5, err6, ok3
dim parallel%, excel%, midi%

memo 1 : top 1,10 : left 1,10 : width 1,400 : height 1,500
parallel% = 0
on_error_goto err1
dll_on "inpout.dll"
parallel% = 1
off_error_goto
goto ok1
err1:
on_error_goto err2
dll_on "C:\Windows\System32\inpout.dll"
parallel% = 1
off_error_goto
goto ok1
err2:
' ici, tester éventuellement d'autres localisations...
off_error_goto
ok1:
if parallel%=0
  item_add 1,"PARALLEL inpout.dll n'a pas été trouvé"
  item_add 1," PARALLEL_ON ne peut pas être utilisé"
  item_add 1," PARALLEL_OFF ne peut pas être utilisé"
  item_add 1," PARALLEL_OUT ne peut pas être utilisé"
  item_add 1," PARALLEL_INP() ne peut pas être utilisé"
else
  item_add 1,"PARALLEL inpout.dll a été trouvé"
  item_add 1," PARALLEL_ON peut être utilisé"
  item_add 1," PARALLEL_OFF peut être utilisé"
  item_add 1," PARALLEL_OUT peut être utilisé"
  item_add 1," PARALLEL_INP() peut être utilisé"
end_if

excel% = 0
on_error_goto err3
excel_stop
excel% = 1
off_error_goto
goto ok2
err3:
on_error_goto err4
excel_start
excel% = 1
excel_stop
err4:
off_error_goto
ok2:
if excel%=0
  item_add 1,"EXCEL n'a pas été trouvé"
  item_add 1," EXCEL_START ne peut pas être utilisé"
  item_add 1," EXCEL_STOP ne peut pas être utilisé"
  item_add 1," EXCEL_FILE_OPEN ne peut pas être utilisé"
  item_add 1," EXCEL_FILE_CLOSE ne peut pas être utilisé"
  item_add 1," EXCEL_WRITE ne peut pas être utilisé"
  item_add 1," EXCEL_READ$() ne peut pas être utilisé"
else
  item_add 1,"EXCEL a été trouvé"
  item_add 1," EXCEL_START peut être utilisé"
  item_add 1," EXCEL_STOP peut être utilisé"
  item_add 1," EXCEL_FILE_OPEN peut être utilisé"
  item_add 1," EXCEL_FILE_CLOSE peut être utilisé"
  item_add 1," EXCEL_WRITE peut être utilisé"
  item_add 1," EXCEL_READ$() peut être utilisé"
end_if

midi% = 0
on_error_goto err5
midi_off
midi% = 1
off_error_goto
goto ok3
err5:
on_error_goto err6
midi_on
off_error_goto
midi_off
midi% = 1
goto ok3
err6:
off_error_goto
ok3:
if midi%=0
  item_add 1,"Le Hardware Son ne permet pas les commandes MIDI"
  item_add 1," MIDI_ON ne peut pas être utilisé"
  item_add 1," MIDI_PLAY ne peut pas être utilisé"
  item_add 1," MIDI_VOLUME ne peut pas être utilisé"
  item_add 1," MIDI_OFF ne peut pas être utilisé"
  item_add 1," MIDI_INSTRUMENT ne peut pas être utilisé"
else
  item_add 1,"Le Hardware Son permet les commandes MIDI"
  item_add 1," MIDI_ON peut être utilisé"
  item_add 1," MIDI_PLAY peut être utilisé"
  item_add 1," MIDI_VOLUME peut être utilisé"
  item_add 1," MIDI_OFF peut être utilisé"
  item_add 1," MIDI_INSTRUMENT peut être utilisé"
end_if

end

Et voici le résultat chez moi:
[Résolu] Récuperer les fonctions systeme de Panoramic Aa188

Merci Klaus c'est parfait. je viens de mettre en résolu !

Juste une question.
Pourquoi tu procède toujours en 2 fois pour les tests ?
Pourquoi ne pas tester directement la présence de la dll INPOUT.DLL ?
Idem pour Excel et midi ?

Regarde la doc: PARALLEL_ON génère une erreur si
- la fonction n'est pas supprotée
- la PARALLEL_ON est déjà actif
Idem pour EXCEL_START et MIDI_ON...

Donc, on tente d'abord de fermer. Si ça marche, la fonctionnalité est disponible. Si ça ne marche pas, on tente d'ouvrir. Voilà...

Ok je comprends mieux. merci pour ton aide. Wink

» [Resolu] Récupérer dimensions image après CLIPBOARD_PASTE
» [Résolu] Récupérer la position des ascenseurs dans synedit
» Comment récupérer le N° de l'objet sous la souris ? [Résolu]
» Recupérer une icone windows dans panoramic
» [Résolu] problème de structure de Panoramic