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
» Fonctionnement du caret_x_position(N)
par Jack Hier à 20:36

» Problèmes en cours.
par Jack Hier à 20:31

» PanExpress : l'éditeur Panoramic avec création d'objet
par Minibug Hier à 19:55

» Exemple d'une nouvelle version d'un GRID
par Minibug Hier à 17:36

» Comment faire fonctionner \qj en RTF ?
par jjn4 Mer 12 Déc 2018 - 19:25

» Mais où est donc passé Klaus ?!
par Jicehel Mer 12 Déc 2018 - 13:38

» Problème avec SaveStringList.
par Klaus Mer 12 Déc 2018 - 12:14

» Je suis de retour !
par Klaus Mer 12 Déc 2018 - 12:10

» Connexion au forum
par mindstorm Mer 5 Déc 2018 - 19:09

» Version instantanée V 0.9.29i5 du 17/11/2018
par silverman Ven 30 Nov 2018 - 10:37

» imprimer avec Print.dll
par JL35 Jeu 29 Nov 2018 - 21:33

» Convertisseur Décimal ---> Binaire, Octal, Hexadécimal, ...
par Minibug Dim 25 Nov 2018 - 15:37

» Impression de documents
par JL35 Ven 23 Nov 2018 - 19:45

» Logiciel de soutien scolaire.
par Marc Jeu 22 Nov 2018 - 20:51

» Logiciel de soutien en langues.
par Marc Jeu 22 Nov 2018 - 19:39

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Décembre 2018
LunMarMerJeuVenSamDim
     12
3456789
10111213141516
17181920212223
24252627282930
31      
CalendrierCalendrier

Partagez | 
 

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

Aller en bas 
AuteurMessage
Pedro Alvarez

avatar

Nombre de messages : 1226
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 : 6407
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 : 1226
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 : 6407
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 supprimer l'affichage des "sujets similaires"
» Comment créer une classe CSS pour cet affichage ?
» Comment changer la couleur de l'affichage de mon rang
» Comment met-on un panneau d'affichage sur l'acueuil?

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: