FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  RechercherRechercher  Dernières imagesDernières images  S'enregistrerS'enregistrer  MembresMembres  Connexion  
Derniers sujets
» Petit passage furtif
Comment détecter la version de Windows ? Emptypar Froggy One Hier à 14:26

» demande explication KGF pour imprimer en mm
Comment détecter la version de Windows ? Emptypar JL35 Mar 26 Mar 2024 - 10:06

» SPIN et aide langage (résolu)
Comment détecter la version de Windows ? Emptypar leclode Sam 23 Mar 2024 - 15:20

» Aide-mémoire des mots-clés Panoramic
Comment détecter la version de Windows ? Emptypar papydall Mer 20 Mar 2024 - 21:23

» Je ne comprend pas pourquoi la largeur de la scene 3d change
Comment détecter la version de Windows ? Emptypar Marc Mar 12 Mar 2024 - 20:06

» Comment télécharger panoramic?
Comment détecter la version de Windows ? Emptypar lepetitmarocain Sam 9 Mar 2024 - 13:31

» @lepetitmarocain <==> KGFGrid
Comment détecter la version de Windows ? Emptypar Klaus Dim 3 Mar 2024 - 9:59

» Tangram-Toukaré
Comment détecter la version de Windows ? Emptypar jjn4 Mer 28 Fév 2024 - 18:12

» Editeur EliP 6 : Le Tiny éditeur avec 25 onglets de travail
Comment détecter la version de Windows ? Emptypar jjn4 Mer 28 Fév 2024 - 18:09

» KGF_dll - nouvelles versions
Comment détecter la version de Windows ? Emptypar Klaus Mer 28 Fév 2024 - 17:01

» Mes souhaits d'amélioration de Panoramic.
Comment détecter la version de Windows ? Emptypar Pedro Lun 26 Fév 2024 - 18:12

» Testez-votre-QI
Comment détecter la version de Windows ? Emptypar jjn4 Dim 25 Fév 2024 - 17:12

» Utilisation d'Élip
Comment détecter la version de Windows ? Emptypar jjn4 Sam 24 Fév 2024 - 18:33

» Récapitulatif ludothèque panoramic jjn4
Comment détecter la version de Windows ? Emptypar jjn4 Sam 24 Fév 2024 - 18:11

» Générateur de mots de passe
Comment détecter la version de Windows ? Emptypar mindstorm Mar 20 Fév 2024 - 20:09

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Mars 2024
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
CalendrierCalendrier
-15%
Le deal à ne pas rater :
(Adhérents Fnac) LEGO® Star Wars™ 75367 Le croiseur d’assaut de ...
552.49 € 649.99 €
Voir le deal

 

 Comment détecter la version de Windows ?

Aller en bas 
5 participants
AuteurMessage
Pedro

Pedro


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

Comment détecter la version de Windows ? Empty
MessageSujet: Comment détecter la version de Windows ?   Comment détecter la version de Windows ? EmptyDim 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
Klaus

Klaus


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

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

Revenir en haut Aller en bas
http://klauspanoramic.comxa.com/index.html
JL35




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

Comment détecter la version de Windows ? Empty
MessageSujet: Re: Comment détecter la version de Windows ?   Comment détecter la version de Windows ? EmptyDim 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
Jean Claude

Jean Claude


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

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

Bravo JL35, joli coup !
Revenir en haut Aller en bas
JL35




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

Comment détecter la version de Windows ? Empty
MessageSujet: Re: Comment détecter la version de Windows ?   Comment détecter la version de Windows ? EmptyDim 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
Jean Claude

Jean Claude


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

Comment détecter la version de Windows ? Empty
MessageSujet: Re: Comment détecter la version de Windows ?   Comment détecter la version de Windows ? EmptyDim 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
JL35




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

Comment détecter la version de Windows ? Empty
MessageSujet: Re: Comment détecter la version de Windows ?   Comment détecter la version de Windows ? EmptyDim 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
Klaus

Klaus


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

Comment détecter la version de Windows ? Empty
MessageSujet: Re: Comment détecter la version de Windows ?   Comment détecter la version de Windows ? EmptyDim 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
http://klauspanoramic.comxa.com/index.html
papydall

papydall


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

Comment détecter la version de Windows ? Empty
MessageSujet: Re: Comment détecter la version de Windows ?   Comment détecter la version de Windows ? EmptyDim 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
http://papydall-panoramic.forumarabia.com/
papydall

papydall


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

Comment détecter la version de Windows ? Empty
MessageSujet: Re: Comment détecter la version de Windows ?   Comment détecter la version de Windows ? EmptyDim 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
http://papydall-panoramic.forumarabia.com/
papydall

papydall


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

Comment détecter la version de Windows ? Empty
MessageSujet: Re: Comment détecter la version de Windows ?   Comment détecter la version de Windows ? EmptyDim 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
http://papydall-panoramic.forumarabia.com/
papydall

papydall


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

Comment détecter la version de Windows ? Empty
MessageSujet: Re: Comment détecter la version de Windows ?   Comment détecter la version de Windows ? EmptyDim 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
http://papydall-panoramic.forumarabia.com/
Contenu sponsorisé





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

Revenir en haut Aller en bas
 
Comment détecter la version de Windows ?
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Taille d'une form et version Windows en Delphi
» Détecter les péripériques connectés
»  Détecter le type du PC Portable ou Fixe
» Detecter la couleur d'un pixel sur l'écran
» Pour détecter la position du curseur

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: