Ver Mensaje Individual
  #2  
Antiguo 21-12-2008
Avatar de cHackAll
[cHackAll] cHackAll is offline
Baneado?
 
Registrado: oct 2006
Posts: 2.159
Reputación: 20
cHackAll Va por buen camino
Código Delphi [-]
uses ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var Shell: OleVariant;
begin
 Shell := CreateOleObject('Shell.Application');
 Shell.MinimizeAll;
// Shell.UndoMinimizeAll;
end;

Código:
#include <windows.h>
#include <shlobj.h>
 
// ...
 
 CoInitialize(NULL);
 IShellDispatch* Shell = NULL;
 CoCreateInstance(CLSID_Shell, NULL, CLSCTX_SERVER, IID_IDispatch, (void**)&Shell);
 Shell->MinimizeAll();
// Shell->UndoMinimizeAll();

// Shell->Release();
// CoUninitialize();
ó

Código:
 HWND hWnd = FindWindow("Shell_TrayWnd", NULL);
 SendMessage(hWnd, WM_COMMAND, 419, 0);
// SendMessage(hWnd, WM_COMMAND, 416, 0);
Saludos
__________________
RTFM > STFW > Foro > Truco > Post > cHackAll > KeBugCheckEx
Responder Con Cita