[Casper-Hacker]

Сообщение от DroNNN

Народ кто знает, как определить на Delphi, стоит Vista или XP?

Код:

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 ... '5.1' then ... 'WinXP';
if ... '6.0' then ... 'WinVista';