Tema: ejecutar Ventanita + m para minimizar
Ver Mensaje Individual
  #2  
Antiguo 16-01-2005
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
  
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Reputación: 10
marcoszorrilla Va por buen camino
 
Código Delphi [-]
procedure TForm1.Button1Click(Sender:TObject);
var
intHwnd:Integer;
begin
intHwnd :=FindWindow('Shell_TrayWnd', nil);
PostMessage(intHwnd,WM_COMMAND,419,0);
end;
//Changer 419 par 416 pour restaurer les fenêtres

Este es el código, la combinación de teclas le asocias la que quieras
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita