[TRUCO DELPHI] Proteccion ShareWare.
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!