[dec]

Hola,

Basándome en el código del truco de Trucomania mencionado más arriba preparé esta función que devolverá "True" si el programa (que utilize la función) corre sobre la versión Xp de Windows, o "False", en caso contrario.

Código Delphi [-]
 // Averiguar si el programa se corre
 // encima de la versión Xp de Windows.
 //
 function EsWindowsXp : boolean;
 var
   OVI: TOSVersionInfo;
 begin
   Result := false;
   OVI.dwOSVersionInfoSize :=
     SizeOf(TOSVersionInfo);
   if (GetVersionEx(OVI)) then begin
     Result := (OVI.dwMajorVersion = 5)
       and (OVI.dwMinorVersion = 1);
   end;
 end;