Fórum aplicação minimizada #288178
15/07/2005
0
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
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
Curtir tópico
+ 0
Responder
Posts
15/07/2005
Sremulador
amigo de uma pesquisada no forum pois não faltam assunto sobre isso...
Responder
Gostei + 0
15/07/2005
Paullsoftware
[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]
espero ter ajudado :wink:
[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:
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)