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

04/04/2003

0

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

valeu!!!


Anonymous

Anonymous

Responder

Posts

04/04/2003

E_gama

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


Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar