Problema con la llamada a un Procedimiento almacenado

[Casimiro Noteví]

Si apagan sin salir del programa... lo tienes crudo.

Pueden poner un cartel: "Por cada vez que no quede reflejada la hora de salida del sistema... se le descontará xxx euros de su sueldo", verás como no se olvidan

De todas formas, ya en serio, deberías controlar el apagado y guardar el dato antes de cerrar, busca en los foros por "apagar" a ver si encuentras algo.

En principio, mira este hilo por si te sirve.

[cahp]

Lo unico que se me ocurre, es capturar la llamada de cierre de windows si apagan el ordenador como es debido, si lo apagan con boton a lo bestia no es posible.

Otra cosa, es si la aplicacion controla quien entra por medio de usuarios, sabes que apaga el ordenador mal. Sabes que un pc ha iniciado la sesion, y no la ha terminado.

Saludos.

[Carlos Hurtado]

Hola amigo no se si te servira esta rutina sacada de Trucomania:



Cuando el usuario sale de Windows teniendo nuestra apliacación abierta, es posible que la pille en un mal
momento (sin grabar datos, en medio de un proceso, etc). Esto se puede evitar capturando el mensaje que envia
Windows a todas las apliacaciones cuando el usuario quiere cerrar Windows: el mensaje
WM_QUERYENSESSION

Para capturar el mensaje y enviarlo a nuestro código de tratamiento del mensaje:

Código Delphi [-]
 
     TForm1 = class(TForm)
     ..........
       private
         procedure WMQueryEndSession(var Msg: TWMQueryEndSession); message WM_QUERYENDSESSION;
     ..........
     end;

Es decir, basta con que añadamos en la claúsula Private de la declaración del form la siguiente linea:

Código Delphi [-]
 
    procedure WMQueryEndSession(var Msg: TWMQueryEndSession); message WM_QUERYENDSESSION;

y luego, en la parte implementation, ponemos el código que trate el mensaje:

Código Delphi [-]
 
 
     procedure TForm1.WMQueryEndSession(var Msg: TWMQueryEndSession);
     begin 
       MessageBox(Handle, 'Cierra antes el programa', nil, MB_OK);
       Msg.result := 0;
     end;

Si en lugar de abortar el cierre de Windows, queremos que siga realizandose, basta con que cambiemos el

Código Delphi [-]
Msg.result:=0 por Msg.result:=1.

NOTA: El comportamiento del mensaje difiere en win98 y WinNT, así que mirate la ayuda del mensaje
WM_QUERYENDSESSION.


Saludos