Maurício
Vai ate a unit principal do projeto (dpr) e ajusta o com o codigo
abaixo...e bem simples, sobre o funcionamento da para quebrar o
galho...(mas se estiver testando tem que fechar o projeto no delphi)
var
Janela : THandle;
begin
Janela := FindWindow('TFrmPrincipal', nil);
if Janela > 0 then begin
ShowWindow(Janela, SW_RESTORE);
SetForegroundWindow( Janela);
end else begin
Application.Initialize;
Application.CreateForm(TfrmFichaTecnica, frmFichaTecnica);
Application.Run;
end;
end.
Se quiser algo melhor da para criar um mutex..ai complica um pouquinho
mais....aconselho a procurar
no google.
eis alguns links
http://www.ibrtses.com/delphi/singleinstance.html
http://delphi.about.com/od/windowsshellapi/l/aa100703a.htm
http://www.suite101.com/articles.cfm/delphi_programming
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Maurício Araújo
Enviada em: quarta-feira, 19 de outubro de 2005 09:27
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Executando uma instância de um programa
Saudações!
Como fazer para que um programa, feito no Delphi 2005, só seja executado
uma
vez em uma máquina?
Desde já agradeço a ajuda.
[],
Maurício Araújo
--
<<<<< 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] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
<http://br.i1.yimg.com/br.yimg.com/i/071005_324418_pop_ps2_celv550.gif>
_____
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]
<mailto:[EMAIL PROTECTED]>
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo! <http://br.yahoo.com/info/utos.html> .
[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] ou [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
