Fórum Nao está Reconhecendo ( FindWindow ) #202436

Pessoal estou Fazendo este Procedimento para que nao abra o programa se o mesmo ja estiver em execução.mas Ele nao esta Reconhecendo a ( FindWindow ).. Qual a Unit Que tenho q Declarar ? Valeu Galera

program Brasil;

uses
Forms,
UfrmBrasil in ´UfrmBrasil.pas´ ,
UdmDados in ´UdmDados.pas´ {dados: TDataModule},
ufrmPrincipal in ´ufrmPrincipal.pas´ ,
UfrmRelatorio in ´UfrmRelatorio.pas´ ,
ufrm_Conectar in ´ufrm_Conectar.pas´ ,
Ufrm_motorista in ´Ufrm_motorista.pas´ ,
ufrm_relatorio_veiculo in ´ufrm_relatorio_veiculo.pas´ ,
Ufrm_Requisocoes_motoristas in ´Ufrm_Requisocoes_motoristas.pas´ ,
ufrm_frete_motorista in ´ufrm_frete_motorista.pas´ ,
Ufrm_Relatorio_frete_pagar in ´Ufrm_Relatorio_frete_pagar.pas´ ,
Ufrm_entradas_saidas in ´Ufrm_entradas_saidas.pas´ ,
ufrm_notas in ´ufrm_notas.pas´ ,
ufrm_Relatorio_R_Clientes in ´ufrm_Relatorio_R_Clientes.pas´ ,
Ufrm_Estoque_retatorio in ´Ufrm_Estoque_retatorio.pas´ ,
Ufrm_Relacao_Estoque in ´Ufrm_Relacao_Estoque.pas´ ,
Ufrm_Apura_Estoque in ´Ufrm_Apura_Estoque.pas´ ,
ufrm_balanco_saida_imprimir in ´ufrm_balanco_saida_imprimir.pas´ ,
Ufrm_Detalhe_Estoque in ´Ufrm_Detalhe_Estoque.pas´ ,
ufrm_Varios in ´ufrm_Varios.pas´,
ufrm_email in ´ufrm_email.pas´ ,
ufrm_despesas in ´ufrm_despesas.pas´ ,
Ufrm_Detalhe_cheques in ´Ufrm_Detalhe_cheques.pas´ ,
ufrm_banco in ´ufrm_banco.pas´ ,
ufrm_Relatorio_creditos in ´ufrm_Relatorio_creditos.pas´ ,
Ufrm_detalhe_Combustivel in ´Ufrm_detalhe_Combustivel.pas´ ,
Ufrm_Detalhe_deposito in ´Ufrm_Detalhe_deposito.pas´ ,
Ufrm_senhas in ´Ufrm_senhas.pas´ ,
Ufrm_Detalhe_juros in ´Ufrm_Detalhe_juros.pas´ ,
Ufrm_Detalhe_Descontos in ´Ufrm_Detalhe_Descontos.pas´ ,
ufrm_caixa in ´ufrm_caixa.pas´ ,
ufrm_relatorio_total_receber in ´ufrm_relatorio_total_receber.pas´ ,
ufrm_relatorio_cheques in ´ufrm_relatorio_cheques.pas´ ,
ufrm_relatorio_predatados in ´ufrm_relatorio_predatados.pas´ ,
ufrm_relatorio_recebido in ´ufrm_relatorio_recebido.pas´ ,
ufrm_r_recebido in ´ufrm_r_recebido.pas´ ,
ufrm_cancelamento in ´ufrm_cancelamento.pas´ ,
ufrm_relatorio_comissao_T in ´ufrm_relatorio_comissao_T.pas´ ,
Ufrm_detalhe_credito in ´Ufrm_detalhe_credito.pas´ ,
ufrm_empresa in ´ufrm_empresa.pas´ ,
ufrm_baixar_Requisicao in ´ufrm_baixar_Requisicao.pas´ ,
ufrm_relatorio_mot in ´ufrm_relatorio_mot.pas´ ,
Ufrm_notas_fazenda in ´Ufrm_notas_fazenda.pas´ ,
ufrm_vendedor in ´ufrm_vendedor.pas´ ,
ufrm_cadastrados in ´ufrm_cadastrados.pas´ ,
ufrm_fornecedores in ´ufrm_fornecedores.pas´ ,
ufrm_localizar_fornecedores in ´ufrm_localizar_fornecedores.pas´ ,
Ufrm_backup in ´Ufrm_backup.pas´ ,
ufrm_relacao_cliente_Notas in ´ufrm_relacao_cliente_Notas.pas´ ,
ufrm_manutencao in ´ufrm_manutencao.pas´ ,
ufrm_baixa in ´ufrm_baixa.pas´ ,
ufrm_cheques in ´ufrm_cheques.pas´ ,
ufrm_deposito_recebido in ´ufrm_deposito_recebido.pas´ ,
ufrm_creditos in ´ufrm_creditos.pas´ ,
ufrm_baixa_creditos in ´ufrm_baixa_creditos.pas´ ,
Ufrm_cliente_R in ´Ufrm_cliente_R.pas´ ,
Ufrm_fazenda in ´Ufrm_fazenda.pas´ ,
Ufrm_registro in ´Ufrm_registro.pas´ ,
Ufrm_placas in ´Ufrm_placas.pas´ ,
frm_grupos_despesas in ´frm_grupos_despesas.pas´ ,
frm_pagamento in ´frm_pagamento.pas´ ,
ufrm_relatorio_faturamento_frota in ´ufrm_relatorio_faturamento_frota.pas´ ,
Procedimentos in ´Procedimentos.pas´;

{$R *.RES}

var
Handle: THandle;
begin
Handle := FindWindow(´TFrmPrincipal´, nil);
if Handle <> 0 then { Já está aberto }
begin
Application.MessageBox(´Este programa já está aberto.´, ´Programa já aberto´, MB_OK);
Exit;
end;

Application.Initialize;
Application.Title := ´PETROSOFT´;
Application.CreateForm(TfrmPrincipal, frmPrincipal);
Application.CreateForm(Tdados, dados);
Application.Run;
END.