FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
El antivirus me bloquea mi programa....
Hola a todos!
Tengo un problema con el Panda y un programita de ejemplo que me estaba haciendo para saber si un typecast era posible o no. Os cuento: Al compilar el programa el antivirus me detecta que éste es un virus del tipo "Generic Backdoor" y me lo borra, por lo que ni siquiera puedo probarlo. El programa lo único que hace es declarar dos interfaces y una clase que implementa ambas, crea una instancia de ésta clase y la asigna a una variable del tipo IInterface. Después hago llamadas a Support con esta variable y veo si devuelve true (ya que no estaba seguro si siendo una variable del tipo IInterface con support me podía devolver una variable de tipo IInt1 o IInt2). Os paso todo el código Código:
type IInt1 = interface ['{34226603-BA7E-4C17-A0E0-4C0E7B0C079C}'] procedure DisplayMsg; end; type IInt2 = interface ['{4025C620-10D1-4A65-872F-8C4374F9F24C}'] procedure DisplayOtherMsg; end; type TMyClass = class(TInterfacedObject, IInt1, IInt2) public procedure DisplayOtherMsg; procedure DisplayMsg; end; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private { Private declarations } icc: IInterface; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); var icc1: IInt1; icc2: IInt2; LVar: TMyClass; begin LVar := TMyClass.Create; icc := LVar; if Supports(LVar, IInt1, icc1) then icc1.DisplayMsg; if Supports(LVar, IInt2, icc2) then icc2.DisplayOtherMsg; end; { TMyClass } procedure TMyClass.DisplayMsg; begin ShowMessage('Hola'); end; procedure TMyClass.DisplayOtherMsg; begin showmessage('Hola2'); end; Estoy usando Delphi 2010. Gracias por la ayuda, Un saludo, LoPiTaL [EDITO:] Al ir comentando / descomentando código, el error me lo da al crear la instancia de TMyClass... No sé si puede ayudar en algo... Última edición por LoPiTaL fecha: 20-05-2010 a las 10:42:35. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
¿Qué tan bueno es tu antivirus? | Cannabis | La Taberna | 18 | 10-07-2008 20:53:17 |
porque se bloquea mi programa cuando hago un for??? | JuanErasmo | API de Windows | 1 | 16-10-2007 23:44:17 |
Antivirus en kubuntu | Robert01 | Seguridad | 1 | 07-03-2007 13:36:04 |
Test a 10 antivirus | DarKraZY | Noticias | 1 | 15-02-2007 12:32:21 |
Antivirus | vtdeleon | Varios | 12 | 25-07-2005 18:25:16 |
|