como fazer backup/restore no delphi usando winexec...

Delphi

03/04/2014

Eu uso delphi7 e firebird 2.5

coloquei um botão onde pretendo fazer um backup, primeiramente e depois se conseguir esse feito pensarei no restore.

Tentei assim (alias tentei com uma query, mas não dei conta, ai descobri winExec).

procedure TFrmCadIEQ.Local1Click(Sender: TObject);
begin
WinExec(PCHAR(''C:\PROGRAM FILES\FIREBIRD\FIREBIRD_2_5\BIN\GBAK.EXE -G -B -V -Z C:\PROJETOS\IGREJA_DELPHI\DADOS\DB_IEQ.FDB C:\PROJETOS\IGREJA_DELPHI\DADOS\DB_IEQ.FDK -user SYSDBA -pas masrtekey''), SW_SHOWNORMAL);

end;

Depois tentei

procedure TFrmCadIEQ.Local1Click(Sender: TObject);
begin
WinExec(''CMD C:\PROGRAM FILES\FIREBIRD\FIREBIRD_2_5\BIN\GBAK.EXE -G -B -V -Z C:\PROJETOS\IGREJA_DELPHI\DADOS\DB_IEQ.FDB C:\PROJETOS\IGREJA_DELPHI\DADOS\DB_IEQ.FDK -user SYSDBA -pas masrtekey''), SW_SHOWNORMAL);

end;

Mas também não deu certo ele apenas abre o CMD.

Alguma dica? obs: sou iniciante em delphi. Não tenho curso, entretanto já fiz 12 programas completos (simples mas que funcionam).
Agora estou entrando em áreas mais complicadas.

Fabiano Pereira

Fabiano Pereira

Curtidas 0
POSTAR