, August 30, 2005 11:34 PM
Subject: Re: [delphi-br] Não permitir inciar o mesmo programa 2 vezes
Caro Paulo
As soluções não são minhas e sim do Bruno Sonnino em seu livro (365 dicas de
Delphi).
no DPR:
Solução 1:
if findWindow(TMainForm', 'Aplicação de Teste') 0
Caro colega
Utilize o componente anexo, um deles vai extrai na pasta utilmind e gmjustone
Atenciosamente
Washington A. Müller da Silva
#
NextCorp Informática Ltda
www.nextcorp.com.br
[EMAIL PROTECTED]
0 xx (51)-589-3690
- Original Message -
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';
eu usso o componente da abf TabfOneInstance muito bom se o cara abre a
aplicação e o softWare jah esta rodando ele maximiza, muito bom..
ele eh gratuito e o site eh
http://www.abf-dev.com/abf-vcl.shtml
[]s
Danilo
*** REPLY SEPARATOR ***
On 30/8/2005 at 13:29 delphi6_2005
Caro Paulo
As soluções não são minhas e sim do Bruno Sonnino em seu livro (365 dicas de
Delphi).
no DPR:
Solução 1:
if findWindow(TMainForm', 'Aplicação de Teste') 0 then
SetForeGroundWindow(FindWindow('TMainForm', 'Aplicação de Teste'));
else
begin
5 matches
Mail list logo