Fórum Ativar a aplicação que está aberta (sem foco) #187628
09/10/2003
0
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
Curtir tópico
+ 0Posts
09/10/2003
Aroldo Zanela
É para TEF? Como assim aplicação DOS (Console)? É Delphi mesmo? Para quais sistemas operacionais?
Gostei + 0
09/10/2003
Leandro Marques
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
09/10/2003
Beppe
program Project2;
uses
Windows;
{$APPTYPE CONSOLE}
function GetConsoleWindow: HWND; stdcall; external ´kernel32.dll´;
begin
Sleep(5000);
SetForegroundWindow(GetConsoleWindow);
Readln;
end.Ataliba
Gostei + 0
10/10/2003
Aroldo Zanela
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
Clique aqui para fazer login e interagir na Comunidade :)