Várias execuções !!! me ajudem...

Delphi

04/04/2003

que funcao eu uso para nao deixar que meu sistema seja executado mais de uma vez no computador...eu preciso muito....

valeu!!!


Anonymous

Anonymous

Curtidas 0

Respostas

E_gama

E_gama

04/04/2003

A função seguite lhe ajudará:

program Project1;

uses
  Windows,
  Forms,
  FormPrincipal in ´FormPrincipal.pas´ ,

{$R *.RES}

begin
  // Verifica se já tem uma cópia da aplicação aberta
  if FindWindow(´TFrmPrincipal´, nil) <> 0 then
     Application.Terminate;

  // Segue normalmente
  Application.Initialize;
  Application.CreateForm(TFrmPrincipal, FrmPrincipal);
  Application.Run;
end.


Onde ´TFrmPrincipal´ é a classe do Form principal de sua aplicação


GOSTEI 0
POSTAR