Prezados,
vejam bem, estou na verdade fazendo uma checagem se o aplicativo já está
aberto, se está aberto ele deve mostrar o form principal, ele mostra somente
qdo não está minimizado, se estiver apenas por baixo das outras janelas blz,
mas qdo minimizo ele, ele não apresenta o programa na tela, veja as linhas
abaixo:
{$R *.res}
// var para iniciar apenas uma instância do aplicativo
var Handle : THandle;
begin
// aqui localiza nas janelas do windows se já tem uma com o nome do form
principal
Handle := FindWindow('TFPrincipalMenu',nil);
// se handle = 0 Não esta aberto
If Handle =0 then begin
FSplash := TFSplash.Create(Application);
..
..
..
//
Application.Run;
end
Else begin
// se já esta aberto ele joga a msg e mostra o aplicativo na tela.
Application.MessageBox('O programa já está aberto, impossível carregar duas
instâncias.',>>> Aviso <<<',64);
Application.Restore; /// aqui está a linha que deveria mostrar ele na
tela mesmo qdo minimizado.
SetForegroundWindow(Handle);
end;
Conto com a valiosa ajuda de vcs.Até se alguém tiver uma outra maneira de fazer
isso, agradeço muito.
DEUS É PAI.
[]'s
Allan
msn [EMAIL PROTECTED]
Skype allan_gabriel
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
