JulioDelphi
Messages postés2226Date d'inscriptiondimanche 5 octobre 2003StatutMembreDernière intervention18 novembre 2010
-
17 nov. 2004 à 11:37
Bacterius
Messages postés3792Date d'inscriptionsamedi 22 décembre 2007StatutMembreDernière intervention 3 juin 2016
-
16 mars 2008 à 11:11
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
cs_MAURICIO
Messages postés2106Date d'inscriptionmardi 10 décembre 2002StatutModérateurDernière intervention15 décembre 20145 17 nov. 2004 à 13:05
Y a t-il qqu' un qui sait comment savoir si c XP pro ou Home edition ???
cs_MAURICIO
Messages postés2106Date d'inscriptionmardi 10 décembre 2002StatutModérateurDernière intervention15 décembre 20145 17 nov. 2004 à 13:03
Voilà une petite amelioration du code:
procedure VersaoWindows(var Versao: ShortString; var Separador: ShortString; var Revisao: ShortString);
var
VersionInfo: TOSVersionInfo;
begin
Versao := '';
Separador := '';
Revisao := '';
// charger info
VersionInfo.dwOSVersionInfoSize:=SizeOf(VersionInfo);
GetVersionEx(VersionInfo);
// en fonction de la version
case VersionInfo.dwPlatformId of
// win 3.1
VER_PLATFORM_WIN32S:
begin
Versao := IntToStr(VersionInfo.dwMajorVersion);
Separador := '.';
Revisao := IntToStr(VersionInfo.dwMinorVersion);
end;
// win 95 / 98 / me
VER_PLATFORM_WIN32_WINDOWS:
case VersionInfo.dwMinorVersion of
// win 95
0: begin
Versao := '95';
Separador := ' OSR ';
if VersionInfo.szCSDVersion[1] = 'B'
then Revisao := '2'
else Revisao := '1';
end;
// win 98
10: begin
Versao := '98';
Separador := ' OSR ';
if VersionInfo.szCSDVersion[1] = 'A'
then Revisao := '1'
else Revisao := '2';
end;
// win millenium
90: begin
Versao := 'Me';
// if VersionInfo.dwBuildNumber=73010104
// then Versao := 'Millenium';
end;
end;
// win nt, 2000, XP ...
VER_PLATFORM_WIN32_NT :
case VersionInfo.dwMajorVersion of
// win nt 3
3: begin
Versao := 'NT 3';
Separador := '.';
Revisao := VersionInfo.szCSDVersion;
end;
// win nt4
4: begin
Versao := 'NT 4';
Separador := ' ';
Revisao := VersionInfo.szCSDVersion;
end;
// win 2000 et xp
5: begin
case VersionInfo.dwMinorVersion of
// win 2000
0: Versao := '2000';
// win xp
1: Versao := 'XP';
end;
Si quelqu' un pouvait tester pour NT, ce serait super !
Mais, pou XP, on a maintenant le service pack !!!!!!!!!
A voir si ça marche pour Windows 2000 ?!
cs_MAURICIO
Messages postés2106Date d'inscriptionmardi 10 décembre 2002StatutModérateurDernière intervention15 décembre 20145 17 nov. 2004 à 12:26
N' est-ce pas le contraire ?
// win 98
10: begin
if VersionInfo.szCSDVersion[1]='A' then
WindowsVersion:='Windows 98 OSR 2'
else WindowsVersion:='Windows 98 OSR 1';
end;
cs_MAURICIO
Messages postés2106Date d'inscriptionmardi 10 décembre 2002StatutModérateurDernière intervention15 décembre 20145 17 nov. 2004 à 12:14
J' ai pas compris pourquoi tu fais :
if VersionInfo.dwBuildNumber=73010104
then RESULT := 'Windows Millenium';
alors que tu es dans ton case sur WinMe ...
Si tu pouvais m' expliquer...
JulioDelphi
Messages postés2226Date d'inscriptiondimanche 5 octobre 2003StatutMembreDernière intervention18 novembre 201014 17 nov. 2004 à 11:37
hello,
peut tu detecter l'installation d'un SP ?
merci, a+
16 mars 2008 à 11:11
Pour récuperer le nom du service pack installé, tu tapes SysUtils.Win32CSDVersion (et voila !)
Cordialement, Bacterius !
PS : Il me renvoie "Service Pack 2" alors je suppose que ...
6 déc. 2006 à 19:19
C'est reposant,pas difficile à taper et plutôt bien écrit(note 10/10 ,"humour").
ToutEnMasm
#include <windows.h>
#include <stdio.h>
#define BUFSIZE 80
int main()
{
OSVERSIONINFOEX osvi;
BOOL bOsVersionInfoEx;
// Try calling GetVersionEx using the OSVERSIONINFOEX structure.
// If that fails, try using the OSVERSIONINFO structure.
ZeroMemory(&osvi, sizeof(OSVERSIONINFOEX));
osvi.dwOSVersionInfoSize = sizeof(OSVERSIONINFOEX);
if( !(bOsVersionInfoEx = GetVersionEx ((OSVERSIONINFO *) &osvi)) )
{
osvi.dwOSVersionInfoSize = sizeof (OSVERSIONINFO);
if (! GetVersionEx ( (OSVERSIONINFO *) &osvi) )
return FALSE;
}
switch (osvi.dwPlatformId)
{
// Test for the Windows NT product family.
case VER_PLATFORM_WIN32_NT:
// Test for the specific product.
if ( osvi.dwMajorVersion 5 && osvi.dwMinorVersion 2 )
printf ("Microsoft Windows Server 2003, ");
if ( osvi.dwMajorVersion 5 && osvi.dwMinorVersion 1 )
printf ("Microsoft Windows XP ");
if ( osvi.dwMajorVersion 5 && osvi.dwMinorVersion 0 )
printf ("Microsoft Windows 2000 ");
if ( osvi.dwMajorVersion <= 4 )
printf("Microsoft Windows NT ");
// Test for specific product on Windows NT 4.0 SP6 and later.
if( bOsVersionInfoEx )
{
// Test for the workstation type.
if ( osvi.wProductType == VER_NT_WORKSTATION )
{
if( osvi.dwMajorVersion == 4 )
printf ( "Workstation 4.0 " );
else if( osvi.wSuiteMask & VER_SUITE_PERSONAL )
printf ( "Home Edition " );
else printf ( "Professional " );
}
// Test for the server type.
else if ( osvi.wProductType == VER_NT_SERVER ||
osvi.wProductType == VER_NT_DOMAIN_CONTROLLER )
{
if(osvi.dwMajorVersion==5 && osvi.dwMinorVersion==2)
{
if( osvi.wSuiteMask & VER_SUITE_DATACENTER )
printf ( "Datacenter Edition " );
else if( osvi.wSuiteMask & VER_SUITE_ENTERPRISE )
printf ( "Enterprise Edition " );
else if ( osvi.wSuiteMask == VER_SUITE_BLADE )
printf ( "Web Edition " );
else printf ( "Standard Edition " );
}
else if(osvi.dwMajorVersion==5 && osvi.dwMinorVersion==0)
{
if( osvi.wSuiteMask & VER_SUITE_DATACENTER )
printf ( "Datacenter Server " );
else if( osvi.wSuiteMask & VER_SUITE_ENTERPRISE )
printf ( "Advanced Server " );
else printf ( "Server " );
}
else // Windows NT 4.0
{
if( osvi.wSuiteMask & VER_SUITE_ENTERPRISE )
printf ("Server 4.0, Enterprise Edition " );
else printf ( "Server 4.0 " );
}
}
}
// Test for specific product on Windows NT 4.0 SP5 and earlier
else
{
HKEY hKey;
char szProductType[BUFSIZE];
DWORD dwBufLen=BUFSIZE;
LONG lRet;
lRet = RegOpenKeyEx( HKEY_LOCAL_MACHINE,
"SYSTEM\\CurrentControlSet\\Control\\ProductOptions",
0, KEY_QUERY_VALUE, &hKey );
if( lRet != ERROR_SUCCESS )
return FALSE;
lRet = RegQueryValueEx( hKey, "ProductType", NULL, NULL,
(LPBYTE) szProductType, &dwBufLen);
if( (lRet != ERROR_SUCCESS) || (dwBufLen > BUFSIZE) )
return FALSE;
RegCloseKey( hKey );
if ( lstrcmpi( "WINNT", szProductType) == 0 )
printf( "Workstation " );
if ( lstrcmpi( "LANMANNT", szProductType) == 0 )
printf( "Server " );
if ( lstrcmpi( "SERVERNT", szProductType) == 0 )
printf( "Advanced Server " );
printf( "%d.%d ", osvi.dwMajorVersion, osvi.dwMinorVersion );
}
// Display service pack (if any) and build number.
if( osvi.dwMajorVersion == 4 &&
lstrcmpi( osvi.szCSDVersion, "Service Pack 6" ) == 0 )
{
HKEY hKey;
LONG lRet;
// Test for SP6 versus SP6a.
lRet = RegOpenKeyEx( HKEY_LOCAL_MACHINE,
"SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Hotfix\\Q246009",
0, KEY_QUERY_VALUE, &hKey );
if( lRet == ERROR_SUCCESS )
printf( "Service Pack 6a (Build %d)\n",
osvi.dwBuildNumber & 0xFFFF );
else // Windows NT 4.0 prior to SP6a
{
printf( "%s (Build %d)\n",
osvi.szCSDVersion,
osvi.dwBuildNumber & 0xFFFF);
}
RegCloseKey( hKey );
}
else // not Windows NT 4.0
{
printf( "%s (Build %d)\n",
osvi.szCSDVersion,
osvi.dwBuildNumber & 0xFFFF);
}
break;
// Test for the Windows Me/98/95.
case VER_PLATFORM_WIN32_WINDOWS:
if (osvi.dwMajorVersion 4 && osvi.dwMinorVersion 0)
{
printf ("Microsoft Windows 95 ");
if (osvi.szCSDVersion[1]=='C' || osvi.szCSDVersion[1]=='B')
printf("OSR2 " );
}
if (osvi.dwMajorVersion 4 && osvi.dwMinorVersion 10)
{
printf ("Microsoft Windows 98 ");
if ( osvi.szCSDVersion[1] == 'A' )
printf("SE " );
}
if (osvi.dwMajorVersion 4 && osvi.dwMinorVersion 90)
{
printf ("Microsoft Windows Millennium Edition\n");
}
break;
case VER_PLATFORM_WIN32s:
printf ("Microsoft Win32s\n");
break;
}
return TRUE;
}
17 nov. 2004 à 13:32
C' est la meilleure source !
17 nov. 2004 à 13:27
Cependant, ma source permet de :
- savoir le service pack.
- Ecrire le resultat comme on veut: Windows 95 OSR 1, Win98 OSR 1 ou meme simplement w95!!!
17 nov. 2004 à 13:08
http://delphi.developpez.com/faq/?page=systemedivers#versionwindows
( Dans le code contenu dans le zip, celui de la page est simplifié )
17 nov. 2004 à 13:05
17 nov. 2004 à 13:03
procedure VersaoWindows(var Versao: ShortString; var Separador: ShortString; var Revisao: ShortString);
var
VersionInfo: TOSVersionInfo;
begin
Versao := '';
Separador := '';
Revisao := '';
// charger info
VersionInfo.dwOSVersionInfoSize:=SizeOf(VersionInfo);
GetVersionEx(VersionInfo);
// en fonction de la version
case VersionInfo.dwPlatformId of
// win 3.1
VER_PLATFORM_WIN32S:
begin
Versao := IntToStr(VersionInfo.dwMajorVersion);
Separador := '.';
Revisao := IntToStr(VersionInfo.dwMinorVersion);
end;
// win 95 / 98 / me
VER_PLATFORM_WIN32_WINDOWS:
case VersionInfo.dwMinorVersion of
// win 95
0: begin
Versao := '95';
Separador := ' OSR ';
if VersionInfo.szCSDVersion[1] = 'B'
then Revisao := '2'
else Revisao := '1';
end;
// win 98
10: begin
Versao := '98';
Separador := ' OSR ';
if VersionInfo.szCSDVersion[1] = 'A'
then Revisao := '1'
else Revisao := '2';
end;
// win millenium
90: begin
Versao := 'Me';
// if VersionInfo.dwBuildNumber=73010104
// then Versao := 'Millenium';
end;
end;
// win nt, 2000, XP ...
VER_PLATFORM_WIN32_NT :
case VersionInfo.dwMajorVersion of
// win nt 3
3: begin
Versao := 'NT 3';
Separador := '.';
Revisao := VersionInfo.szCSDVersion;
end;
// win nt4
4: begin
Versao := 'NT 4';
Separador := ' ';
Revisao := VersionInfo.szCSDVersion;
end;
// win 2000 et xp
5: begin
case VersionInfo.dwMinorVersion of
// win 2000
0: Versao := '2000';
// win xp
1: Versao := 'XP';
end;
Separador := ' ';
Revisao := VersionInfo.szCSDVersion;
end;
end;
end;
end;
Si quelqu' un pouvait tester pour NT, ce serait super !
Mais, pou XP, on a maintenant le service pack !!!!!!!!!
A voir si ça marche pour Windows 2000 ?!
17 nov. 2004 à 12:26
// win 98
10: begin
if VersionInfo.szCSDVersion[1]='A' then
WindowsVersion:='Windows 98 OSR 2'
else WindowsVersion:='Windows 98 OSR 1';
end;
17 nov. 2004 à 12:14
if VersionInfo.dwBuildNumber=73010104
then RESULT := 'Windows Millenium';
alors que tu es dans ton case sur WinMe ...
Si tu pouvais m' expliquer...
17 nov. 2004 à 11:37
peut tu detecter l'installation d'un SP ?
merci, a+