Fórum Como descobrir se é Windows XP #256175

function IsWinXP: Boolean;
begin
  Result := (Win32Platform = VER_PLATFORM_WIN32_NT) and
    (Win32MajorVersion = 5) and (Win32MinorVersion = 1);
end; 

Uses
   Registry;
...
Var
  Registro : TRegistry;
Begin
   Registro := TRegistry.Create; 
   Registro.RootKey := HKEY_LOCAL_MACHINE;
   Registro.OpenKey(´SOFTWARE\Microsoft\Windows\CurrentVersion´,False);{"False" pq todas as versões do Win possuem essa chave} 
   If Not Registro.ValueExists(´Version´)Then 
      ShowMessage(´NT/2000/XP´)
   Else 
      ShowMessage(´Win9X/ME´); 
   Registro.CloseKey();
   FreeAndNil(Registro);
End;