Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 29-12-2012
Avatar de oesqueda
oesqueda oesqueda is offline
Miembro
 
Registrado: dic 2007
Ubicación: Guadalajara, Mexico
Posts: 66
Poder: 17
oesqueda Va por buen camino
Editor Desconocido

Buenas noches, alguien sabe como "firmar" mi aplicacion y no salga esa molesta pantalla en Vista y 7 de que es una aplicacion de un Editor Desconocido.

Por la ayuda mil gracias
__________________
OEsqueda
Responder Con Cita
  #2  
Antiguo 29-12-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola oesqueda.

El motivo de esa advertencia es avisar de que un archivo ha sido descargado de internet y que puede ser potencialmente perjudicial. Windows verifica que el archivo tenga una firma digital que se valida mediante la tecnología Authenticode y de no poseerla, nos muestra el consabido cartelito avisándonos del peligro en cuestión y nos dá la posibilidad de ejecutarlo bajo nuestra responsabilidad.

Obviamente lo ideal es conseguir una firma digital pero, aunque no es lo aconsejable, la advertencia se puede deshabilitar.

Te hice un ejemplo de como hacerlo por código:
Código Delphi [-]
...
uses Registry;

type
  TEnumAction = (acAllow, acAsk, acDeny); 

procedure ExecNotSecureApp(Action: TEnumAction);
const
  KEY = '\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3';
var
  op: Integer;
  s1,s2,s : string;
begin
  with TRegistry.Create do
  try
    RootKey := HKEY_CURRENT_USER;
    if OpenKey(KEY, False) then
    begin
      case Action of
        acAllow: s1:= 'Permitir';
        acAsk  : s1:= 'Preguntar';
        acDeny : s1:= 'Prohibir';
      end;
      op := ReadInteger('1806');
      case op of
        0: s2:= 'Permitir';
        1: s2:= 'Preguntar';
        3: s2:= 'Prohibir';
      end;
      if s1 <> s2 then
      begin
        s:= 'Accion actual de seguridad: ' + s2 + #10 +
          '¿ Deseas cambiar la acción por : '+ s1 + ' ?';
        if MessageBox(0, PChar(s), '', MB_ICONQUESTION + MB_YESNO) = IDYES then
          WriteInteger('1806', Integer(Action));
      end
      else
        MessageBox(0, 'Esa acción ya esta definida', '', MB_ICONINFORMATION + MB_OK);
      CloseKey;
    end;    
  finally
    Free;
  end;
end;

Ejemplo de llamada:
Código Delphi [-]
  ExecNotSecureApp(acAllow);
También podes realizar esta acción desde Internet Explorer:
Herramientas -> Opciones de Internet -> Seguridad -> Nivel Personalizado -> Ejecutar aplicaciones y archivos no seguros -> Habilitar (no seguro).


Ahora, si el problema se te presenta con aplicaciones Intranet, podes darle solución por código del siguiente modo:
Código Delphi [-]
procedure ShowMessageNoSecure(Value: Boolean);
const
   KEY = '\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap';
begin
  with TRegistry.Create do
  try
    RootKey:= HKEY_CURRENT_USER;
    if OpenKey(KEY, False) then
    begin
      WriteInteger('AutoDetect', Integer(Value));
      CloseKey;
    end;
  finally
    Free;
  end;
end;

Llamada:
Código Delphi [-]
  ShowMessageNoSecure(True);  // Mostrará el mensaje
  ShowMessageNoSecure(False); // No mostrará el mensaje
Igual que anteriormente podes modificar esta accion desde el IE:
Herramientas -> Opciones de Internet -> Seguridad -> Intranet Local -> botón Sitios -> Detectar redes intranet automáticamente.

Pero... curiosamente funciona al revés . Selecionado muestra el aviso, de lo contrario no.

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 29-12-2012 a las 09:55:30. Razón: ortografía
Responder Con Cita
  #3  
Antiguo 29-12-2012
Avatar de mamcx
mamcx mamcx is offline
Moderador
 
Registrado: sep 2004
Ubicación: Medellín - Colombia
Posts: 3.911
Poder: 25
mamcx Tiene un aura espectacularmamcx Tiene un aura espectacularmamcx Tiene un aura espectacular
Si, pero eso deshabilita a nivel de todo el sistema. Es incorrecto hacerlo sin permiso del usuario, y no es responsabilidad de este resolvernos nuestro problema.

Para resolverlo de una vez por todas, es solo cuestion de comprar un certificado digital, y seguir estos pasos:

http://www.pantaray.com/signcode.html

Yo compre en http://www.startssl.com/ que es mas barato. Es necesario adquirir como minimo el clase 2 (http://www.startssl.com/?app=2).
__________________
El malabarista.
Responder Con Cita
  #4  
Antiguo 30-12-2012
Avatar de AzidRain
[AzidRain] AzidRain is offline
Miembro Premium
 
Registrado: sep 2005
Ubicación: Córdoba, Veracruz, México
Posts: 2.914
Poder: 21
AzidRain Va camino a la fama
La solución de mamcx es la correcta. Después de todo no podemos decir que nos dedicamos a este negocio si no queremos invertir ni un duro en nada además el precio de un certificado digital se diluye en el costo del producto final y obviamente da una mejor imagen de cara al cliente.
__________________
AKA "El animalito" ||Cordobés a mucha honra||
Responder Con Cita
  #5  
Antiguo 26-01-2013
Avatar de miado
miado miado is offline
Miembro
 
Registrado: mar 2008
Posts: 28
Poder: 0
miado Va por buen camino
Efectivamente y así te costará bastante mas vender tu software al encarecer el precio y beneficiar y pagar a estas empresas que no hacen absulatamente nada, eso si son amiguetes de Mocosoft.

Que se dejen de lios y que dejen a los usuarios ejecutar lo que le de la gana en su pc. Que ya estamos un poco hartos de que nos digan lo que tenemos que hacer en nuestra casa..
Responder Con Cita
  #6  
Antiguo 26-01-2013
Avatar de Al González
[Al González] Al González is offline
In .pas since 1991
 
Registrado: may 2003
Posts: 5.604
Poder: 29
Al González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en bruto
¡Vaya, qué cosas se ven estos días!
Responder Con Cita
  #7  
Antiguo 26-01-2013
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.040
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Cita:
Empezado por Al González Ver Mensaje
¡Vaya, qué cosas se ven estos días!
Así va el mundo
Responder Con Cita
Respuesta



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
Tipo desconocido en SQL Pedro-Juan SQL 5 06-03-2008 22:52:18
StarTeam, ese desconocido [Gunman] Varios 5 31-01-2007 18:10:54
DLL con nombre desconocido ixMike Varios 2 28-06-2006 11:05:02
Caracter desconocido... Xianto Varios 3 07-01-2005 15:46:08
Es un camino desconocido Oxa78 Varios 11 25-11-2004 09:47:03


La franja horaria es GMT +2. Ahora son las 10:38:23.


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