16 messages in org.openoffice.fr.prog[prog] Comment obtnir la version de W...
FromSent OnAttachments
Didier Dorange-PattoretJan 29, 2006 6:21 am 
Bernard MarcellyJan 29, 2006 8:53 am 
Didier Dorange-PattoretJan 29, 2006 12:37 pm 
Didier Dorange-PattoretJan 29, 2006 2:26 pm 
Laurent GodardJan 29, 2006 11:06 pm 
oo...@volcar.orgJan 30, 2006 4:54 am 
Didier Dorange-PattoretJan 30, 2006 2:09 pm 
Didier Dorange-PattoretJan 30, 2006 2:21 pm 
Catherine BancillonJan 31, 2006 10:31 am 
Didier Dorange-PattoretJan 31, 2006 12:03 pm 
NojidJan 31, 2006 12:11 pm 
Catherine BancillonJan 31, 2006 11:09 pm 
Catherine BancillonJan 31, 2006 11:46 pm 
Catherine BancillonJan 31, 2006 11:56 pm 
c.ma...@univitis.frFeb 1, 2006 12:03 am 
Jacques Le MoulecFeb 1, 2006 12:10 am 
Actions with this message:
Paste this link in email or IM:
Paste this link in email or IM:
Atom feed for this thread
Paste this URL into your reader:
Subject:[prog] Comment obtnir la version de WindowsActions...
From:Didier Dorange-Pattoret (ddor@free.fr)
Date:Jan 29, 2006 6:21:43 am
List:org.openoffice.fr.prog

Bonjour, Voici une macro qui devrait me donner la version de Windows. Elle fonctionne bien avec Win98, mais ne donne rien avec WinXP.

Avez-vous une idée ?

D'avance merci.

Function VersionWinValue as String Dim sVersion as String Globalscope.BasicLibraries.LoadLibrary("ImportWizard")

OpenRegKey(HKEY_LOCAL_MACHINE,"Software\Microsoft\Windows\CurrentVersion\") sVersion = QueryValue(HKEY_LOCAL_MACHINE,"Software\Microsoft\Windows\CurrentVersion\","ProductName")

If sVersion <> "" Then VersionWinValue = sVersion Else OpenRegKey(HKEY_LOCAL_MACHINE,"SOFTWARE\Microsoft\Windows NT\CurrentVersion\") sVersion = QueryValue(HKEY_LOCAL_MACHINE,"SOFTWARE\Microsoft\Windows NT\CurrentVersion","ProductName") VersionWinValue = sVersion EndIf Print VersionWinValue End Function

http://www.dmaths.org http://sesamath.net