ocultar programas ativos?

Question

Boa noite Programadores!estou com um problema. eu tenho uma rotina que minimiza qualquer programa ativo no windows...s� que eu tenho agora de esconde-los da barra de tarefa do windows e posteriormente...

Orlando Frade · Answer

procedure MostraEsconde(visible: boolean);
var
programa: HWND;
begin
programa := FindWindow(nil, �Caption do Programa�);
if visible then
ShowWindow(programa, SW_RESTORE)
else
ShowWindow(programa, SW_HIDE);
end;

Crcam · Answer

pelo que entendi ai eu tenho de especificar o nome do programa � isso?...

Orlando Frade · Answer

isso mesmo .. vc tem q colocar o caption da janelavc queria fazer como?...

Crcam · Answer

na verdade n�o � um programa especifico mas sim todos que tiverem ativos no momento

eu tenho uma rotina que minimiza tudo que estiver ativo no windows ai quero esconder eles e posterior mente restaurar ou seja n�o tenho como saber no momento o nome do programa ativo...

tem de ser algo esconder geral

Orlando Frade · Answer

poste a rotina d minimizar tudo....

Crcam · Answer

n�o tem segredo ...pesquise no seu windows o arquivo Mostrar �rea de trabalho.scfcopie ele na pasta de seu projeto.crie um bot�o e coloque shellexecute(handle,�open�,�Mostrar �rea de trabalho.scf�,nil,nil,sw_show);declare nas usesshellapie pronto......

Paullsoftware · Answer

[quote:773cd1cb35=�Orlando Frade�]poste a rotina d minimizar tudo.[/quote:773cd1cb35]

Tem um artigo muito simples no site da ClubeDelphi que mostra como minizar todas as janelas abertas...

segue o c�digo do mesmo

uses ShlObj;
�
procedure Shell_MinimizeAll;
var
  Shell: OleVariant;
begin
  Shell := CreateOleObject(�Shell.Application�) ;
  Shell.MinimizeAll;
end;

Esse � o que eu uso para minizar...

procedure MinimizaTudo;
begin
keybd_event(VK_LWIN, 0, 0, 0);
keybd_event(Ord(�D�), 0, 0, 0);
keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0);
end;

Espero ter ajudado, um abra�o :wink:

Crcam · Answer

o duro n�o � minimizar o duro � esconder!!!!...

F�rum ocultar programas ativos? #322559