Como puedo hacer que desde el Sistema Operativo cierre Todas la Tablas.

[BPL]

Hola a Todos,
tengo un problema, yo trabajo con Advantage 8.1 y Delphi (sobre Windows), necesito apagar los equipo a cierta hora para poder hacer copias de todas la tablas (trabajo aun con DBF)
pues bien, el programar que las maquinas se apagen esta solucionado, pero como hago para que la estacion de trabajo antes de ser apagada cierre las tablas...
saben si existe alguna manera ?
o saben si a traves de Advantage 8.1 puedo hacer algo al respecto.

Agradeceria muchisimo alguna ayuda.....

[ecfisa]

Hola BPL.

Como no se requiere intervención del usuario, creo que capturar el mensaje WM_ENDSESSION (http://msdn.microsoft.com/en-us/library/windows/desktop/aa376889(v=vs.85).aspx) te va a funcionar:

type
TForm1 = class(TForm)
private
procedure WMEndSession(var Msg: TWMEndSession); message WM_ENDSESSION;
...

implementation

procedure TForm1.WMEndSession(var Msg: TWMEndSession);
begin
if Msg.EndSession then
begin
// Cerrar las tablas sybase
ShowMessage('Windows se cerrará'); // Quitar (solo como ejemplo)
end;
end;


Saludos.