aplicação minimizada

Delphi

15/07/2005

Ola pessoal

Teria como fazer no Delphi 6, se o usuario minimiza o sistema,
e ao tentar executa-lo novamente, ele me avise que já esta
aberto.

É aquele procedimento que o usuario minimiza, e esquece ou
não vë que a aplicação já esta em uso e executa o sistema
novamente.

grato

Claudio


Claudiocjr

Claudiocjr

Curtidas 0

Respostas

Sremulador

Sremulador

15/07/2005

amigo de uma pesquisada no forum pois não faltam assunto sobre isso...


GOSTEI 0
Paullsoftware

Paullsoftware

15/07/2005

[i:7d3d66cb94]como nosso amigo sremulador disse, procure usar a ferramenta de busca do fórum, pois, pode ser que já tenhamos debatido sobre a sua dúvida e sem contar que ajuda a dimunir a quantidade de tópicos sobre o mesmo tema...[/i:7d3d66cb94]

[u:7d3d66cb94]tente usar isso...[/u:7d3d66cb94]
Inclua abaixo da [color=green:7d3d66cb94]{$R *.res}[/color:7d3d66cb94]
[b:7d3d66cb94]
na seção Uses a unit Windows
Var
EmExec : HWND;[/b:7d3d66cb94]
  EmExec := FindWindow(nil,pchar(´Meu Sistema´));
  if EmExec = 0 then
  begin
  Application.Initialize;
  Application.Title := ´Meu Sistema´;
  Application.CreateForm(TDM_BANCO, DM_BANCO);
  Application.CreateForm(TFormPRINCIPAL, FormPRINCIPAL);
  Application.Run;
  end else
   begin
    Application.MessageBox(´A aplicação já está em execução!´,´ATENÇÃO´,MB_ICONSTOP+MB_OK);
   end;



espero ter ajudado :wink:


GOSTEI 0
POSTAR