Esta utilidad puede ser útil, por ejemplo, para aplicaciones shareware (demostrativas o de prueba). Este truco impide que una aplicación pueda ser ejecutada más de una vez en una sesión. Es decir, una vez que se ejecuta y se cierra no se podrá volver a ejecutar hasta que se cierre la sesión del usuario actual o se reinicie el equipo, incluso aunque la aplicación esté cerrada. Sólo admite una ejecución por sesión del usuario.

Para ejecutar una aplicación sólo una vez por sesión os mostramos el código fuente (source code) completo:

unit Unit1;

interface

uses
  Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs;

type
  TForm1 = class(TForm)
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
var
  atom : integer;
begin
  if GlobalFindAtom ('cadena_unica_no_debe_existir') = 0 then
    atom := GlobalAddAtom ('cadena_unica_no_debe_existir')
  else
  begin
    ShowMessage ('Esta versión de la aplicación sólo se puede ejecutar una vez por sesión.');
    Close;
  end;
end;

end.

Publicado el: 2003-09-19