Hallo,
erstmal herzlichen Dank für das Interesse an meinem Artikel. Ich suche dringend eine Funktion, die mir den Namen des aktuellen Betriebssystems ausgibt. Leider haben über 20 Komponenten Ihren Dienst versagt - die eine entdeckte ein Windows98-Update als Windows95, die andere wollte mir kein Windows NT erkennen usw.
Also habe ich eine Funktion geschrieben, die soweit in C++ auch einwandfrei funktioniert. In Delphi jedoch leider nicht! Hier ist sie:
function WinSystem: String;
var
versionInfo: OSVERSIONINFO;
WinVersion: String;
begin
versionInfo.dwOSVersionInfoSize := SizeOf(OSVERSIONINFO);
if versionInfo.dwPlatformId = VER_PLATFORM_WIN32_NT then
begin
if versionInfo.dwMajorVersion = 4 then
WinVersion := 'Windows NT';
if versionInfo.dwMajorVersion = 5 then
WinVersion := 'Windows 2000';
end;
if versionInfo.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS then
begin
if (versionInfo.dwMajorVersion = 4) and (versionInfo.dwMinorVersion = 20) then
WinVersion := 'Windows Millenium';
if (versionInfo.dwMajorVersion = 4) and (versionInfo.dwMinorVersion = 10) then
WinVersion := 'Windows 98';
if (versionInfo.dwMajorVersion = 4) and (versionInfo.dwMinorVersion = 0) then
WinVersion := 'Windows 95';
end;
result := WinVersion;
end;
Wäre jedem äußerst dankbar, der mir weiterhelfen kann!
Machts gut und viele Grüße!
Andy Ströbel, ASCOMP Software
erstmal herzlichen Dank für das Interesse an meinem Artikel. Ich suche dringend eine Funktion, die mir den Namen des aktuellen Betriebssystems ausgibt. Leider haben über 20 Komponenten Ihren Dienst versagt - die eine entdeckte ein Windows98-Update als Windows95, die andere wollte mir kein Windows NT erkennen usw.
Also habe ich eine Funktion geschrieben, die soweit in C++ auch einwandfrei funktioniert. In Delphi jedoch leider nicht! Hier ist sie:
function WinSystem: String;
var
versionInfo: OSVERSIONINFO;
WinVersion: String;
begin
versionInfo.dwOSVersionInfoSize := SizeOf(OSVERSIONINFO);
if versionInfo.dwPlatformId = VER_PLATFORM_WIN32_NT then
begin
if versionInfo.dwMajorVersion = 4 then
WinVersion := 'Windows NT';
if versionInfo.dwMajorVersion = 5 then
WinVersion := 'Windows 2000';
end;
if versionInfo.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS then
begin
if (versionInfo.dwMajorVersion = 4) and (versionInfo.dwMinorVersion = 20) then
WinVersion := 'Windows Millenium';
if (versionInfo.dwMajorVersion = 4) and (versionInfo.dwMinorVersion = 10) then
WinVersion := 'Windows 98';
if (versionInfo.dwMajorVersion = 4) and (versionInfo.dwMinorVersion = 0) then
WinVersion := 'Windows 95';
end;
result := WinVersion;
end;
Wäre jedem äußerst dankbar, der mir weiterhelfen kann!
Machts gut und viele Grüße!
Andy Ströbel, ASCOMP Software
Comment