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

Carioca

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):
}

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á!).




Boa tarde, gostaria de saber mais detalhes sobre esse projeto, sou leigo, onde faço essas alterações?
Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar