Como puedo crear un archivo con extension .bat en desde dephi
 

Hola a Todos
Mi pregunta esta vez es Como puedo crear un archivo con extension .bat en desde dephi, ya necesito hacer un restore a una base de datos en mysql

Hola,

Podrías hacerlo de varias formas, puesto que, en esencia, un archivo BAT no es más que un archivo, ¡con la extensión BAT! ;)

Me decantaría, así, a bote pronto, por usar la clase "TStrings", pues cuenta con métodos "LoadFromFile" y "SaveToFile", entre otros, que nos ponen las cosas más o menos sencillas:

Código Delphi [-]
 procedure CrearArchivoBat(rutArchivo: string);
 var
   temp: TStrings;
 begin
   temp := TStringList.Create;
   try
     temp.Add('@echo off');
     temp.Add('cls');
     temp.Add('continúa tú...')
     temp.SaveToFile(rutArchivo);
   finally
     temp.Free;
   end;
 end;
 
 procedure TForm1.Button1Click(Sender: TObject);
 begin
   CrearArchivoBat('C:\archivo.bat');
 end;

Muchas gracia la creacion del archivo .bat me funciono; pero aun necesito hacer el restore des delphi; ya hice ya la parte del respaldo por delphi pero no consigo que comando usar para el restore y como utilizarlo.
El comando para restaurar es:

entonces no se que comando shell utilizo para restaurar la base de datos. Por Favor si pueden ayudar se los agradezco.

Hola,

No sé yo si en este Hilo encontrarás respuesta a la cuestión que planteas, pero, en todo caso, creo que tendrías más posibilidades de respuesta (y sería bien para el Foro y los que nos damos y se den cita en el mismo) si plantearas diferentes preguntas en diferentes Hilos. ;)

Muchas gracias dec por tu sigerencia

Dec por tu sugerencia voy a colocar como me funciono lo que estaba haciendo todo esta en este hilo

buenas compañeros de batalla, de esta manera yo he generado mi archivo.bat inspirandome en el post de DEC(grande!) es lo mismo pero con un codigo similar

Código Delphi [-]
procedure tFControlArchivosClearing.CrearArchivoBat(rutArchivo, txt: string );  
var    TF: TextFile;  
begin     
  if FileExists('C:\archivo.bat') then       
    Deletefile('C:\archivo.bat');     
  AssignFile(TF, 'C:\archivo.bat');     
  Rewrite( TF );    
  try       
    WriteLn( TF, 'cd C:\blablabla\');       
    WriteLn( TF,'blabla '+ parametro);       
    WriteLn( TF,'pause');     
  finally      
    CloseFile( TF );    
  end;  
end;