Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > API de Windows
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 02-03-2009
Avatar de MAXIUM
MAXIUM MAXIUM is offline
Miembro
 
Registrado: may 2005
Posts: 1.494
Poder: 21
MAXIUM Va camino a la fama
Flash Player

Como puedo saber si se encuentra instalado Flash Player en un sistema Windows y además saber su versión.

Lo pregunto para saber como incluir el instalador de flashplayer en InnoSetup.
Responder Con Cita
  #2  
Antiguo 10-03-2009
Avatar de Black_Ocean
Black_Ocean Black_Ocean is offline
Miembro
 
Registrado: nov 2006
Posts: 128
Poder: 18
Black_Ocean Va por buen camino
Hola,

Cita:
Empezado por MAXIUM Ver Mensaje
Como puedo saber si se encuentra instalado Flash Player en un sistema Windows y además saber su versión.
Bueno, le he realizado el código en Inno setup para detectar la versión de Adobe Flash instalada en el equipo, Ponga estas líneas en la sección CODE de su script de Inno Setup:

Código Delphi [-]
function ObtenerVersionFlash(var BufVersion, BufArchivo: string): Boolean;
var
  ArchivoOCX: string;
  Version: string;
begin
  Result := False;
  Version := '';
  if RegQueryStringValue(HKEY_CLASSES_ROOT, 'CLSID\{D27CDB6E-AE6D-11cf-96B8-444553540000}\InprocServer32', '', ArchivoOCX) = true then
  begin
    ArchivoOCX := RemoveQuotes(ArchivoOCX);
    if FileExists(ArchivoOCX) = true then
      if GetVersionNumbersString(ArchivoOCX, Version) = true then
      begin
        BufVersion := Version;
        BufArchivo := ArchivoOCX;
        Result := True;
      end;
   end;   
end;

function InitializeSetup(): Boolean; //Evento predefinido de inicialización del asistente de Inno Setup
var
  VersionFlash, RutaFlash: string;
begin
  if ObtenerVersionFlash(VersionFlash, RutaFlash) = true then
  begin
    MsgBox('Versión de Adobe Flash instalado en su equipo: ' + VersionFlash + #10 + 'Ruta completa del componente: ' + RutaFlash, mbConfirmation, MB_OK);
    Result := true;
  end  
  else
  begin
    MsgBox('No se ha podido detectar la versión de Adobe Flash instalada en su equipo.' + #10#10 + 'Por favor, descargue el componente desde el sitio Web oficial de Adobe y vuelva a ejecutar este asistente.', mbCriticalError, MB_OK);
    Abort;
  end;  
end;

Pruebe este código con Windows Vista, por que sólo lo he testeado para Windows 98, ME, 2000 y XP


Cita:
Empezado por MAXIUM Ver Mensaje
Lo pregunto para saber como incluir el instalador de flashplayer en InnoSetup.
Para este caso, descargue el instalador de Adobe Flash para IE/Firefox a su disco duro desde el sitio de Adobe, y luego, especifíquelo en la sección FILES de su script de Inno Setup como se indica en el ejemplo siguiente:
Código:
[Files]
Source: Flash_Player_10_ActiveX_instalador.exe; DestDir: {tmp}; DestName: FlashPlayerTMP.exe; Flags: ignoreversion deleteafterinstall
Y luego añada las siguientes líneas en las la sección CODE de su script de Inno Setup:

Código Delphi [-]
procedure CurStepChanged(CurStep: TSetupStep); //Evento predefinido del asistente de Inno Setup que en nuestro caso, ocurrirá cuando la copia de archivos sea finalizada, es decir que, cuando termine de copiar los archivos, ejecutará e instalará el componente flash como última tarea de la instalación.
var
  CodSalida: integer;
begin
  if CurStep = ssPostInstall then
    if Exec(ExpandConstant('{tmp}\FlashPlayerTMP.exe'), '/s', '', SW_HIDE, ewWaitUntilTerminated, CodSalida) = False then
      //Poner acá mensaje de error si la función Exec devuelve False o manipular el valor que se devuelve en CodSalida o simplemente dejarlo así
end;


Para cualquier otra duda con Inno Setup, no dude en hacerla acá, ya que domino bastante este compilador de instalaciones a base de pascal scripts.

Obviamente, usted adaptará el código que le he facilitado a sus necesidades =)

Tambien si tiene una alguna duda de este código para Delphi, consultela


Buena suerte y cordiales saludos.


-

Última edición por Black_Ocean fecha: 10-03-2009 a las 11:36:43.
Responder Con Cita
  #3  
Antiguo 12-03-2009
Avatar de Black_Ocean
Black_Ocean Black_Ocean is offline
Miembro
 
Registrado: nov 2006
Posts: 128
Poder: 18
Black_Ocean Va por buen camino
Estimado MAXIUM,

¿Revisó el código que le he señalado? Lo pregunto porque es bueno dejar los topics como resueltos y también porque le puede servir a otro usuario que venga al foro con esta misma incógnita para Inno Setup.

Saludos cordiales.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Flash Player 9 working on Feisty Fawn Amd64 with nspluginwrapper Robert01 Linux 0 24-05-2007 22:20:58
vmware player roman Linux 12 27-03-2007 14:12:43
Cargar una aplicación hecho con flash player REHome .NET 1 18-12-2006 20:42:42
Problemas con Media Player sanz Windows 1 12-11-2006 22:19:06
Media Player al 50% Pook Varios 1 18-05-2006 23:31:10


La franja horaria es GMT +2. Ahora son las 01:42:20.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi