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

[Shidalis]

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

[dec]

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;

[Shidalis]

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:

shellexecute(Handle, 'open','c:\archivo.bat',nil,nil,SW_SHOWNORMAL);

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

[dec]

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.

[Shidalis]

Muchas gracias dec por tu sigerencia

[Shidalis]

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

[pnsd_89]

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;