Ver Mensaje Individual
  #2  
Antiguo 11-01-2010
elarys elarys is offline
Miembro
 
Registrado: abr 2007
Posts: 94
Reputación: 18
elarys Va por buen camino
Si estoy equivocado perdon... pero creo que deberias pegarle una ojeada a las api de windows y algunas funciones que vienen ya en System creo que es... Ejemplo:

Código Delphi [-]
//Bloquear la barra de tareas
//funcion SetTaskBar

var
  WndTaskbar: HWND;
begin
  Result:=true;
  //buscamos la barra de tareas
  WndTaskbar := FindWindow('Shell_TrayWnd', nil);
  if TaskBarVisible then
    ShowWindow(wndTaskbar, SW_SHOW)
  else
    ShowWindow(wndTaskbar, SW_HIDE);
 
  if TaskBarEnabled then
    EnableWindow(wndTaskbar, True)
  else
    EnableWindow(wndTaskbar, False);
  end;

Uso
SetTaskBar(true,false); //bloquea la barra de tareas
SetTaskBar(true,true);  //desbloquea la barra de tareas
SetTaskBar(false);      //oculta la barra de tareas
SetTaskBar(true);       //muestra la barra de tareas
SetTaskBar();           //muestra y desbloquea la barra de tareas

Código Delphi [-]
//Bloquear teclas Ctrl-Alt-Del
//Desconectar:
var dummy : integer; 
  SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @dummy, 0); 
  
  //Habilitarlo: 
  var dummy : integer; 
  SystemParametersInfo( SPI_SCREENSAVERRUNNING, 0, @dummy, 0);

Perdon pero no los he probado

Última edición por elarys fecha: 11-01-2010 a las 20:08:36.
Responder Con Cita