Olá Jackson,
Achei muitas dicas de sendmessage que maximizam a tela e/ou fazem o restore,
mas nenhuma funcionou por aqui.
Abaixo meu código, Mutex, é uma variável do tipo THandle, que pelo que
entendi, pega o Handle da janela que está sendo criada, ou da janela já
existe caso seja a segunda execução do executável.
Você, ou outro colega poderia dar uma luz no que estou fazendo errado ao
restaurar a aplicação?
Mutex := CreateMutex(nil, True, 'TeStE');
if Mutex <> 0 then //Encontrou sua aplicação
begin
if GetLastError = ERROR_ALREADY_EXISTS then
begin
Showmessage('Sistema já está em execução.');
// abaixo as tentativas que fiz, uma de cada vez
SendMessage(Mutex, WM_SYSCOMMAND, SC_RESTORE, 0);
SetForegroundWindow(Mutex);
SendMessage(Mutex, sw_maximize , 0, 0);
SendMessage(HWND_BROADCAST, RegisterWindowMessage('TeStE'), 0, 0);
ShowWindow(Mutex, SW_MAXIMIZE );
CloseHandle(Mutex); // Fecha Handle
Halt; // Fecha a segunda aplicação
Exit; // Sai
end;
end;
2009/9/28 Jackson Gomes - Tools&Comps <jack...@toolsandcomps.com>
> http://www.google.com.br/search?hl=pt-BR&q=sendmessage+delphi&meta=
>
> ----- Original Message -----
> From: "Andrei Luís" <compuvale.softw...@gmail.com>
> To: <delphi-br@yahoogrupos.com.br>
> Sent: Monday, September 28, 2009 9:31 AM
> Subject: Re: [delphi-br] Mostrar janela encontrada com CreateMutex
>
>
> Olá Jackson, obrigado pela ajuda, massss, poderia ser um pouco mais
> específico?
>
> []
> Andrei
>
> 2009/9/28 Jackson Gomes - Tools&Comps <jack...@toolsandcomps.com>
>
> >
> > > Alguém sabe como mostrar a janela que foi 'encontrada' utilizando
> > > CreateMutex?
> >
> > Tente fazer isso com mensagens do Windows...
> >
> > Jackson Gomes
> > Tools&Comps - Controle de Usuários para Desenvolvedores CodeGear
> > Web Site: http://www.toolsandcomps.com
> > Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps
> > e-mail <http://groups.yahoo.com/group/toolsandcomps%0Ae-mail>:
> > jack...@toolsandcomps.com
> > Fone: 27 3389 1138 - 8811 0324
> >
> >
> ----------------------------------------------------------------------------
> > http://jacklovesdelphi.blogspot.com - Delphi, Intraweb, etc....
> >
> >
> ----------------------------------------------------------------------------
> > Devhost - Webhost para desenvolvedores Delphi
> > http://www.devhost.com.br
> > devh...@devhost.com.br
>
>
[As partes desta mensagem que não continham texto foram removidas]
