Comment détecter la version de Windows ?

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

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")

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

Avec KGF.dll:
https://klauspanoramic.000webhostapp.com/IsWin64.html#IsWin64_fr
https://klauspanoramic.000webhostapp.com/GetWindowsVersion.html#GetWindowsVersion_fr
https://klauspanoramic.000webhostapp.com/GetWindowsVersionAndFamily.html#GetWindowsVersionAndFamily_fr
https://klauspanoramic.000webhostapp.com/GetWindowsInfo.html#GetWindowsInfo_fr

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

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$

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

Bravo JL35, joli coup !

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

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

Sujet: 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+

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

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

Sujet: 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

Sujet: 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"

Sujet: 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$

Sujet: 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 ============================================================================

Sujet: 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!

» Taille d'une form et version Windows en Delphi
» Détecter les péripériques connectés
» Detecter la couleur d'un pixel sur l'écran
» Pour détecter la position du curseur
» Détecter le type du PC Portable ou Fixe