Re: Res: [delphi-br] Executando

Tue, 30 May 2006 07:24:01 -0700

program sge;

uses
  Forms, Windows,
un_login in 'un_login.pas' {frm_login},

{$R *.res}

Var HprevHist : HWND;
begin
  Application.Initialize;
  HprevHist := FindWindowA(Nil, PChar('Sistema de Gerenciamento de
Estoque'));//REPARE QUE AQUI DENTRO VAI O TITULO DO PROGRAMA
  If HprevHist = 0 then
    begin
      Application.Title:= 'Sistema de Gerenciamento de Estoque';//Título
do programa
      Application.CreateForm(Tdm, dm);
      Application.CreateForm(Tfrm_login, frm_login);
      Application.Run;
    end
  else
  exit;// SE JA ESTIVER ABERTO, SIMPLESMENTE FECHA O NOVO
end.

  Abraços,

  Fernando dos Santos Sousa


Anderson escreveu:
> como vc fez fernando? pq comigo não funcionou
>   ----- Original Message -----
>   From: Fernando - Hotforms
>   To: delphi-br@yahoogrupos.com.br
>   Sent: Tuesday, May 30, 2006 10:37 AM
>   Subject: Re: Res: [delphi-br] Executando
>
>
>   Esquece pessoal, funcionou sim!!!
>   Boa dica!!
>
>   Valeu!!
>
>   Abraços,
>
>   Fernando dos Santos Sousa
>
>
>
>   Fernando - Hotforms escreveu:
>   > Testei no Delphi 2006 e não funcionou!!
>   >
>   > Abraços,
>   >
>   > Fernando dos Santos Sousa
>   >
>   > Marcio Cristiano Tenreiro escreveu:
>   >  
>   >> 132 - Executando uma única cópia do aplicativo
>   >>
>   >> Se você quiser executar uma única copia do aplicativo, o código de
>   >> inicializacao do arquivo fonte do PROJETO pode ser escrito conforme segue:
>   >>
>   >> Program Project1;
>   >>
>   >> Uses
>   >>
>   >>   Forms,
>   >>
>   >>   Windows,
>   >>
>   >>   Dialogs,
>   >>
>   >>   Unit1 in 'Unit1.pas' {Form1};
>   >>
>   >> {$R *.RES}
>   >>
>   >> Var HprevHist : HWND;
>   >>
>   >> Begin
>   >>
>   >>   Application.Initialize;
>   >>
>   >>   HprevHist := FindWindow(Nil, PChar('TheProgrammer'));
>   >>
>   >>   If HprevHist = 0 then begin
>   >>
>   >>   Application.Title := 'TheProgrammer';
>   >>
>   >>   Application.CreateForm(TForm1, Form1);
>   >>
>   >>   Application.Run;
>   >>
>   >>   End else
>   >>
>   >>   MessageDlg('Você não pode executar outra cópia do aplicativo',
>   >> mtInformation, [mbOK], 0);
>   >>
>   >> 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.
>   >>
>   >>   
>   >>
>   >> 
>   >>
>   >> Márcio Cristiano Tenreiro
>   >>
>   >> Programador Pleno
>   >>
>   >> Unimar - Universidade de Marília -S.P.
>   >>
>   >> (14) 3402-4129
>   >>
>   >> 
>
>  




*
* <http://www.hotforms.com.br>



--
<<<<< 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]


Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE

Links do Yahoo! Grupos

Responder a