Fórum Saber se o aplicativo já esta rodando #221124
19/03/2004
0
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
Curtir tópico
+ 0
Responder
Posts
19/03/2004
Michel
{$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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)