Como Criar Uma Rotina De Backup/restore Do Sistema?

[Livio Neiva]

Procedimentos a serem executados:

Crie uma opção no menu principal: Ferramentas -> Backup/Restore.

Crie a tela a seguir com o Name = FrmBkpRst, contendo os objetos:

RadioGroup (Standard) – use as propriedades Caption e Items

DriveComboBox e DirectoryListBox (Win 3.1), 02 SpeedButton

Animate (Win 32) – Visible = False, CommonAvi = aviCopyFile

Digite os comandos abaixo no evento OnClick do botão Confirma:

procedure TFrmBkpRst.spdConfirmarClick(Sender: TObject);

begin

if MessageDlg('Antes de confirmar a operação, feche o banco de dados' +#13 +#13 +

'Deseja efetuar' + RadioGroup1.Items[RadioGroup1.ItemIndex]+'?',mtConfirmation,

[mbYes,mbNo],0)=mrNo then

Abort;

Try

Animate1.Visible := True;

Animate1.Active := True;

if RadioGroup1.ItemIndex =0 then

Begin

FrmMenuPrin.Compactar;

Copia(ExtractFilePath(Application.ExeName)+'\Banco.mdb',DirectoryListBox1.Directory);

end;

if RadioGroup1.ItemIndex =1 then

begin

Dm.Conexao.Connected := False;

Copia(DirectoryListBox1.Directory+'\Banco.mdb',ExtractFilePath(Application.ExeName));

dm.Conexao.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;DataSource='

+ExtractFilePath(Application.ExeName)+'\Banco.mdb;Persist Security info=False;JetOLEDB:Database Passoword=Senha';

Dm.Conexao.Connected := True;

end;

Finally

Animate1.Visible := False;

Animate1.Active:=False;

MessageDlg('Operação concluída.',mtinformation,[mbOK],0);

end;

end;

Faça referência à unit UFunProGeral na cláusula Uses da unit da tela FrmBkpRst:

Crie uma procedure denominada Copia, na unit UFunProGeral, conforme mostrada a seguir:

Procedure Copia(Origem,Destino:String);

Var

FileOpInfo : TSHFileOpStruct; ERRO-> menssag( [Error] UfunProGeral.pas(37): Undeclared identifier: 'TSHFileOpStruct' )

Begin

With FileOpInfo Do

Begin

Wnd := Application.Handle;

wFunc := FO_COPY;

pFrom := Pchar(Origem+#0+#0);

pTo := Pchar(Destino);

fFlags := FOF_WANTMAPPINGHANDLE;

END;

SHFileOperation (FileOpInfo);

ShFreeNameMappings(GlobalHandle(FileOpInfo.hNameMappings));

end;

FileOpInfo : TSHFileOpStruct; ERRO

menssagem de erro quando eu compilo!!!

( [Error] UfunProGeral.pas(37): Undeclared identifier: 'TSHFileOpStruct' )

Agradeço a atenção de todos

[Churc]

Opa

não tenho certeza, se ninguém responder amanhã no serviço eu corrijo,

mas tente colocar em uses ShellAPI

abraçox

[Livio Neiva]

Opa

não tenho certeza, se ninguém responder amanhã no serviço eu corrijo,

mas tente colocar em uses ShellAPI

abraçox

ô grande amigo churc, o problema resolveu sim, mais apareceu outro!!!

O programa compila, mas o comando Ferramentas -> Backup/Restore

fica inativo.

Fico sem possibilidade de testalo, para saber se realmente ele faz o backup ou restore

do sistema como faço para resolver isso.

Agradeço muito sua atenção!!!

[Thamires Baroni]

Estou fazendo esse mesmo sistema.

Mas o meu está dando erro na linha

Copia(ExtractFilePath(Application.ExeName)+'\Banco.mdb', DirectoryListBox1.Directory);

Está dando erro no ExtractFilePath

alguém tem alguma sugestão?

[Jhonas]

Estou fazendo esse mesmo sistema.

Mas o meu está dando erro na linha

Copia(ExtractFilePath(Application.ExeName)+'\Banco.mdb', DirectoryListBox1.Directory);

Está dando erro no ExtractFilePath

Copia(ExtractFilePath(Application.ExeName)+'\Banco.mdb', DirectoryListBox1.Directory);

É isso mesmo ??? voce inverteu o comando

Copia(DirectoryListBox1.Directory+'\Banco.mdb',ExtractFilePath(Application.ExeName));

OBS: Está dando erro no ExtractFilePath porque voce não colocou Uses ShellApi

abraço