como puedo restaurar un archivo .sql a una base de datos en mysql por delphi

[m@kio]

Código Delphi [-]
  procedure EjecutarPrograma(rutaPrograma,
     parametros: string; esperar: boolean);
   var
    salida: DWord;
    punteroInfo: PShellExecuteInfo;
    infoEjecucion: TShellExecuteInfo;
   begin
    with infoEjecucion do
    begin
     cbSize := SizeOf(infoEjecucion);
     fMask := SEE_MASK_NOCLOSEPROCESS;
     wnd := GetActiveWindow;
     lpVerb := nil;
     lpFile := PChar(rutaPrograma);
     lpParameters := Pchar(parametros + #0);
     lpDirectory := nil;
     nShow := SW_NORMAL;
     hInstApp := 0;
    end;
    punteroInfo:= @infoEjecucion;
    ShellExecuteEx(punteroInfo);
    if esperar then
     repeat
      salida := WaitForSingleObject(infoEjecucion.hProcess, 500);
      Application.ProcessMessages;
     until (salida <> WAIT_TIMEOUT);
   end;
  
  procedure TForm1.Button1Click(Sender: TObject);
  begin
   EjecutarPrograma('osql','-b -U sa -P -i "'+ExtractFilePath(application.ExeName)+'EsthelDB.sql"',true);
  end;

Donde se manda llamar EjecutarPrograma nada mas es k pongas el comando para ejecutar querys en MySQL, pero creo que esto te puede servir.

Si tienes alguna duda, pues lo comentas y veremos k se puede hacer

[*Caro*]

Hola amigos,

Tengo un problema amigo m@kio, me sale que no esta declarado el identificador PShellExecuteInfo y todos los demas que no los encuentra, la verdad no se que libreria añadir en el uses lo busque pero no lo encuentro, siempre tengo ese problema con algunos programas de los que no identifica los tipos y no se donde encontar a que librerias corresponden.

No se sobre el api de windows supongo que es de ahi las funciones que utilizas, no entiendo casi nada sobre la funcion EjecutarPrograma, por favor si me pudieras dar una pequeña explicación si no es mucha molestia o decirme donde puedo encontrar información para entender tu programa.

Muchas Gracias de por adelantado

Que tengan buen dia amigos

[Shidalis]

Amigo Caro debes agregar ShellApi para que reconozca las funciones

[Shidalis]

Con la ayuda de todos ustedes me funciono de esta manera:

 
procedure CrearArchivoBat(rutArchivo,Contenido: string);
var
  temp: TStrings;
begin
   temp := TStringList.Create;
   try
	 temp.Add(Contenido);
	 temp.SaveToFile(rutArchivo);
   finally
	 temp.Free;
   end;
end;
 
procedure TForm_Menu.respaldarClick(Sender: TObject);
begin
   CrearArchivoBat(ExtractFilePath(Application.ExeName)+'Respaldos_SAT\RespaldoBDSAT.bat', 'c:\mysql\bin\mysqldump -uroot -d bdsat > C:\Archiv~1\Klariu~2\SAT\Respaldo_BDSAT_Vacia.sql');   //Este procedimiento contiene la ruta donde se guardara el archivo.bat y el otro parametro es lo que va a contener el archivo.bat
   shellexecute(Handle, 'open','E:\Hidalis\proyecto SAT\Respaldos_SAT\RespaldoBDSAT.bat',nil,nil,SW_SHOWNORMAL);
//   winexec('E:\Hidalis\proyecto SAT\Respaldos_SAT\RespaldoBDSAT.bat',SW_SHOWNORMAL); el winexec tambien funciona como el shellexecute, lo coloque para supieran las dos formas de hacerlo.
end;
 
procedure TForm_Menu.restaurtarClick(Sender: TObject);
begin
   CrearArchivoBat(ExtractFilePath(Application.ExeName)+'Respaldos_SAT\RestaurarBDSAT.bat','c:\mysql\bin\mysql bdsat2 < C:\Archiv~1\Klariu~2\SAT\Respaldo_BDSAT_Vacia.sql');
   winexec('E:\Hidalis\proyecto SAT\Respaldos_SAT\RestaurarBDSAT.bat',SW_SHOWNORMAL);
   //EL COMANDO SHELLEXECUTE TAMBIEN FUNCIONA EN ESTA PARTE
end;

Muchas gracias por su si no entienden el codigo pregunten por favor