Pessoal, da uma olhada nesse código:
function JanelaAtiva: String;// Função de capturar o titulo da janela
var
Handle:THandle;
Len:LongInt;
Title: String;
begin
Handle:=GetForegroundWindow;
Len:=GetWindowTextLength(Handle) + 1;
SetLength(Title,Len);
GetWindowText(Handle,PChar(Title),Len);
JanelaAtiva:=TrimRight(Title);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
i : integer;
begin
sJanelaOld:=sJanelaAtiva;
sJanelaAtiva := JanelaAtiva;
if sJanelaAtiva = 'orkut - login - Mozilla Firefox' then
if sJanelaAtiva <> sJanelaOld then
Form1.WindowState := wsNormal
else
Form1.WindowState := wsMinimized
end;
Fiz uma aplicação q quando é executada ela fica minimizada, até ai td bem.
Dai coloquei essa função para monitorar as janela e se janela for tela de login de orkut a aplicação subisse normal e se mudasse de tela ela voltava a minimizar.
Mas quando abro a tela de login do orkut ela n sobe fica minimizada so sobe manualmente mas s eu mudo de tela com ela normal da certo ela volta a minimizar.
Então o erro e o seguinte:
Não estou conseguindo fazer com que a aplicação, suba quando a tela de login é aberta.
Teria como vc's me ajudar? Errei em alguma coisa?
Desde de ja muito Obrigado!
function JanelaAtiva: String;// Função de capturar o titulo da janela
var
Handle:THandle;
Len:LongInt;
Title: String;
begin
Handle:=GetForegroundWindow;
Len:=GetWindowTextLength(Handle) + 1;
SetLength(Title,Len);
GetWindowText(Handle,PChar(Title),Len);
JanelaAtiva:=TrimRight(Title);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
i : integer;
begin
sJanelaOld:=sJanelaAtiva;
sJanelaAtiva := JanelaAtiva;
if sJanelaAtiva = 'orkut - login - Mozilla Firefox' then
if sJanelaAtiva <> sJanelaOld then
Form1.WindowState := wsNormal
else
Form1.WindowState := wsMinimized
end;
Fiz uma aplicação q quando é executada ela fica minimizada, até ai td bem.
Dai coloquei essa função para monitorar as janela e se janela for tela de login de orkut a aplicação subisse normal e se mudasse de tela ela voltava a minimizar.
Mas quando abro a tela de login do orkut ela n sobe fica minimizada so sobe manualmente mas s eu mudo de tela com ela normal da certo ela volta a minimizar.
Então o erro e o seguinte:
Não estou conseguindo fazer com que a aplicação, suba quando a tela de login é aberta.
Teria como vc's me ajudar? Errei em alguma coisa?
Desde de ja muito Obrigado!
Comment