Saber se o aplicativo já esta rodando
queria saber como faço para saber como faço para verificar se o meu aplicativo está rodando, se estiver como faço para impedir que ele abra dois aplicativos
Infocom
Curtidas 0
Respostas
Michel
19/03/2004
{$R *.RES}
var
TituloObjeto: THandle;
begin
TituloObjeto := FindWindow(´TFrmPrincipal´, nil);
if TituloObjeto <> 0 then { Já está aberto }
begin
// Exit;
end;
Application.Initialize;
Application.Title := ´PETROSOFT´;
Application.CreateForm(TfrmPrincipal, frmPrincipal);
Application.CreateForm(Tdados, dados);
Application.Run;
var
TituloObjeto: THandle;
begin
TituloObjeto := FindWindow(´TFrmPrincipal´, nil);
if TituloObjeto <> 0 then { Já está aberto }
begin
// Exit;
end;
Application.Initialize;
Application.Title := ´PETROSOFT´;
Application.CreateForm(TfrmPrincipal, frmPrincipal);
Application.CreateForm(Tdados, dados);
Application.Run;
GOSTEI 0