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

Aller en bas 
AuteurMessage
Pedro Alvarez

avatar

Nombre de messages : 1226
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 : 6407
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 : 5733
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 : 6407
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 : 5733
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 : 6407
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 : 6056
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 : 6056
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 : 6056
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 : 6056
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
-
» Windows 7 et mapsource version 5.00
» 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 retrouver ma cle de xp sur mon pc [résolu]

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: