Odair,
Obrigado, vou ver como isto funcionaria com o Mysql !
[ ]´s
Moacir
Odail Della Niesi Junior escreveu:
> 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]
>>
>>
>>
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
