Esconder de ALT TAB alguém sabe?
11/12/2003
0
Por favor, preciso retirar meu programa da caixa de seleção do Rwindows quando pressionamos ALT+TAB, se vc puder me ajudar, me ajude agora, preciso muito fazer isso. SOCORRO!
Carioca
Curtir tópico
+ 0
Responder
Posts
11/12/2003
Fabio.hc
Tente assim:
[b:21ded461be]084 - Evitar que seu programa apareça na barra de tarefas[/b:21ded461be]
Inclua na seção uses: Windows
{ Você já observou a caixa ´Propriedades´, aquela que mostra
as propriedades de um arquivo no Windows Explorer, não
aparece na lista do Alt+Tab e tampouco na barra de tarefas?
Isto ocorre porque ela funciona como uma ToolWindow, enquanto
os demais aplicativos funcionam como AppWindow. Porém podemos
mudar o comportamento de nossos programas feito em Delphi
para que se comportem como uma ToolWindow também.
Para experimentar, crie um novo projeto e altere o
Project1.dpr como abaixo (não esqueça do uses):
}
Observações
Ao executar observe a barra de tarefas e teste o Alt+Tab (seu programa não estará lá!).
[b:21ded461be]084 - Evitar que seu programa apareça na barra de tarefas[/b:21ded461be]
Inclua na seção uses: Windows
{ Você já observou a caixa ´Propriedades´, aquela que mostra
as propriedades de um arquivo no Windows Explorer, não
aparece na lista do Alt+Tab e tampouco na barra de tarefas?
Isto ocorre porque ela funciona como uma ToolWindow, enquanto
os demais aplicativos funcionam como AppWindow. Porém podemos
mudar o comportamento de nossos programas feito em Delphi
para que se comportem como uma ToolWindow também.
Para experimentar, crie um novo projeto e altere o
Project1.dpr como abaixo (não esqueça do uses):
}
program Project1; uses Forms, Windows, Unit1 in ´Unit1.pas´ ; {$R *.RES} var ExtendedStyle : Integer; begin Application.Initialize; ExtendedStyle := GetWindowLong(Application.Handle, gwl_ExStyle); SetWindowLong(Application.Handle, gwl_ExStyle, ExtendedStyle or ws_Ex_ToolWindow and not ws_Ex_AppWindow); Application.CreateForm(TForm1, Form1); Application.Run; end.
Observações
Ao executar observe a barra de tarefas e teste o Alt+Tab (seu programa não estará lá!).
Responder
16/09/2022
Filipe Lima
Tente assim:
[b:21ded461be]084 - Evitar que seu programa apareça na barra de tarefas[/b:21ded461be]
Inclua na seção uses: Windows
{ Você já observou a caixa ´Propriedades´, aquela que mostra
as propriedades de um arquivo no Windows Explorer, não
aparece na lista do Alt+Tab e tampouco na barra de tarefas?
Isto ocorre porque ela funciona como uma ToolWindow, enquanto
os demais aplicativos funcionam como AppWindow. Porém podemos
mudar o comportamento de nossos programas feito em Delphi
para que se comportem como uma ToolWindow também.
Para experimentar, crie um novo projeto e altere o
Project1.dpr como abaixo (não esqueça do uses):
}
[code:1:21ded461be]
program Project1;
uses
Forms, Windows,
Unit1 in ´Unit1.pas´ ;
{$R *.RES}
var
ExtendedStyle : Integer;
begin
Application.Initialize;
ExtendedStyle := GetWindowLong(Application.Handle, gwl_ExStyle);
SetWindowLong(Application.Handle, gwl_ExStyle, ExtendedStyle or
ws_Ex_ToolWindow and not ws_Ex_AppWindow);
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
[/code:1:21ded461be]
Observações
Ao executar observe a barra de tarefas e teste o Alt+Tab (seu programa não estará lá!).
[b:21ded461be]084 - Evitar que seu programa apareça na barra de tarefas[/b:21ded461be]
Inclua na seção uses: Windows
{ Você já observou a caixa ´Propriedades´, aquela que mostra
as propriedades de um arquivo no Windows Explorer, não
aparece na lista do Alt+Tab e tampouco na barra de tarefas?
Isto ocorre porque ela funciona como uma ToolWindow, enquanto
os demais aplicativos funcionam como AppWindow. Porém podemos
mudar o comportamento de nossos programas feito em Delphi
para que se comportem como uma ToolWindow também.
Para experimentar, crie um novo projeto e altere o
Project1.dpr como abaixo (não esqueça do uses):
}
[code:1:21ded461be]
program Project1;
uses
Forms, Windows,
Unit1 in ´Unit1.pas´ ;
{$R *.RES}
var
ExtendedStyle : Integer;
begin
Application.Initialize;
ExtendedStyle := GetWindowLong(Application.Handle, gwl_ExStyle);
SetWindowLong(Application.Handle, gwl_ExStyle, ExtendedStyle or
ws_Ex_ToolWindow and not ws_Ex_AppWindow);
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
[/code:1:21ded461be]
Observações
Ao executar observe a barra de tarefas e teste o Alt+Tab (seu programa não estará lá!).
Boa tarde, gostaria de saber mais detalhes sobre esse projeto, sou leigo, onde faço essas alterações?
Responder
Clique aqui para fazer login e interagir na Comunidade :)