Ativar a aplicação que está aberta (sem foco)

Delphi

09/10/2003

Pessoal, preciso de uma forma de
ativar uma aplicação que está aberta, porém sem foco.
Ou seja, a aplicação é DOS e está aberta juntamente com outras, porém o foco está em outra eu não posso utilizar ALT+TAB muito menos o mouse.

Agradeço.


Leandro Marques

Leandro Marques

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

09/10/2003

Colega,

É para TEF? Como assim aplicação DOS (Console)? É Delphi mesmo? Para quais sistemas operacionais?


GOSTEI 0
Leandro Marques

Leandro Marques

09/10/2003

Isso mesmo, na verdade meu TEF funciona da seguinte forma:
Tenho uma aplicação feita em Clipper que comunica com um programa Delphi que possue as rotinas TEF e Cupom Fiscal. Acontece às vezes de o programa mandar mensagens para o usuário, só que ele já tirou o foco da aplicação DOS. Então preciso ativar esta aplicação.

Deu para entender ?


GOSTEI 0
Beppe

Beppe

09/10/2003

program Project2;

uses
  Windows;

{$APPTYPE CONSOLE}

function GetConsoleWindow: HWND; stdcall; external ´kernel32.dll´;

begin
  Sleep(5000);
  SetForegroundWindow(GetConsoleWindow);
  Readln;
end.


Ataliba


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

09/10/2003

Colega,

Para qual sistema operacional? GetConsoleWindow está presente no kernel do 2000/XP. Para as versões anteriores, tente:

procedure TForm1.Button1Click(Sender: TObject);
var
 h: THandle;
begin
 h := FindWindowEx(0, 0, ´ConsoleWindowClass´, ´Título ou caminho e nome de seu exe´);
 if h <> 0 then
    SetWindowPos(h, hwnd_Topmost, 300, 400, 350, 450, SWP_SHOWWINDOW);
end;



GOSTEI 0
POSTAR