[D7] Comment reconnaître l'OS ?

Comment reconnaître l'OS ? [D7] - API Win32 - Programmation

Marsh Posté le 11-04-2008 à 20:01:20    

Bonsoir à tous :)
 
Je dois vérifier que je suis bien sous Windows 200 et non XP.  
 
Existe-t-il une API, pour ça, ou bien dois-je passer par une fonction de Delphi :heink: ?  
 
J'ai bien un bout de code source, mais il date... de Win 3.x :D
 
Merci :hello:

Reply

Marsh Posté le 11-04-2008 à 20:01:20   

Reply

Marsh Posté le 11-04-2008 à 20:36:27    

tu dois pouvoir faire un appel WMI  
http://laurent-dardenne.developpez [...] es/wmi-p2/


---------------

Reply

Marsh Posté le 11-04-2008 à 21:08:17    

http://www.codeproject.com/KB/winsdk/osdetect.aspx
 
tu as du code boiteux qui ne peux pas marcher sous xp ?

Reply

Marsh Posté le 11-04-2008 à 21:09:49    

"ver" en ligne de commande.
 

Microsoft Windows XP [version 5.1.2600]


 
Ca marche depuis (au minimum, j'ai pas connu avant) MS-DOS 5.0 :o

Reply

Marsh Posté le 11-04-2008 à 21:32:53    

en même entre une api standard pour la famille d'os qui te ressors un structure et une chaine que tu dois parser :D

Reply

Marsh Posté le 11-04-2008 à 21:55:31    

boarf :o

Reply

Marsh Posté le 11-04-2008 à 22:16:33    

MagicBuzz a écrit :

"ver" en ligne de commande.
 

Microsoft Windows XP [version 5.1.2600]


 
Ca marche depuis (au minimum, j'ai pas connu avant) MS-DOS 5.0 :o


:D CPM, puis MSDOS 3.2  à mon grand soulagement !!

Reply

Marsh Posté le 11-04-2008 à 22:23:49    

bjone a écrit :

http://www.codeproject.com/KB/winsdk/osdetect.aspx
 
tu as du code boiteux qui ne peux pas marcher sous xp ?


Merci, mais ce code-là est en C.
 
Et il réclame une DLL de Microsoft (MFC40...) que je n'ai pas sous XP Pro. Etonannt, d'ailleurs : XP doit être livré avec une DLL version 5 au moins, non ?

Reply

Marsh Posté le 11-04-2008 à 22:28:50    

http://msdn2.microsoft.com/en-us/l [...] S.85).aspx
 
il faut que tu cherches a atteindre GetVersionEx() en delphi.

Reply

Marsh Posté le 11-04-2008 à 22:32:16    

bjone a écrit :

http://msdn2.microsoft.com/en-us/l [...] S.85).aspx
 
il faut que tu cherches a atteindre GetVersionEx() en delphi.


Merci ;) Je vais tenter ça.

Reply

Marsh Posté le 11-04-2008 à 22:32:16   

Reply

Marsh Posté le 12-04-2008 à 20:35:02    

bjone a écrit :

http://msdn2.microsoft.com/en-us/l [...] S.85).aspx
 
il faut que tu cherches a atteindre GetVersionEx() en delphi.


J'ai un pb de syntaxe avec le pointeur.
 
Le code :
// ----- DECLARATION DES VARIABLES -----
 
var
  Form1: TForm1;
 
  type Struct_OSversionInfo = record
            dwOSVersionInfoSize : dword;
            dwMajorVersion : dword;
            dwMinorVersion : dword;
            dwBuildNumber : dword;
            dwPlatformId : dword;
            Version : Array  [0..128] of Char;  // Cher szCSDVersion;
 
        end;
 
  Struct_Version_Os = Struct_OSversionInfo;
  Ptr_Struct_Version_OS = ^Struct_OsVersionInfo;
 
// ---------  FONCTION GetOsVersionEx()  -----
 
procedure Lire_Version_OS;
Var   Retour : boolean;
 
begin
 
      Retour := GetVersionEx( Ptr_Struct_Version_OS );
 
 
end;
 
 
// ----------
 
Je suis certain qu'il s'agit d'un pur pb syntaxique. Les pointeurs, en C, j'en faisais ce que je voulais, mais en Pascal  :whistle:  

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed