ВП
Владимер Процан
Как узнать версию операционной системы Windows на Delphi
пишу прогу и необходимо узнать версию операционной системы Windows. Вот что в нете нашёл, но прога не определяет OS
function OSVersion: word;
{
5.0 - Win2K
5.1 - WinXP
5.2 - Win2K3
6.0 - Vista
6.1 - Win7
}
var
VerInfo: TOSVersionInfo;
begin
fillchar(VerInfo, sizeof(VerInfo), 0);
VerInfo.dwOSVersionInfoSize := SizeOf(VerInfo);
result := 0;
if GetVersionEx(VerInfo) then
if VerInfo.dwPlatformId = VER_PLATFORM_WIN32_NT then
result := byte(VerInfo.dwMajorVersion) shl 8 + byte(VerInfo.dwMinorVersion)
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(IntToStr( OSVersion));
end;
Функция возвращает что-то не то