Esconder Programa da Barra de Taferas????!!!???

Delphi

06/05/2004

Quem Souber tirar o Programa da barra de taferas Responda por favor???

:D :D :D
:cry: :cry: :cry:


Romualdo

Romualdo

Curtidas 0

Respostas

Fabio.hc

Fabio.hc

06/05/2004

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
Marco Salles

Marco Salles

06/05/2004

romualdo
Quem Souber tirar o Programa da barra de taferas Responda por favor???


Vi muitas dicas a cerca da questão : Algumas dicas : Application.ShowMainForm := False; Outras dicas Application.Icon.Empty;


Ate esta do [b:288e76c50b]Fabio.Hc[/b:288e76c50b] que parece ser a definitiva :P :P :P :P ...

Igual aquela apresentada pelo[b:288e76c50b] Cybelin [/b:288e76c50b]Sobre O [b:288e76c50b]Mutex[/b:288e76c50b] , que ora vai e ora vem e levantada uma infinidade de vezes por alguem desta comunidade...

Verificar se o programa já está rodando ???? Resposta ..Procure na pesquisa sobre mutex.


Me toca muito alguem forneçer de graça e com muita boa vontade uma dica simples mas de uma profundidade tamanha... Todos nos gostamos de pelo menos de um incentivo... A falta desses incentivos afugenta pessoas de alto conhecimento de qualquer comunidade.. Pode ter certeza , as pessoas se sentem lisonjeadas e com toda razão..


Desculpe romualdo , mas vou falar .. Não devia mas não to aguentando.. Não e nada pessoal , diga-se de antemão , mas vou falar...

E voce não agradeceu :?: :?: :?: ..... Então eu o faço

[b:288e76c50b]Obrigado Fabio por compartilhar conosco do Código[/b:288e76c50b]


GOSTEI 0
POSTAR