Hooks de teclado y mouse funcionando.. !!

[roman]

Empezado por NPIdea

impedir que apaguen el ordenador con el mensaje de fin de sesión

Que me he queda'o como tu nick

// Saludos

[NPIdea]

El mensaje que lanza el SO para decir que se cierra (WM_QUERYENDSESSION).

No se si antes me he explicado bien, pero creo que te falla un poco la RAM, jeje (es broma).

http://www.clubdelphi.com/foros/show...UERYENDSESSION

La pena es que lo he probado en W2000 y no me entra en la rutina y me apaga el ordenador.

[roman]

¡Caramba! Esto es usar mis propias palabras en mi contra

Más bien es que aún no despierto del todo y para que rían un rato te cuento que cuando leí tu mensaje anterior lo primero que me vino a la mente fue el letrero que aparecía en algunos ordenadores al cerrar Windows:

Ahora puede apagar la máquina

De ahí que me haya quedado de una pieza tratando de entender cómo dicho letrero podría impedir que apagaran la máquina.



Una pregunta, si nos olvidamos por un momento de la aplicación, ¿qué pasa si aprietas la mentada tecla habiendo documentos abiertos?

Lo pregunto porque es posible que el botón lo que haga sea apagar el sistema sin mandar el mensaje WM_QUERYENDSESSION. Por ejemplo, de acuerdo a la documentación, la llamada

ExitWindowsEx(EWX_FORCE or EWX_POWEROFF, 0);

cierra la sesión y apaga la máquina sin mandar los mensajes WM_QUERYENSESSION y WM_ENDSESSION

// Saludos

[NPIdea]

Jejeje, pues he encontrado este componente, como no, en otra gran página sobre el fascinante mundo de Delphi, despues de probar montones de formas, con privilegiios, mensajes, capturas, etc, etc. Y lo peor es que cada vez que se pulsa el maldito botón hay que arrancar el sistema.

Sin más rollos ni dilaciones os presento a PowerButton (Lo publico tal como lo he encontrado):

Código Delphi [-]
unit PowerButton;
///////////////////////////////////////////////////////////////////////////////////////
//Dies ist eine Komponente um den Powerknopf anzusteuern.
//Eigenschaften:
//PowerOffEnable:boolean
//  >false lässt den Pc nicht mehr herunterfahren
//Ereignisse:
//  OnPowerbuttonpress
//  >Wird ausgeführt wenn der Powerbutton gedrückt wurde
//
//Programmed by CTV => www.ctvnet.ch
//
//Komponente darf frei für alles verwendet werden copyright darf nicht entfernt werden
///////////////////////////////////////////////////////////////////////////////////////

interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Menus, ShellApi, ExtCtrls, Dialogs;
 
type
  TPowerButton = class(TComponent)
  private
    FHooked: Boolean;
    FOnPowerbuttonPress: TNotifyEvent;
    PPowerOffEnable: Boolean;
    function MessageHook(var Msg: TMessage): Boolean;
  protected
    procedure DoPowerbuttonPress; dynamic;
  public
    Version, Hersteller: string;
    IResultHi, IResultLo, ILParamHi, ILParamLo, IWParamHi, ILParam,
    IWParamLo, IWparam, Imsg, IResult: Integer;
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    {events}
    property OnPowerbuttonPress: TNotifyEvent
      read FOnPowerbuttonPress write FOnPowerbuttonPress;
    {properties}
    property PowerOffEnable: Boolean read PPowerOffEnable write PPowerOffEnable;
  end;
procedure Register;
implementation
const
  PBT_APMQUERYSUSPEND = 536; {Request for permission to suspend.}
procedure Register;
begin
  RegisterComponents('Zusätzlich', [TPowerButton]);
end;
constructor TPowerButton.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Version    := '1.0.0.0';
  Hersteller := 'CTVNet.ch';
  FHooked    := False;
  if not (csDesigning in ComponentState) then
  begin
    Application.HookMainWindow(MessageHook);
    FHooked := True;
  end;
end;
procedure TPowerButton.DoPowerbuttonPress;
begin
  if Assigned(FOnPowerbuttonPress) then FOnPowerbuttonPress(Self);
end;
function TPowerButton.MessageHook(var Msg: TMessage): Boolean;
begin
  IResultHi := Msg.ResultHi;
  IResultLo := Msg.ResultLo;
  ILParamHi := Msg.LParamHi;
  ILParamLo := Msg.LParamLo;
  IWParamHi := Msg.WParamHi;
  ILParam   := Msg.lParam;
  IWParamLo := Msg.WParamLo;
  Imsg      := Msg.Msg;
  IResult   := Msg.Result;
  IWparam   := Msg.wParam;
  if (Msg.Msg = PBT_APMQUERYSUSPEND) and (Msg.wParam = 0) then //win95/98
  begin
    if PPowerOffEnable = False then
    begin
      Msg.Result := PWR_FAIL;
    end;
  end;
  if (Msg.Msg = PBT_APMQUERYSUSPEND) and (Msg.wParam = 0) then //winNT,2k,XP
  begin
    if PPowerOffEnable = False then
    begin
      Msg.Result := BROADCAST_QUERY_DENY;
    end;
  end;
  if (Msg.Msg = PBT_APMQUERYSUSPEND) and (Msg.wParam = 0) then //excute Event
  begin
    DoPowerbuttonPress;
  end;
end;
destructor TPowerButton.Destroy;
begin
  if FHooked then Application.UnhookMainWindow(MessageHook);
  inherited Destroy;
end;
end.

[roman]

Hola NPIdea,

Me tomé la libertad de editar tu mensaje para agregar las etiquetas [delphi] para que fuera más legible el código.

Muy interesante, ahora sabemos algo más y agradezco que hayas publicado la solución que encontraste.

// Saludos

[NPIdea]

Empezado por roman

Hola NPIdea,

Me tomé la libertad de editar tu mensaje para agregar las etiquetas [delphi] para que fuera más legible el código.

Muy interesante, ahora sabemos algo más y agradezco que hayas publicado la solución que encontraste.

// Saludos

Tranquilo, muy bien hecho, hasta yo me entero y todo,jeje.

Saludicos y a otra cosa.

[GUILLERMOMEJIA]

Jejeje... hola a todos. Me he encontrado este hilo tantos años después y recordé lo fácil que solucioné el tema del miserable botón de apagado en el teclado, siempre cerca de una tecla de uso contínuo: para mí bastó un destornillador y arrancar la teclita de todos mis teclados!!!... jaaaaaajajajaja... lástima que no lo leí entonces... abrazo para todos.