Minimizar Tudo

[AlexBEE]

Ola a todos

Eu estou fazendo uma aplicação de Bloqueio de Maquina, e gostaria de saber se tem como MINIMIZAR dodas as Janelas Aberta de outros programa quando travar.

Tipo eu queri fazer algo parecido com "Mostrar a Area de Trabalho" la no Win XP!!!!!!

Tipo na hora de TRAVAR se tiver por EX o Word, Internet Explorer, pastas abertas, etc eu gostaria que todas fosem MINIMIZADA para a Barra de Tarefas!!!!!

Se algem puder me ajudar!!!!!!!!!

OBRIGADO

ALEXANGELO

[AlexBEE]

ninguém sabe como eu faço isso?????????

OBRIGADO

ALEXBEE

[Graymalkin]

Você pode utilizar a função CloseWindow da API Win32 para minimizar uma janela passando seu handle. Ou seja, você teria que obter os handles de todas as janelas (o que acredito que possa ser feito com a função EnumWindows) e minimizar cada uma delas.

Abraços,

Graymalkin

[AlexBEE]

Ta

Eu entendi + ou -

você poderia me dar um Exemplo???

Eu sou meio Novato com Delphi!!!!!!

OBRIGADO

ALEXBEE

[Graymalkin]

Declare a seguinte rotina no seu form:

function EnumWindowsProc(wHandle: HWND; lParam: LPARAM): Bool; stdcall; export;
begin
  Result := True;
  if IsWindowVisible(wHandle) then
     CloseWindow(wHandle);
  end;
end;

E coloque o seguinte para ser executado no evento OnClick de um botão:

EnumWindows(@EnumWindowsProc, 0);

Execute o programa e clique no botão.

Certo?

Graymalkin

[AlexBEE]

Valeu Deu Certo

so que quando o programa esta aberto ele não volta nada!!!!!!!

Tipo quando eu minimizo eu não consigo Restaurar novamente, so consigo quando eu fecho o programa!!!!!!!!!

Como eu poderia fazer para restaurar???

OBRIGADO

ALEXBEE

[Graymalkin]

Experimente fazer...

ShowWindow(wHandle, SW_SHOWNORMAL);

... para ver se a janela volta.

Abraços,

Graymalkin

[AlexBEE]

Cara,

não deu certo!!!!!!!

você tem outra ideia???

OBRIGADO

ALEXBEE

[Graymalkin]

você tem outra ideia???

Bom, tente utilizar a função SetWindowPlacement ao invés de CloseWindow. Talvez dê certo.

Abraços,

Graymalkin

[AlexBEE]

ola

ele deu um erro que eu não soube resolver

"[Error] Minimiza.pas(42): Incompatible types: 'Integer' and 'PWindowPlacement'"

como eu faço para resolver esse erro de compatibilidade????

[Graymalkin]

ola

ele deu um erro que eu não soube resolver

"[Error] Minimiza.pas(42): Incompatible types: 'Integer' and 'PWindowPlacement'"

como eu faço para resolver esse erro de compatibilidade????

Você vai precisar passar um objeto PWindowPlacement para esta função. Você experimentou dar uma pesquisada (no Google, por exemplo) sobre como utilizar ela? Dê uma procurada e você com certeza encontrará exemplos.

Abraços,

Graymalkin

[Micheus]

Desculpem me intrometer, verifique se isto serve para vc:

function EnumWindowsProc(Handle :HWND; Param :LPARAM): BOOL; stdcall; export;
begin
  if IsWindowVisible(Handle) then
    if Param = 0 then
      SendMessage(Handle, WM_SYSCOMMAND, SC_MINIMIZE, 0)
    else
      SendMessage(Handle, WM_SYSCOMMAND, SC_RESTORE, 0);
  Result := BOOL(TRUE);
end;

Chame EnumWindows com 0 (Zero) para minimizar e com outro valor para restaurar as janelas.

EnumWindows(@EnumWindowsProc, 0);

Tipo quando eu minimizo eu não consigo Restaurar novamente, so consigo quando eu fecho o programa!!!!!!!!!

Usando SendMessage, não haverá problema ao restaurar as janelas