6 respuestas en este tema

[sir.dev.a.lot]

[TRUCO DELPHI] Proteccion ShareWare.

delphi

procedure TForm1.FormShow(Sender : TObject);
Var
  atom: Integer;
begin
  If GlobalFindAtom('NOMBREDEMIPROGRAMA') = 0 Then
    atom := GlobalAddAtom('NOMBREDEMIPROGRAMA')
  Else
  begin
    ShowMessage('Este programa solo puede ser iniciado una vez.'#13#10 +
                'Para reiniciar este Programa, debera reiniciar su Sistema Operativo, Registrar la Aplicacion o llamar a sir.dev.a.lot :-).');
    Close;
  end;
end;

Saludos!

[escafandra]

Está bien hasta que a alguno se le ocurra usar GlobalDeleteAtom.  

 

Saludos.

[Delphius]

¿Que es la tabla Atom?

Primera vez que escucho algo como eso.

 

Saludos,

[escafandra]

¿Que es la tabla Atom?

Primera vez que escucho algo como eso.

 

Saludos,

 

Es una tabla de Strings que maneja el S.O. y comparte localmente en un proceso o globalmente. Es la base de comunicación entre precesos: Dynamic Data Exchange

 

Recientemente ha sido noticia como una fuente de vulnerabilidad de windows: AtomBombing

 

 

Saludos.

[sir.dev.a.lot]

El Enlace a AtomBombing no esta funcionando correctamente @Escafandra.

 

Saludos!

[escafandra]

El Enlace a AtomBombing no esta funcionando correctamente @Escafandra.

 

Saludos!

 

Si que funciona, ese enlace esta en el foro platino.

 

 

Saludos.

[sir.dev.a.lot]

.... Esperare a ser Platino.... De alguna forma llegare este año...