programa roda uma so vez

Question

Ae, como eu fa�o para o meu programa roda uma so vez???
tipo ele fica na bandeja (do lado do relogio), ent�o se ele for mandado executar dinovo eu quero que ele abra, no caso saia do hide para show.

Glauberms · Answer

Altere o c�digo-fonte do arquivo Project1.dpr conforme abaixo:

[i:c92dfe06dc]program Project1;

uses
Forms, Windows,
Unit1 in �Unit1.pas� ;

{$R *.RES}

var
Handle: THandle;

begin
Handle := FindWindow(�Form1�, nil);
if Handle <> 0 then
begin { J� est� aberto }
Application.MessageBox(�Este programa j� est� aberto.� , �Programa j� aberto�, MB_OK);
if not IsWindowVisible(Handle) then
ShowWindow(Handle, SW_RESTORE);
SetForegroundWindow(Handle);
Exit;
end;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.[/i:c92dfe06dc]

[b:c92dfe06dc]Importante:

Verifique se o nome ([i:c92dfe06dc]NAME[/i:c92dfe06dc]) do formul�rio principal de sua aplica��o � Form1 se n�o o substitua no c�digo assima.

Para testar este programa voc� dever� compilar o projeto e fechar o Delphi. Depois, procure o Project1.exe (projeto compilado) usando o Windows Explorer e tente execut�-lo mais de uma vez e veja o que acontece.[/b:c92dfe06dc]

Espero que seja suficiente...

Bigtama · Answer

vlw cara, mas tipo, eu queria algo que fizesse ele abri uma unica vez, e se eu tentase denovo ele iria ver se o Form1 estivese em modo show,dai se tivesse ele simplismente iria mostra na tela, se ele estivese em modo hide ele iria colocar modo show.
vc saberia como fazer isso???

F�rum Vini · Answer

[quote:623565090e=�bigtama�]vlw cara, mas tipo, eu queria algo que fizesse ele abri uma unica vez, e se eu tentase denovo ele iria ver se o Form1 estivese em modo show,dai se tivesse ele simplismente iria mostra na tela, se ele estivese em modo hide ele iria colocar modo show.vc saberia como fazer isso???[/quote:623565090e]eh mais f�cil ainda...[code:1:623565090e]program Project1; uses   Forms, Windows, Unit1 in �Unit1.pas� ; {$R *.RES} var   Handle: THandle; begin   Handle := FindWindow(�Form1�, nil);   if Handle <> 0 then    begin { J� est� aberto }     //Application.MessageBox(�Este programa j� est� aberto.� , �Programa j� aberto�, MB_OK); //� s� tirar essa linha    if not IsWindowVisible(Handle) then      ShowWindow(Handle, SW_RESTORE);     SetForegroundWindow(Handle);     Exit;   end;   Application.Initialize;   Application.CreateForm(TForm1, Form1);   Application.Run; end. [/code:1:623565090e]Para colocar o �cone no tray, de uma olhada aqui no clube que tem um artigo ou dica falando sobre isso...Espero ter ajudado.Vinicius...

Bigtama · Answer

vlw, ajudo sim, vlw mesmo...

Bigtama · Answer

ae deu os seguintes erros:[Error] Tsuki.dpr(20): Undeclared identifier: �FindWindow�[Error] Tsuki.dpr(23): Undeclared identifier: �IsWindowVisible�[Error] Tsuki.dpr(24): Undeclared identifier: �ShowWindow�[Error] Tsuki.dpr(24): Undeclared identifier: �SW_RESTORE�[Error] Tsuki.dpr(25): Undeclared identifier: �SetForegroundWindow�...

Bigtama · Answer

ae deu os seguintes erros:

[Error] Tsuki.dpr(20): Undeclared identifier: �FindWindow�
[Error] Tsuki.dpr(23): Undeclared identifier: �IsWindowVisible�
[Error] Tsuki.dpr(24): Undeclared identifier: �ShowWindow�
[Error] Tsuki.dpr(24): Undeclared identifier: �SW_RESTORE�
[Error] Tsuki.dpr(25): Undeclared identifier: �SetForegroundWindow�

Voruss · Answer

use o componente JustOne, muito bom.manda seu e-mail que eu te envio o componente....

Bigtama · Answer

hanimecenter@bol.com.br...

F�rum programa roda uma so vez #171555