Utilizamos cookies propias y de terceros. Al navegar entendemos que aceptas el uso de cookies. +Info.
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Usuario
· Wiki

Nick


Contraseña


Nuevo usuario


English
Ejecutar una aplicación una sola vez por sesión - Delphi
Lenguaje de programación Borland Delphi


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

Este sitio web NO CONTIENE malware, todos los programas con código fuente aquí. Autor: Alonso Javier Pérez Díaz Google+ Síguenos en Google+