Hallo Leute,
ich will in meiner About-Box die installierte Windows-Version anzeigen. Ich habe es so gemacht:
Delphi-Quellcode:
function WinVersionAPI_asString:
string;
var
osInfo: tosVersionInfo;
begin
Result := '
unknown';
osInfo.dwOSVersionInfoSize:= Sizeof( osInfo );
if DWORD(GetVersionEx( osInfo )) <> 0
then
with osInfo
do begin
case dwPlatformId
of
VER_PLATFORM_WIN32_WINDOWS :
Result:='
Kein NT-OS';
VER_PLATFORM_WIN32_NT :
Result:=Format('
%d.%d Built %d %s',[dwMajorVersion,dwMinorVersion,dwBuildNumber,
string(szCSDVersion)]);
end
end
//if
end;
{WinVersionAPI_asString}
Ich habe hier im Forum gelernt, dass hier nicht immer die richtige Version angezeigt wird. (Manifest). Dann habe ich es mit cmd /c ver >...ver.dat gemacht, das hat ca. 1 Jahr funktioniert jetzt wird nichts mehr angezeigt. Siehe mein Beispiel.
Das war der Sinn meine Anfrage!
Ich will keinen Programm-Code, abhängig von der Windows-Version schreiben, NUR die installierte Windows-Version ermitteln und anzeigen.
Willie.