FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Exemple d'une nouvelle version d'un GRID
par Minibug Mer 16 Jan 2019 - 18:23

» Peut-être un bug de l'éditeur pour Jack
par jjn4 Lun 14 Jan 2019 - 17:45

» Wordpic.2
par jjn4 Sam 12 Jan 2019 - 16:34

» Fichier <-> Datas
par jjn4 Sam 12 Jan 2019 - 16:23

» Version instantanée V 0.9.29i6 du 08/01/2019
par Jack Mer 9 Jan 2019 - 7:50

» Make_Exe avec la version V 0.9.29i6
par Jack Mar 8 Jan 2019 - 20:14

» caret_yb_position
par jjn4 Mar 8 Jan 2019 - 19:34

» Problème avec l'analyseur syntaxique de Panoramic.
par jjn4 Lun 7 Jan 2019 - 14:44

» PanExpress : l'éditeur Panoramic avec création d'objet
par Minibug Dim 6 Jan 2019 - 18:39

» Bonne année 2019
par silverman Sam 5 Jan 2019 - 12:02

» Blocage Editeur
par Minibug Mar 1 Jan 2019 - 15:54

» Un texte clignotant
par JL35 Mar 1 Jan 2019 - 13:50

» Bonnes fêtes de fin d'année !
par JL35 Mar 1 Jan 2019 - 0:04

» ON_CLICK sur HVIEWER
par JL35 Lun 31 Déc 2018 - 16:56

» Logiciel de soutien scolaire.
par Pedro Alvarez Lun 31 Déc 2018 - 7:51

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Janvier 2019
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
CalendrierCalendrier

Partagez | 
 

 Comment empêcher l'affichage d'une fenêtre DOS.

Aller en bas 
AuteurMessage
Pedro Alvarez

avatar

Nombre de messages : 1232
Date d'inscription : 19/01/2014

MessageSujet: Comment empêcher l'affichage d'une fenêtre DOS.   Mer 7 Nov 2018 - 16:31

Bonjour.

La question est dans le titre.
Merci si vous avez une solution.

Code:
dim z, ram

ram_installee()

end

sub ram_installee()
    file_open_write 1,"test.bat"
    file_writeln 1,"@ echo off"
    file_writeln 1,"wmic ComputerSystem get TotalPhysicalMemory | clip"
    file_close 1
    execute_wait "test.bat"

    if object_exists(9998)=1 then delete 9998
    create_hide
    memo 9998
    text 9998,clipboard_string_paste$
    z=val(item_read$(9998,3))/1000000000
    ram=int(z*10)/10
    message "RAM installée: "+str$(ram)+" Go."
    create_show
end_sub
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 6422
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Comment empêcher l'affichage d'une fenêtre DOS.   Mer 7 Nov 2018 - 17:07

J'avais fait ceci, autrefois:
Code:
SUB Exprog(pr$)
  ' Exécution d'un programme externe sans la fenêtre noire Ms-DOS
  ' - exemple:  Exprog("Cmd.exe /c DIR C:\UTIL >C:\TEMP\Dir.txt")
  DIM_LOCAL vb$,vt$,q$,p$,k%: q$ = CHR$(34)
  vb$ = "Z:\Vb.vbs": vt$ = "Z:\Tmp.bat"
  p$ = pr$: k% = INSTR(p$," "): IF k%>0 THEN p$ = LEFT$(p$,k%-1)
  IF UPPER$(FILE_EXTRACT_EXTENSION$(p$))<>".BAT"
      FILE_OPEN_WRITE 9,vt$
          FILE_WRITELN 9,"@echo off"
          FILE_WRITELN 9,pr$
      FILE_CLOSE 9: pr$ = vt$
  END_IF
  FILE_OPEN_WRITE 9, vb$: ' ===== Création du script .vbs =====
      FILE_WRITELN 9,"CreateObject("+q$+"Wscript.Shell"+q$+").Run "+q$+pr$+q$+",0,True"
  FILE_CLOSE 9
  EXECUTE_WAIT "WSCRIPT.exe|"+vb$: ' ===== Exécution du script =====
  FILE_DELETE vb$: IF FILE_EXISTS(vt$) = 1 THEN FILE_DELETE vt$
END_SUB

Les chemins (vb$ et vt$) sont à adapter.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Pedro Alvarez

avatar

Nombre de messages : 1232
Date d'inscription : 19/01/2014

MessageSujet: Comment empêcher l'affichage d'une fenêtre DOS.   Mer 7 Nov 2018 - 17:24

Bonjour.

Merci pour le script qui fonctionne parfaitement.

Voici le code adapté à mon logiciel:

Code:
sub ram_installee()
    file_open_write 1,"test.bat"
    file_writeln 1,"@echo off"
    file_writeln 1,"wmic ComputerSystem get TotalPhysicalMemory | clip"
    file_close 1
   
    ' Exécution d'un programme externe sans la fenêtre noire Ms-DOS
    ' - exemple:  Exprog("Cmd.exe /c DIR C:\UTIL >C:\TEMP\Dir.txt")
    dim_local pr$, vb$, vt$, q$
   
    pr$="test.bat"
    q$ = chr$(34)
    vb$ = "Vb.vbs": vt$ = "tmp.bat"
 
    file_open_write 9, vb$: ' ===== Création du script .vbs =====
    file_writeln 9,"CreateObject("+q$+"Wscript.Shell"+q$+").Run "+q$+pr$+q$+",0,True"
    file_close 9
    execute_wait "WSCRIPT.exe|"+vb$: ' ===== Exécution du script =====
    file_delete vb$: if file_exists(vt$) = 1 then file_delete vt$
 
    if object_exists(9998)=1 then delete 9998
    create_hide
    memo 9998
    text 9998,clipboard_string_paste$
    z=val(item_read$(9998,3))/1000000000
    ram=int(z*10)/10
    ' message "RAM installée: "+str$(ram)+" Go."
    create_show
end_sub
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 6422
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Comment empêcher l'affichage d'une fenêtre DOS.   Mer 7 Nov 2018 - 17:55

Tant mieux, c'est un plaisir !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Comment empêcher l'affichage d'une fenêtre DOS.   

Revenir en haut Aller en bas
 
Comment empêcher l'affichage d'une fenêtre DOS.
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Comment empêcher un membre simple de se mettre en invisible?
» Comment créer une classe CSS pour cet affichage ?
» Comment met-on un panneau d'affichage sur l'acueuil?
» Comment supprimer l'affichage des "sujets similaires"
» Comment changer la langue dans le NUVI 3790T

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: A l'aide!-
Sauter vers: