|
#1
|
|||
|
|||
VISTA или XP
Народ кто знает, как определить на Delphi, стоит Vista или XP?
|
#2
|
||||
|
||||
Если MajorVersion больше 5 то Виста
|
#3
|
||||
|
||||
Цитата:
Код:
function GetOSInfo: String; var OSVersion: TOSVersionInfo; RegFile: TRegIniFile; begin RegFile:=TRegIniFile.Create('Software'); OSVersion.dwOSVersionInfoSize:=SIZEOF(OSVersion); if GetVersionEx(OSVersion) then begin Result:= Format('%d.%d (%d.%s)',[OSVersion.dwMajorVersion, OSVersion.dwMinorVersion,(OSVersion.dwBuildNumber and $FFFF), OSVersion.szCSDVersion]); end; end; if ... '6.0' then ... 'WinVista'; |