Veja se ajuda,
function TfLogin.CreateProcessSimple(cmd: string): boolean;
var
SUInfo: TStartupInfo;
ProcInfo: TProcessInformation;
begin
FillChar(SUInfo, SizeOf(SUInfo), #0);
SUInfo.cb := SizeOf(SUInfo);
SUInfo.dwFlags := STARTF_USESHOWWINDOW;
SUInfo.wShowWindow := SW_HIDE;
Result := CreateProcess(nil,
PChar(cmd),
nil,
nil,
false,
CREATE_NEW_CONSOLE or
NORMAL_PRIORITY_CLASS,
nil,
nil,
SUInfo,
ProcInfo);
if (Result) then
begin
WaitForSingleObject(ProcInfo.hProcess, INFINITE);
CloseHandle(ProcInfo.hProcess);
CloseHandle(ProcInfo.hThread);
end;
end;
Depois chamo dessa forma
CreateProcessSimple('cmd.exe /c "gbak -user SYSDBA -pas masterkey -v
localhost:C:\Sistemas\Farmacia\base\BDFARMA.FDB
c:\backup\entrada\BDFARMA.FBK"');
Moacir - GMail escreveu:
>
> Valeu Eduardo !!
>
> Mas o que quero e colocar na minha aplicação mesmo !!
>
> Vou ver o que consigo !
>
> [ ]´s
> Moacir
>
> Eduardo Silva dos Santos escreveu:
> > Você pode usar o Proprio TZQuery do Zeos.. para extrair o metadata e
> depois
> > gerar o script das tabelas...
> >
> > eu uso o MySQL Administrator, rápido, completo e seguro.
> >
> > 2008/9/1 Moacir - GMail <[EMAIL PROTECTED]
> <mailto:prismars%40gmail.com>>
> >
> >
> >> Pessoal,
> >>
> >> D7 + Zeus 6.6 + MySQL 5
> >>
> >> Gostaria de implementar o backup dos dados do Mysql na minha aplicação
> >> delphi.
> >>
> >> Existe algum componente free para isto ??
> >>
> >> [ ]´s
> >> Moacir
> >>
> >>
> >>
> >>
> >
> >
> >
> >
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
--
[]s,
Odail Della Niesi Junior
São Pedro-SP
