Buscar por:

Verificar se programa já está aberto

Código

Program Project1;

uses

Forms,

Windows, //não esqueça de declarar esta uses

Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}

// Declare a variavel

var

Hwnd : THandle;

begin

// FindWindow vai procurar pela classe TApplication

// que tenha o nome do Title que vc configurou

Hwnd := FindWindow('TApplication', 'Teste'); //lembrando que Teste é o titulo da sua aplicação

// se o Handle e' 0 significa que nao encontrou

if Hwnd = 0 then

begin

Application.Initialize;

// Esta linha e' colocada automaticamente pelo Delphi

// ao se configurar o Title

Application.Title := 'Teste';

Application.CreateForm(TForm1, Form1);

Application.Run;

end

else

// Esta funcao traz para frente (da o foco) para a janela

// da aplicacao que ja esta rodando

SetForegroundWindow(Hwnd);

end.