Buscar

Evitar que o projeto não seja executado mais de uma vez

Código

var
  handle: Thandle;


begin
   handle := FindWindow('TfrmPrincipal',nil);
   if Handle<>0 then
begin
    application.MessageBox('sistema, ja esta em execução. A cópia' +
    ' anterior será desativada.','sistema em execução', mb_ok);
   if not ISWindowVisible(Handle) then
    showWindow (handle, sw_restore);
   setForegroundWindow(handle);
  application.Terminate;
 end;
 begin
 application.Initialize;
 application.Createform(TfrmPrincipal, frmPrincipal);
 application.Run;
 end;


*Obs tem que nomear os formularios, pois se existir um form1 o sistema não deixa executar

 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Object pascal
Adicionada dia: 26/01/10
Por: Diogenes Silva Dourado
Visualizada: 5056 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009