unit respaldo;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Buttons,checa, ComCtrls, Tabnotbk,FileCtrl,dbtables,
  dialogos, Gauges, Db;

type
  TFormaRespaldo = class(TForm)
    TabbedNotebook1: TTabbedNotebook;
    Ejecutar: TSpeedButton;
    Normal: TRadioButton;
    EditAux: TEdit;
    EditAux2: TEdit;
    Aceptar: TBitBtn;
    BitBtn2: TBitBtn;
    DirectorioFue: TEdit;
    DirectorioDes: TEdit;
    BitBtn1: TBitBtn;
    Advertencia: TLabel;
    Advertencia2: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Avance2: TGauge;
    Avance: TGauge;
    ListaArchivo2: TFileListBox;
    Avance4: TGauge;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    ArchivoBases: TLabel;
    Directorio2: TEdit;
    Etidir: TLabel;
    uno: TLabel;
    dos: TLabel;
    Panel1: TPanel;
    Bevel2: TBevel;
    Bevel3: TBevel;
    Bevel4: TBevel;
    Panel2: TPanel;
    Shape1: TShape;
    Label1: TLabel;
    Label4: TLabel;
    DirectorioFuente: TEdit;
    DirectorioDestino: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    Bevel1: TBevel;
    Bevel5: TBevel;
    Bevel6: TBevel;
    Bevel7: TBevel;
    Bevel8: TBevel;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Bevel9: TBevel;
    CreaTabla: TBatchMove;
    Tabla1: TTable;
    Tabla2: TTable;
    Comprimido: TRadioButton;
    procedure FormCreate(Sender: TObject);
    procedure EjecutarClick(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Panel2Click(Sender: TObject);
    procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Label4MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormaRespaldo: TFormaRespaldo;
  contador:integer;


implementation

uses pk;

{$R *.DFM}


//ESPERANDO QUE TERMINE
function WinExecAndWait32(FileName:String; Visibility : integer):integer;
{Ejectuta el programa y espera a que termine.
Las opciones de visibilidad son las típicas
en estos casos: SW_HIDE, SW_MAXIMIZE, SW_MINIMIZE, SW_RESTORE,
                SW_SHOW, SW_SHOWDEFAULT, SW_SHOWMAXIMIZED,
                SW_SHOWMINIMIZED, SW_SHOWMINNOACTIVE, SW_SHOWNA,
                SW_SHOWNOACTIVATE, SW_SHOWNORMAL
                Si necesitas más información sobre estas opciones
                busca la función ShowWindow en la ayuda del Api de
                Windows}
var
  zAppName:array[0..512] of char;
  zCurDir:array[0..255] of char;
  WorkDir:String;
  StartupInfo:TStartupInfo;
  ProcessInfo:TProcessInformation;
begin
  StrPCopy(zAppName,FileName);
  GetDir(0,WorkDir);
  StrPCopy(zCurDir,WorkDir);
  FillChar(StartupInfo,Sizeof(StartupInfo),#0);
  StartupInfo.cb := Sizeof(StartupInfo);

  StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
  StartupInfo.wShowWindow := Visibility;
  if not CreateProcess(nil,
    zAppName,
    nil,
    nil,
    false,
    CREATE_NEW_CONSOLE or
    NORMAL_PRIORITY_CLASS,
    nil,
    nil,
    StartupInfo,
    ProcessInfo) then Result := -1 { pointer to PROCESS_INF }
  else begin
    WaitforSingleObject(ProcessInfo.hProcess,INFINITE);
    GetExitCodeProcess(ProcessInfo.hProcess,Result);
  end;
end;



procedure normal;
var
i:integer;
f:Boolean;
begin
with FormaRespaldo do
begin

Avance2.Progress:=0;
ListaArchivo2.Directory:=ruta(8);
Listaarchivo2.Mask:='*.dbf';

for i:=0 to ListaArchivo2.Items.Count-1 do
begin
uno.Caption:=Listaarchivo2.Directory+'\'+ListaArchivo2.Items[i];
dos.Caption:=Directorio2.Text+'\'+ListaArchivo2.Items[i];
if DirectoryExists(Directorio2.Text) then
begin
ArchivoBases.Caption:=uno.Caption;
CopyFile(Pchar(uno.Caption),PChar(dos.Caption),f);
end;
Avance2.Progress:=Avance2.Progress+2;
end;

Listaarchivo2.Mask:='*.mdx';

for i:=0 to ListaArchivo2.Items.Count-1 do
begin
uno.Caption:=Listaarchivo2.Directory+'\'+ListaArchivo2.Items[i];
dos.Caption:=Directorio2.Text+'\'+ListaArchivo2.Items[i];
if DirectoryExists(Directorio2.Text) then
begin
ArchivoBases.Caption:=uno.Caption;
CopyFile(Pchar(uno.Caption),PChar(dos.Caption),f);
end;
Avance2.Progress:=Avance2.Progress+2;
end;

MuestraMensaje('Proceso de Generación de Archivos Terminado ');
Close;
end;
end;




procedure hacerespaldo;
var
i:integer;
f:Boolean;
begin
with FormaRespaldo do
begin
Avance2.Progress:=0;
ListaArchivo2.Directory:=DirectorioFuente.Text;
Listaarchivo2.Mask:='*.dbf';

for i:=0 to ListaArchivo2.Items.Count-1 do
begin
uno.Caption:=Listaarchivo2.Directory+'\'+ListaArchivo2.Items[i];
dos.Caption:=DirectorioDestino.Text+'\'+ListaArchivo2.Items[i];

if DirectoryExists(DirectorioDestino.Text) then
begin
ArchivoBases.Caption:=uno.Caption;
CopyFile(Pchar(uno.Caption),PChar(dos.Caption),f);
end;
Avance2.Progress:=Avance2.Progress+2;
end;


Listaarchivo2.Items.Clear;
ListaArchivo2.Directory:=DirectorioFuente.Text;
Listaarchivo2.Mask:='*.mdx';
for i:=0 to ListaArchivo2.Items.Count-1 do
begin
uno.Caption:=Listaarchivo2.Directory+'\'+ListaArchivo2.Items[i];
dos.Caption:=DirectorioDestino.Text+'\'+ListaArchivo2.Items[i];

if DirectoryExists(DirectorioDestino.Text) then
begin
ArchivoBases.Caption:=uno.Caption;
CopyFile(Pchar(uno.Caption),PChar(dos.Caption),f);
end;
Avance2.Progress:=Avance2.Progress+2;
end;
MuestraMensaje('Proceso de Respaldo Archivos Terminado ');
Close;
end;
end;



procedure cierratodaslasbases;
var
Session:TSession;
base:TDataBase;
begin
{Session.PrivateDir := 'C:\proyecto';}
{Base.DataBaseName:='c:\proyecto\clientes.dbf';
Session.CloseDatabase(Base);}
{Session.Close;}
end;

function convcad(cad:string):string;
begin
convcad:=cad;
end;

function cadena(cad:string):TEdit;
begin

end;

procedure respaldonormal;
var
fuente,destino:PChar;
f:longbool;

begin
{*******}
with FormaRespaldo do
begin
DeleteFile(FormaComprime.Directorio.Text+'\cliente.dbf');
DeleteFile(FormaComprime.Directorio.Text+'\comovinv.dbf');
DeleteFile(FormaComprime.Directorio.Text+'\comprasd.dbf');
DeleteFile(FormaComprime.Directorio.Text+'\comprase.dbf');
DeleteFile(FormaComprime.Directorio.Text+'\concepto.dbf');
DeleteFile(FormaComprime.Directorio.Text+'\conclie.dbf');
DeleteFile(FormaComprime.Directorio.Text+'\cuecobrar.dbf');
DeleteFile(FormaComprime.Directorio.Text+'\cuepagar.dbf');
DeleteFile(FormaComprime.Directorio.Text+'\facturad.dbf');

DeleteFile(FormaComprime.Directorio.Text+'\facturae.dbf');
DeleteFile(FormaComprime.Directorio.Text+'\inventar.dbf');
DeleteFile(FormaComprime.Directorio.Text+'\movinven.dbf');
DeleteFile(FormaComprime.Directorio.Text+'\multialm.dbf');
DeleteFile(FormaComprime.Directorio.Text+'\numserie.dbf');
DeleteFile(FormaComprime.Directorio.Text+'\poventas.dbf');
DeleteFile(FormaComprime.Directorio.Text+'\proveedo.dbf');
DeleteFile(FormaComprime.Directorio.Text+'\vendedor.dbf');

DeleteFile(FormaComprime.Directorio.Text+'\deta.db');
DeleteFile(FormaComprime.Directorio.Text+'\detaminv.db');
DeleteFile(FormaComprime.Directorio.Text+'\detacomp.db');
{***************}


EditAux.Text:=ruta(8)+'\cliente.mdx';
EditAux2.Text:=FormaComprime.Directorio.Text+'\cliente.mdx';
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;

EditAux.Text:=ruta(8)+'\comovinv.mdx';
EditAux2.Text:=FormaComprime.Directorio.Text+'\comovinv.mdx';
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;

EditAux.Text:= ruta(8)+'\comprasd.mdx';
EditAux2.Text:= FormaComprime.Directorio.Text+'\comprasd.mdx';
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;

EditAux.Text:= ruta(8)+'\comprase.mdx';
EditAux2.Text:= FormaComprime.Directorio.Text+'\comprase.mdx';
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;

EditAux.Text:= ruta(8)+'\concepto.mdx';
EditAux2.Text:= FormaComprime.Directorio.Text+'\concepto.mdx';
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;

EditAux.Text:= ruta(8)+'\conclie.mdx';
EditAux2.Text:= FormaComprime.Directorio.Text+'\conclie.mdx';
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;

EditAux.Text:= ruta(8)+'\cuepagar.mdx';
EditAux2.Text:= FormaComprime.Directorio.Text+'\cuepagar.mdx';
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;

EditAux.Text:= ruta(8)+'\cuecobrar.mdx';
EditAux2.Text:= FormaComprime.Directorio.Text+'\cuecobrar.mdx';
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;

EditAux.Text:=ruta(8)+'\facturad.mdx';
EditAux2.Text:= FormaComprime.Directorio.Text+'\facturad.mdx';
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;

EditAux.Text:= ruta(8)+'\facturae.mdx';
EditAux2.Text:= FormaComprime.Directorio.Text+'\facturae.mdx';
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;

EditAux.Text:=ruta(8)+'\inventar.mdx';
EditAux2.Text:= FormaComprime.Directorio.Text+'\inventar.mdx';
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;

EditAux.Text:= ruta(8)+'\movinven.mdx';
EditAux2.Text:= FormaComprime.Directorio.Text+'\movinven.mdx';
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;

EditAux.Text:=ruta(8)+'\multialm.mdx';
EditAux2.Text:= FormaComprime.Directorio.Text+'\multialm.mdx';
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;

{EditAux.Text:= ruta(8)+'\numserie.mdx';
EditAux2.Text:= FormaComprime.Directorio.Text+'\numserie.mdx';
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;}

EditAux.Text:=ruta(8)+'\poventas.mdx';
EditAux2.Text:=FormaComprime.Directorio.Text+'\poventas.mdx';
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;

EditAux.Text:= ruta(8)+'\proveedo.mdx';
EditAux2.Text:= FormaComprime.Directorio.Text+'\proveedo.mdx';
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;

EditAux.Text:= ruta(8)+'\vendedor.mdx';
EditAux2.Text:= FormaComprime.Directorio.Text+'\vendedor.mdx' ;
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;


{********}


EditAux.Text:= ruta(8)+'\cliente.dbf';
EditAux2.Text:= FormaComprime.Directorio.Text+'\cliente.dbf' ;
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;

EditAux.Text:= ruta(8)+'\comovinv.dbf';
EditAux2.Text:= FormaComprime.Directorio.Text+'\comovinv.dbf' ;
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;

EditAux.Text:= ruta(8)+'\comprasd.dbf';
EditAux2.Text:= FormaComprime.Directorio.Text+'\comprasd.dbf' ;
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;

EditAux.Text:= ruta(8)+'\comprase.dbf';
EditAux2.Text:= FormaComprime.Directorio.Text+'\comprase.dbf' ;
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;

EditAux.Text:= ruta(8)+'\concepto.dbf';
EditAux2.Text:= FormaComprime.Directorio.Text+'\concepto.dbf' ;
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;

EditAux.Text:= ruta(8)+'\conclie.dbf';
EditAux2.Text:= FormaComprime.Directorio.Text+'\conclie.dbf'  ;
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+3;

EditAux.Text:= ruta(8)+'\cuecobrar.dbf';
EditAux2.Text:= FormaComprime.Directorio.Text+'\cuecobrar.dbf'  ;
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+3;

EditAux.Text:= ruta(8)+'\cuepagar.dbf';
EditAux2.Text:= FormaComprime.Directorio.Text+'\cuepagar.dbf'  ;
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+5;

EditAux.Text:= ruta(8)+'\facturad.dbf';
EditAux2.Text:= FormaComprime.Directorio.Text+'\facturad.dbf' ;
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+4;

EditAux.Text:= ruta(8)+'\facturae.dbf';
EditAux2.Text:= FormaComprime.Directorio.Text+'\facturae.dbf'  ;
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+3;

EditAux.Text:= ruta(8)+'\inventar.dbf';
EditAux2.Text:= FormaComprime.Directorio.Text+'\inventar.dbf' ;
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+3;

EditAux.Text:= ruta(8)+'\movinven.dbf';
EditAux2.Text:= FormaComprime.Directorio.Text+'\movinven.dbf' ;
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;

EditAux.Text:= ruta(8)+'\multialm.dbf';
EditAux2.Text:= FormaComprime.Directorio.Text+'\multialm.dbf';
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;

{EditAux.Text:= ruta(8)+'\numserie.dbf';
EditAux2.Text:= FormaComprime.Directorio.Text+'\numserie.dbf';
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;}

EditAux.Text:= ruta(8)+'\poventas.dbf';
EditAux2.Text:= FormaComprime.Directorio.Text+'\poventas.dbf';
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;

EditAux.Text:= ruta(8)+'\proveedo.dbf';
EditAux2.Text:= FormaComprime.Directorio.Text+'\proveedo.dbf';
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;

EditAux.Text:= ruta(8)+'\vendedor.dbf';
EditAux2.Text:= FormaComprime.Directorio.Text+'\vendedor.dbf' ;
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;

EditAux.Text:= ruta(8)+'\deta.db';
EditAux2.Text:= FormaComprime.Directorio.Text+'\deta.db'    ;
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;

EditAux.Text:=ruta(8)+'\detaminv.db';
EditAux2.Text:= FormaComprime.Directorio.Text+'\detaminv.db' ;
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;

EditAux.Text:= ruta(8)+'\detacomp.db';
EditAux2.Text:= FormaComprime.Directorio.Text+'\detacomp.db' ;
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;
{***************}


EditAux.Text:=ruta(8)+'\cliente.mdx';
EditAux2.Text:= FormaComprime.Directorio.Text+'\cliente.mdx' ;
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;


EditAux.Text:= ruta(8)+'\comovinv.mdx';
EditAux2.Text:= FormaComprime.Directorio.Text+'\comovinv.mdx' ;
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;

EditAux.Text:= ruta(8)+'\comprasd.mdx';
EditAux2.Text:= FormaComprime.Directorio.Text+'\comprasd.mdx' ;
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;

EditAux.Text:= ruta(8)+'\comprase.mdx';
EditAux2.Text:= FormaComprime.Directorio.Text+'\comprase.mdx' ;
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;

EditAux.Text:= ruta(8)+'\concepto.mdx';
EditAux2.Text:= FormaComprime.Directorio.Text+'\concepto.mdx' ;
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;

EditAux.Text:= ruta(8)+'\conclie.mdx';
EditAux2.Text:= FormaComprime.Directorio.Text+'\conclie.mdx'  ;
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;

EditAux.Text:= ruta(8)+'\cuepagar.mdx';
EditAux2.Text:= FormaComprime.Directorio.Text+'\cuepagar.mdx' ;
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;

EditAux.Text:= ruta(8)+'\facturad.mdx';
EditAux2.Text:= FormaComprime.Directorio.Text+'\facturad.mdx' ;
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;

EditAux.Text:= ruta(8)+'\facturae.mdx';
EditAux2.Text:= FormaComprime.Directorio.Text+'\facturae.mdx' ;
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;

EditAux.Text:= ruta(8)+'\inventar.mdx' ;
EditAux2.Text:= FormaComprime.Directorio.Text+'\inventar.mdx'  ;
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;

EditAux.Text:= ruta(8)+'\movinven.mdx';
EditAux2.Text:= FormaComprime.Directorio.Text+'\movinven.mdx'  ;
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;

EditAux.Text:= ruta(8)+'\multialm.mdx';
EditAux2.Text:= FormaComprime.Directorio.Text+'\multialm.mdx'  ;
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;

EditAux.Text:= ruta(8)+'\numserie.mdx';
EditAux2.Text:=  FormaComprime.Directorio.Text+'\numserie.mdx'  ;
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;

EditAux.Text:=ruta(8)+'\poventas.mdx';
EditAux2.Text:= FormaComprime.Directorio.Text+'\poventas.mdx' ;
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;

EditAux.Text:= ruta(8)+'\proveedo.mdx';
EditAux2.Text:= FormaComprime.Directorio.Text+'\proveedo.mdx' ;
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;

EditAux.Text:= ruta(8)+'\vendedor.mdx';
EditAux2.Text:= FormaComprime.Directorio.Text+'\vendedor.mdx' ;
CopyFile(PChar(EditAux.Text),Pchar(EditAux2.Text),F);
Avance2.Progress:=Avance.Progress+2;

end;


end;

procedure respaldocomprimido;
begin
winExec('c:\zip\pkzip ressif.zip c:\proyecto\*.dbf',SW_SHOWNOACTIVATE);


end;


procedure TFormaRespaldo.FormCreate(Sender: TObject);
begin
contador:=0;
DirectorioDes.Text:=ruta(8);
DirectorioFuente.Text:=ruta(8);

end;

procedure TFormaRespaldo.EjecutarClick(Sender: TObject);
begin
if normal.Checked then
begin

if  not (DirectoryExists(DirectorioDestino.Text)) then
begin
MkDir(DirectorioDestino.Text);
MuestraMensaje(DirectorioDestino.Text);
end;
//respaldonormal;
hacerespaldo;
//FormaComprime.Tag:=0;
end
else
begin

//WinExecAndWait32('pkzip ResSIF.zip '*.mdc

end;


end;


procedure TFormaRespaldo.BitBtn2Click(Sender: TObject);
begin
Close;
end;

procedure TFormaRespaldo.BitBtn1Click(Sender: TObject);
begin
Close;
end;

procedure TFormaRespaldo.BitBtn5Click(Sender: TObject);
var
i:integer;
f:Boolean;
begin
Avance4.Progress:=0;
ListaArchivo2.Directory:=ruta(8){+'\define'};

for i:=0 to ListaArchivo2.Items.Count-1 do
begin
uno.Caption:=Listaarchivo2.Directory+'\'+ListaArchivo2.Items[i];
dos.Caption:=Directorio2.Text+'\'+ListaArchivo2.Items[i];

Tabla1.DataBaseName:=Listaarchivo2.Directory;
Tabla2.DataBaseName:=Directorio2.Text;

Tabla1.TableName:=ListaArchivo2.Items[i];
Tabla2.TableName:=ListaArchivo2.Items[i];

CreaTabla.Source:=Tabla1;
CreaTabla.Destination:=Tabla2;

if DirectoryExists(Directorio2.Text) then
begin
{MuestraMensaje('copiando '+ListaArchivo2.Items[i]);}
ArchivoBases.Caption:=uno.Caption;
CreaTabla.Execute;
end
else
begin
MKDir(Directorio2.Text);
{MuestraMensaje('copiando '+ListaArchivo2.Items[i]);}
ArchivoBases.Caption:=uno.Caption;
CreaTabla.Execute;
{CopyFile(Pchar(uno.Caption),PChar(dos.Caption),f);}
end;
Avance4.Progress:=Avance4.Progress+4;

end;

{Listaarchivo2.Mask:='*.mdx';

for i:=0 to ListaArchivo2.Items.Count-1 do
begin
uno.Caption:=Listaarchivo2.Directory+'\'+ListaArchivo2.Items[i];
dos.Caption:=Directorio2.Text+'\'+ListaArchivo2.Items[i];

if DirectoryExists(Directorio2.Text) then
begin
ArchivoBases.Caption:=uno.Caption;
CopyFile(Pchar(uno.Caption),PChar(dos.Caption),f);
end;

Avance4.Progress:=Avance4.Progress+2;
end; }

MuestraMensaje('Proceso de Generación de Archivos Terminado ');
Close;
end;

procedure TFormaRespaldo.BitBtn6Click(Sender: TObject);
begin
Close;
end;

procedure TFormaRespaldo.BitBtn3Click(Sender: TObject);
begin
MuestraMensaje('Proceso de Regeneración de Indices Terminado');
Close;
end;

procedure TFormaRespaldo.Timer1Timer(Sender: TObject);
begin
if Advertencia.Font.Color=clRed then
begin
Advertencia.Font.Color:=clBlue;
Advertencia2.Font.Color:=clBlue;
end
else
begin
Advertencia.Font.Color:=clRed;
Advertencia2.Font.Color:=clRed;

end;

end;



procedure TFormaRespaldo.Panel2Click(Sender: TObject);
begin
Close;
end;

procedure TFormaRespaldo.Panel1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(FormaRespaldo.Handle, WM_SYSCOMMAND, $F012, 0);
end;

procedure TFormaRespaldo.Label4MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(FormaRespaldo.Handle, WM_SYSCOMMAND, $F012, 0);
end;







end.