Código para identificar se o ACBrMonitorPLUS está aberto

[atlantisnanet]

Olá pessoal!

Estou tentando fazer com que meu programa identifique se o monitor está aberto, se não estiver ele abre automaticamente, estou tentando o seguinte:

{Verifica se o ACBrMonitor está aberto}
If FindWindow('ACBrMonitorPLUS', nil) > 0 then
begin
WinExec('C:\ACBrMonitorPLUS\ACBrMonitor.exe',SW_SHOW);
end;

Mas não está dando certo... Acredito que só esteja faltando o nome do form correto depois do findwindow, alguém pode me ajudar?

Desde já agradeço!

[atlantisnanet]

Da forma abaixo funciona com certeza, só falta mesmo o nome do form:

{Verifica se o ACBrMonitor está aberto}
If FindWindow('ACBrMonitorPLUS', nil) = 0 then
begin
WinExec('C:\ACBrMonitorPLUS\ACBrMonitor.exe',SW_SHOW);
end;
{Fim}

Mudei o nome ali para OpusApp que é o nome do Word para testar, e deu certo. Só falta mesmo ver o nome do ACBrMonitorPLUS mesmo.

[Celso Marigo Junior]

O ACBrMonitorPLUS usa um mutex para impedir multiplas instâncias, tente usar ele, fiz um pequeno exemplo rápido:

uses
  ..., windows, Process;

procedure TForm1.Button1Click(Sender: TObject);
var
  AProcess : TProcess;
  hnd : THANDLE;
begin
  hnd := CreateMutex(nil, True, 'ACBrMonitor');
  if GetLastError = ERROR_ALREADY_EXISTS then
    MessageDlg('ACBrMonitor','O programa ACBrMonitor já está em execução',
        mtError, [mbOK], 0)
  else
  begin
    CloseHandle(hnd);
    AProcess := TProcess.Create(nil);
    AProcess.Executable := 'c:\ACBrMonitorPLUS\ACBrMonitor.exe';
    AProcess.Execute;
  end;
end; 

 

[atlantisnanet]

Muito obrigado Celso!

Mas só falta o nome do form para funcionar... por exemplo se o nome for Form1 ali é só colocar TForm1...

Será que alguém aí não consegue me passar o nome do form? Acredito que seja o form principal do projeto.

[Daniel Simoes]

Use o Mutex... tratar por nome do Form, costuma falhar, e dar falso positivo com outras aplicações

[atlantisnanet]

Celso e Daniel, muito obrigado vocês tem razão, ficou assim:

 hnd : THANDLE;

{Verifica se o ACBrMonitor está aberto, se não está abre o mesmo}
hnd := CreateMutex(nil, True, 'ACBrMonitor');
If GetLastError = ERROR_ALREADY_EXISTS then
begin
//MessageDlg('ACBrMonitor','O programa ACBrMonitor já está em execução',
//mtError, [mbOK], 0)
end
else
begin
WinExec('C:\ACBrMonitorPLUS\ACBrMonitor.exe',SW_SHOW);
end;

Ela é útil pra o caso de por algum motivo desconhecido, o monitor não inicializar com o windows.

Funcionou perfeitamente como eu queria, valeu!

[atlantisnanet]

Ôpa tinha faltado o CloseHandle(hnd), então ficou assim:

{Verifica se o ACBrMonitor está aberto, se não está abre o mesmo}
hnd := CreateMutex(nil, True, 'ACBrMonitor');
If GetLastError = ERROR_ALREADY_EXISTS then
begin
//MessageDlg('ACBrMonitor','O programa ACBrMonitor já está em execução',
//mtError, [mbOK], 0)
end
else
begin
CloseHandle(hnd);
WinExec('C:\ACBrMonitorPLUS\ACBrMonitor.exe',SW_SHOW);
end;

Agora sim!