Saber aspecto de windows xp

[rfernandez]

Para poder ajustar bien el width de mis dbgrids necesitaris saber en tiempo de ejecución que estilo/tema esta cargado en windows xp, es decir, si xp se esta viendo en estilo xp o estilo clasico.

Tambien necesitaria saber que windows esta instalado en la maquina, si xp o uno anterior.

Gracias.

[dec]

Hola,

Tal vez te sirva utilizar la función "IsThemeActive" de la librería "uxtheme.dll". Podrías declararla tal que así:


function IsThemeActive : BOOL; external 'uxtheme.dll' name 'IsThemeActive';

Dicha librería solamente está disponible en Windows XP, así que la función solamente se puede utilizar en esa versión de Windows. Esto lo puedes ver explicado aquí mismo (http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/commctls/userex/functions/isthemeactive.asp). Es posible que eso mismo ya te sirviera para determinar si es Windows XP el sistema operativo sobre el cual corre tu aplicación, pero, ante la duda, puedes valerte para esto último del truco "Obtener la versión de Windows (http://www.q3.nu/trucomania/truco.cgi?479&esp)" de Trucomania (http://www.q3.nu/trucomania/).

[rfernandez]

Gracias si funciona
Pero a ver si me puedes aclarar como puedo saber si está windows xp instalado o no, ya que la funcion que me das de trucomania no me lo dice i por otra parte como podria saber si la dll que mencionas existe o no ya que por lo que he entendido esa dll solo existe en winxp.
Gracias.

[dec]

Hola,

Respecto de lo primero el truco que menciono proporcina una o más funciones, pero, si te fijas al final incluye una unidad completa en que alguien encapsuló lo preciso para poder utilizar como tal, como unidad.

Añade dicha unidad (te la adjunto) a tu proyecto y válete de la función "GetWindowsVersion" que incluye. Recibierás una cadena con la versión del sistema operativo instalado: si no te place este resultado no creo que te resulte complicado cambiar a tu gusto el mismo.

Respecto de lo segundo una forma podría ser la siguiente:


if LoadLibrary('uxtheme.dll') = 0 then
SHowMessage('No se encuentra la librería');

[dec]

Hola,

Basándome en el código del truco (http://www.q3.nu/trucomania/truco.cgi?479&esp) de Trucomania (http://www.q3.nu/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.


// 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
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:


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.