Esta dica é referente à segunda pergunta:
program Project1;
uses
Forms,
Windows,
Dialogs,
Unit1 in 'Unit1.pas' {Form1};
{$R *.RES}
Var
HprevHist : HWND;
begin
Application.Initialize;
HprevHist := FindWindow(Nil, PChar('project1.exe'));
if HprevHist = 0 then
begin
Application.Title := 'project1.exe';
Application.CreateForm(TForm1, Form1);
Application.Run;
end
else
MessageDlg('Você não pode executar outra cópia do aplicativo',
mtInformation, [mbOK], 0);
end;
Com esse código o usuário pode iniciar uma nova copia do aplicativo somente
se não houver outra anterior. Caso contrario é exibido uma mensagem para o
usuário.
Espero ter ajudado.
----- Original Message -----
From: "Eneias Sousa Carvalho" <[EMAIL PROTECTED]>
To: "delphi-br delphi-br" <delphi-br@yahoogrupos.com.br>; "lista de
discussão" <[EMAIL PROTECTED]>
Sent: Tuesday, May 03, 2005 3:09 PM
Subject: [delphi-br] MDI.
Como faço para que se já tiver uma janela(filha) em execução não seja
possivel abrir outra, ou seja, quando a pessoa clicasse novamente no botão o
sistema colocaria o foco na janela já aberta, assim não criaria outra janela
do mesmo formulário, se possivel tb gostaria de saber como faço para que se
minha apliclação já estiver em execução e a pessoa click novamente para
iniciar uma nova execução, o sistema indique que já existe uma cópia em
execução?
Eneias Sousa Carvalho.
---------------------------------
Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora!
[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
--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.11.2 - Release Date: 02/05/2005
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.11.2 - Release Date: 02/05/2005
--
<<<<< 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
