Comment reconnaître l'OS ? [D7] - API Win32 - Programmation
Marsh Posté le 11-04-2008 à 20:36:27
tu dois pouvoir faire un appel WMI
http://laurent-dardenne.developpez [...] es/wmi-p2/
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 ?
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
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
Marsh Posté le 11-04-2008 à 22:16:33
MagicBuzz a écrit : "ver" en ligne de commande.
|
CPM, puis MSDOS 3.2 à mon grand soulagement !!
Marsh Posté le 11-04-2008 à 22:23:49
bjone a écrit : http://www.codeproject.com/KB/winsdk/osdetect.aspx |
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 ?
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.
Marsh Posté le 11-04-2008 à 22:32:16
bjone a écrit : http://msdn2.microsoft.com/en-us/l [...] S.85).aspx |
Merci Je vais tenter ça.
Marsh Posté le 12-04-2008 à 20:35:02
bjone a écrit : http://msdn2.microsoft.com/en-us/l [...] S.85).aspx |
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
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 ?
J'ai bien un bout de code source, mais il date... de Win 3.x
Merci