Use a seguinte rotina no source da aplicação (observe que coloquei 'Delphi 7'
porque uso ele e quero poder debugar o programa usando a ide dele. (ele
localiza a janela do aplicativo já na memória quando se está na ide.
Var
Handle1, Handle2 :Word;
begin
Application.Initialize;
Application.Tag:= 0;
If FindWindow( Nil, 'Delphi 7') <> 0 then
Handle1:= 0
else
Handle1:= FindWindow( Nil, 'TITULO DA JANELA');
If (Handle1 <> 0) then
Begin
Handle2:= GetWindow(Handle1, GW_OWNER);
ShowWindow(Handle2, SW_HIDE);
ShowWindow(Handle2, SW_RESTORE);
SetForegroundWindow(Handle1);
end
else
Application.Run;
Application.Terminate;
Julio Abdala
Walter Alves Chagas Junior <[EMAIL PROTECTED]> escreveu:
Bruno, aquela função que vive zanzando nas listas faz isto não? Aquela de
não deixar voce abrir uma nova instância do mesmo aplicativo. Basta voce
alterar lá pra por o nome da janela que voce está procurando na memória.
var
AuxJanela: HWND;
begin
//
CreateMutex(nil, False, 'DMFrot');
//
if GetLastError = ERROR_ALREADY_EXISTS then
begin
MessageDlg('Este programa já está sendo executado. Verifique se o mesmo
não está minimizado ou então pressione Ctrl+Alt+Del e verifique na lista de
tarefas se o mesmo se encontra nela.', mtError, [mbOk], 0);
AuxJanela := FindWindow ('TDMFrot','DMFrot');
if AuxJanela <> 0 then PostMessage(AuxJanela, SW_MAXIMIZE,0,0);
// Halt(1); // O programa já está sendo executado
end
else
[]s
Walter Alves Chagas Junior
Projeto e desenvolvimento
Telemont Engenharia de telecomunicações
Belo Horizonte - MG - Brazil
[EMAIL PROTECTED]
Fone: (31) 3389-8215 Fax: (31) 3389-8200
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Bruno Lichot - Micrologos
Enviada em: quinta-feira, 26 de janeiro de 2006 16:10
Para: [EMAIL PROTECTED]
Cc: delphi-br@yahoogrupos.com.br; [EMAIL PROTECTED]
Assunto: [delphi-br] Aplicação em memoria
Salve galera!!!
Alguem poderia me dar uma dica de como saber se uma aplicação(executavel)
esta executando em memoria?
desd ja obrigadu!!!!
[]´s
Bruno Lichot
Micrologos Dream Team
Equipe Editorial ClubeDelphi DevMedia
[EMAIL PROTECTED]
[EMAIL PROTECTED]
www.micrologos.com.br - www.clubedelphi.net - www.dugrj.com.br
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE
---------------------------------
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 Termos do Serviço do
Yahoo!.
---------------------------------
Yahoo! doce lar. Faça do Yahoo! sua homepage.
[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
