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 détecter la version de Windows ?

Aller en bas 
AuteurMessage
Pedro Alvarez

avatar

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

MessageSujet: Comment détecter la version de Windows ?   Dim 4 Nov 2018 - 10:00

Bonjour à tous.

L'un d'entre vous sait-il comment détecter la version de Windows, en Panoramic bien sûr ?

Windows 32 bits ou 64 bits ?

Ce qui m'importe, c'est le nombre 32 ou 64.

Merci.

Je viens de trouver la solution:

Code:
dll_on "kgf"
res%=dll_call0("IsWin64")
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 11109
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Comment détecter la version de Windows ?   Dim 4 Nov 2018 - 10:35

Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
JL35



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

MessageSujet: Re: Comment détecter la version de Windows ?   Dim 4 Nov 2018 - 13:04

Il y a un moyen plus simple, en ligne de commande et sans dll:
Code:
EXECUTE_WAIT "cmd.exe|/c wmic OS get osarchitecture | clip"
MESSAGE CLIPBOARD_STRING_PASTE$
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 5736
Age : 64
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Comment détecter la version de Windows ?   Dim 4 Nov 2018 - 13:15

Bravo JL35, joli coup !
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 détecter la version de Windows ?   Dim 4 Nov 2018 - 13:25

Merci Jean Claude, je savais bien que tu apprécierais ! Cool

D'où la petite sub:
Code:
SUB W32_64()
  ' Version Système 32 bits ou 64 bits -> clipboard
  DIM_LOCAL v$,k%
  EXECUTE_WAIT "cmd.exe|/c wmic OS get osarchitecture | clip"
  v$ = CLIPBOARD_STRING_PASTE$: k% = INSTR(v$,"bits")
  CLIPBOARD_STRING_COPY MID$(v$,k%-3,7): ' -> '32 bits' ou '64 bits'
END_SUB
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 5736
Age : 64
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Comment détecter la version de Windows ?   Dim 4 Nov 2018 - 13:31

Par contre JL35, je suis intéressé de savoir où tu as trouvé ces fonctions de "cmd.exe" Very Happy
A moins que tu ne les connaissent par cœur.

A+
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 détecter la version de Windows ?   Dim 4 Nov 2018 - 13:47

Il y a une foultitude de fonctions cmd, et je ne connais que les plus courantes.

Mais une simple recherche google permet de découvrir les autres, par exemple ici j'ai fait une recherche du genre 'windows 32 or 64 command line'. Et quand ça existe dans windows, c'est plus simple à utiliser que de réinventer l'eau chaude.
Il faut choisir parmi les nombreuses réponses, mais ce n'est pas trop fatigant... Very Happy
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 11109
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Comment détecter la version de Windows ?   Dim 4 Nov 2018 - 13:48

Pour ceux dont le programme utilise déjà KGF.dll, en voici un exemple:
Code:
dim res%, s$, f$
dll_on "KGF.dll"
memo 1 : full_space 1

res% = dll_call0("IsWin64")
item_add 1,"IsWin64: res%="+str$(res%)

s$ = string$(255," ")
res% = dll_call1("GetWindowsVersion",adr(s$))
item_add 1,"GetWindowsVersion: res%="+str$(res%)+" = "+trim$(s$)

s$ = string$(255," ")
f$ = string$(255," ")
res% = dll_call2("GetWindowsVersionAndFamily",adr(s$),adr(f$))
item_add 1,"GetWindowsVersionAndFamily: res%="+str$(res%)+" = "+trim$(s$)+" - "+f$
                
end

Voici le résultat:
Citation :
IsWin64: res%=1
GetWindowsVersion: res%=0 = Windows 10 Home Premium Edition, 64-bit  (Build 9200)
GetWindowsVersionAndFamily: res%=0 = Windows 10 Home Premium Edition, 64-bit  (Build 9200) - Windows 10                                                                                                                                                                                                    
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
papydall

avatar

Nombre de messages : 6063
Age : 68
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Comment détecter la version de Windows ?   Dim 4 Nov 2018 - 16:43

Code:

execute_wait "winver"
execute_wait "cmd.exe|/c wmic OS get osarchitecture | clip"
MESSAGE CLIPBOARD_STRING_PASTE$



Vous pouvez appuyer sur les touches Windows + Pause du clavier
Vous obtenez des "Informations système générales"
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
papydall

avatar

Nombre de messages : 6063
Age : 68
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Comment détecter la version de Windows ?   Dim 4 Nov 2018 - 16:47

Code:

execute_wait "cmd.exe|/c set processor_architecture | clip"
MESSAGE CLIPBOARD_STRING_PASTE$
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
papydall

avatar

Nombre de messages : 6063
Age : 68
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Comment détecter la version de Windows ?   Dim 4 Nov 2018 - 17:05

Code:

rem ============================================================================
rem            Afficher la boite de dialogue A propos
rem ============================================================================
label Apropos
dim titre$,msg$,about%
Button 10 : top 10,20 : left 10,500 : font_bold 10 : caption 10,"&A propos"
on_click 10,Apropos
end
rem ============================================================================
Apropos:
  dll_on "shell32"
  about% = dll_call4("ShellAboutA",handle(0), adr(titre$),adr(msg$),0)
  dll_off
return
rem ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
papydall

avatar

Nombre de messages : 6063
Age : 68
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Comment détecter la version de Windows ?   Dim 4 Nov 2018 - 19:27

Jean Claude a écrit:
Par contre JL35, je suis intéressé de savoir où tu as trouvé ces fonctions de "cmd.exe"  
A moins que tu ne les connaissent par cœur.

Exécute le code suivant et puis tu seras aussi compétent (ou presque  tongue ) en ligne de commande que JL35 !

Code:
rem ============================================================================
rem     Affiche la liste des commandes disponibles de la ligne de commandes
rem ============================================================================
width 0,1000
memo 10 : full_space 10 : font_bold 10 : font_color 10,0,0,255 : bar_both 10
font_name 10,"consolas" : font_size 10,14
item_add 10,"Liste des commandes disponibles"
item_add 10,"==============================="
execute_wait "cmd.exe |/c help | clip"
item_add 10,CLIPBOARD_STRING_PASTE$
rem ============================================================================


Pour des plus amples informations, tu peux consulter ce cours.

Bonne lecture!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Contenu sponsorisé




MessageSujet: Re: Comment détecter la version de Windows ?   

Revenir en haut Aller en bas
 
Comment détecter la version de Windows ?
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Yumi multiboot USB creator : Comment créer une clé usb de démarrage
» Comment passer à la version portable (Mobile?)
» Détecter les péripériques connectés
» Comment programmer le module roco 10777
» Comment détecter une contrefaçon

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: