Saber aspecto de windows xp

[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;

[rfernandez]

Buenas perdon por la demora pero no he podido provar la aplicacion en un win2000 hasta hoy.
Me da un casque si utilizo directament la funcion

Código Delphi [-]
LoadLibrary('uxtheme.dll')

en una maquina que no tiene windows xp.

Lo que provaré ahora es poner la instrucción en un try except i capturar-lo por aqui.
Os digo como funciona.

[dec]

Hola,

Tal vez podrías hacer uso de esta o una función parecida para averiguar si cuentas con determinada librería o, mejor dicho, si una determinada librería cuenta con una función en concreto:

Código Delphi [-]
 function ExisteFuncion(const dll,
   funcion: string) : boolean;
 var
   aDll: THandle;
 begin
   Result := false;
   if LoadLibrary(PChar(dll)) = 0 then
     Exit;
   aDll := GetModuleHandle(PChar(dll));
   if aDll <> 0 then
     Result := GetProcAddress(aDll,
       PChar(funcion)) <> nil;
 end;

[rfernandez]

Lo del try except para capturar el casque del loadlibrary no funciona, casca y no arranca la aplicación.

Lo que provaré ahora es mirar, con el codigo que me habeis dado si esta instalado windows xp y en caso afirmativo entonces preguntar por loadlibrary.

Os digo alguna cosa.