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 te va a funcionar:

Código Delphi [-]
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.