Ver Mensaje Individual
  #4  
Antiguo 07-08-2007
adfa adfa is offline
Miembro
 
Registrado: may 2003
Ubicación: Montevideo-Uruguay
Posts: 119
Reputación: 22
adfa Va por buen camino
Prueba poner esto en el create del form:

Código Delphi [-]
var
   HTaskbar : HWND;
   OldVal : LongInt;
begin
    try
      HTaskBar:=FindWindow('Shell_TrayWnd',nil);
      SystemParametersInfo (97, Word (True), @OldVal, 0) ;
//Desactivar la barra de tareas
      EnableWindow(HTaskBar,False);
//Ocultar la barra
      ShowWindow(HTaskbar,SW_HIDE);
   except
   end;

y no te olvides de al cerra la aplicacion volver a restaurar la barra
Código Delphi [-]
var
   HTaskbar : HWND;
   OldVal : LongInt;
begin
    try
     HTaskBar:=FindWindow('Shell_TrayWnd',nil);
     SystemParametersInfo (97, Word (False), @OldVal, 0);
//Activar la barra
     EnableWindow(HTaskBar,True);
//Mostrar la barra
     ShowWindow(HTaskbar,SW_SHOW);
   except
   end;

Espero que te sirva, lo saque de algun lado pero no recuerdo de donde fue

Saludos
Responder Con Cita