Código
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
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009