Rotina para checar se um software está aberto!

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.