Esconder de ALT TAB alguém sabe?

Delphi

11/12/2003

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

Curtidas 0

Respostas

Fabio.hc

Fabio.hc

11/12/2003

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


GOSTEI 0
Filipe Lima

Filipe Lima

11/12/2003

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




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