Fórum Verificar se o programa já está aberto ! Erro #203798

Coloque um Button no Form e altere o evento OnClick

procedure TForm1.Button1Click(Sender: TObject);
begin

if FindWindow(´TAppBuilder´, nil) > 0 then //se refere ao delphi
ShowMessage(´O Delphi está aberto´)
else
ShowMessage(´O Delphi NÃO está aberto´);

boa sorte!
wagnernormando@ig.com.br

Feliz Ano Novo.

Irmão, eu coloquei este código na inicialização do meu sistema e toda vez que alguém tenta executar na mesma máquina ele joga uma mensagem.

Vá em Project, Options, Application e em Title coloque o nome do seu programa (no nosso exemplo, Nome do Programa):

No fonte do projeto principal, declare: Forms, Windows, Dialogs.
{$R *.RES}
Var
Outro : HWND;

begin
Application.Initialize;
Outro := FindWindow(Nil, PChar(´Nome do Programa´));
if Outro = 0 then
begin
// executa OK
end
else
messagedlg(´Este aplicativo já está sendo executado neste computador.´, MtInformation, [mbok], 0);

No View source (ctrl+v), veja que estou usando a classe do meu form main "TFrmColetor" E NÃO O NAME "FrmColetor"

Var
Handle: THandle;
begin
Handle := FindWindow('TFrmColetor', nil);
if Handle <> 0 then
Begin { Já está aberto }
MessageBox(Handle, PChar('O Sistema já esta aberto'),Titulo_Sistema, MB_OK + MB_ICONEXCLAMATION);
SetForegroundWindow(Handle);
Application.Terminate;
end
else
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TDM, DM);
Application.CreateForm(TFrmColetor, FrmColetor);
Application.Run;
end;