Eu utilizo o seguinte codigo para por exemplo, chamar a calculadora do Windows
dentro do meu sistema. Se ela ja estiver carregada, porem minimizada, faco ela
aparecer.
procedure TFrmAgenda.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
THEWINDOW: HWND;
begin
if ShortCutToText(ShortCut(Key, Shift)) = 'F9' then
begin
THEWINDOW:=FINDWINDOW(NIL,'CALCULADORA');
IF THEWINDOW <> 0 then
//CHAMA A CALCULADORA SE JA ESTIVER CARREGADA!!!
SETFOREGROUNDWINDOW(THEWINDOW)
ELSE //CARREGA A CALCULADORA SE ESTIVER FECHADA!!!
SHELLEXECUTE(HANDLE,'OPEN','CALC.EXE',NIL,'C:\WINDOWS',SW_SHOWNORMAL);
end;
end;
----- Original Message -----
From: Miguelito
To: delphi-br@yahoogrupos.com.br
Sent: Friday, August 19, 2005 3:13 PM
Subject: Res: Re: [delphi-br] VERIFICAR APLICATIVO????????????? (PARA DIMAS
FERNANDO)
Cara obrigado pelo código!!!!!
Já aproveitando um poquinho da tua amabilidade, nesse código q vc me passou,
tem como colocar um comando para q ao dar o application.terminate maximize a
janela q já está aberta??? tem como???
desde ja obrigado
Miguel Villacorta
4446-4100 R 4126
7312-5509
[EMAIL PROTECTED]
www.dpfautopecas.com.br
MSN [EMAIL PROTECTED]
-------Mensagem original-------
De: Dimas Fernando
Data: 08/16/05 00:44:48
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] VERIFICAR APLICATIVO??????????????????????????
Tente assim
procedure TFrmPrincipal.FormCreate(Sender: TObject);
var
HMutex: THandle;
Path : String ;
begin
// Nao deixa chamar o programa mais que uma vez.....
HMutex:= CreateMutex(nil, False, PChar(Application.Title));
if WaitForSingleObject(HMutex, 0) = wait_TimeOut then
begin
MessageDlg('O sistema já está em uso',mtError, [mbOk],0);
Application.Terminate;
exit;
end;
----- Original Message -----
From: Miguelito
To: delphi-br
Sent: Tuesday, March 15, 2005 2:45 PM
Subject: [delphi-br] VERIFICAR APLICATIVO??????????????????????????
Pessoal como posso fazer para q o executavel não seja aberto mais de uma
vez
tipo, tem usuarios q esquecem o termo janela minimizada, ai eles vao e
clicam novamente no executavel abrindo novamente e se bobear e eles
minimizam dnovo, entao eles vao novamente no executave, como fazer para q
ao
criar o form principal ele faça uma verificação se o programam ja está
rodando?
Miguel Villacorta
4446-4100 ramal 4126
7312-5509
[EMAIL PROTECTED]
www.dpfautopecas.com.br
MSN [EMAIL PROTECTED]
----------
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.338 / Virus Database: 267.10.5/68 - Release Date: 10/8/2005
[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
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
[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 Termos do Serviço do
Yahoo!.
----------
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.338 / Virus Database: 267.10.13/78 - Release Date: 19/8/2005
[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]
Yahoo! Grupos, um serviço oferecido por:
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
[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
