Programa como .bat

[emii89]

Creo que ya tengo la idea... necesito crear un txt a través de un memo. Luego, guardarlo como .bat y ejecutarlo. Después borrarlo. Será muy dificil?

[[Caral]]

Hola
La respuesta corta: NO, NO.
Saludos
PD: Como me gustaria ver ese codigo, me mata la curiosidad.

[emii89]

Lo estoy consiguiendo!

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.lines.add('shutdown /s /t '+edit1.text);
memo1.lines.SaveToFile('c:\apagar.bat');
memo1.lines.clear;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
memo1.lines.add('shutdown -a');
memo1.Lines.SaveToFile('c:\apagar.bat');
memo1.lines.clear;
end;

Necesito poder ejecutar y eliminar el .bat desde el código... podré? :P

[[Caral]]

Hola
Yo creo que vas muy bien, claro que podras.
Ahora, una sugerencia, coloca la direccion del archivo .bat en el mismo exe (Application.ExeName).
Saludos

[emii89]

Empezado por Caral

Hola
Yo creo que vas muy bien, claro que podras.
Ahora, una sugerencia, coloca la direccion del archivo .bat en el mismo exe (Application.ExeName).
Saludos

No entendí eso... a qué te referís? :O

[emii89]

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.lines.add('shutdown /s /t '+edit1.text);
memo1.lines.SaveToFile('c:\apagar.bat');
WinExec(PChar('c:\apagar.bat'),SW_SHOWNORMAL);
memo1.lines.clear;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
memo1.lines.add('shutdown -a');
memo1.Lines.SaveToFile('c:\apagar.bat');
WinExec(PChar('c:\apagar.bat'),SW_SHOWNORMAL);
memo1.lines.clear;
end;

Ahora solo me falta eliminar el .bat y empezar a pulir bien el programita :P

[emii89]

procedure TForm1.Button1Click(Sender: TObject);
begin
  memo1.lines.add('shutdown /s /t '+edit1.text);
  memo1.lines.SaveToFile('c:\apagar.bat');
  WinExec(PChar('c:\apagar.bat'),SW_SHOWNORMAL);
  sleep(250);
  DeleteFile(PChar('c:\apagar.bat'));
  memo1.lines.clear;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  memo1.lines.add('shutdown -a');
  memo1.Lines.SaveToFile('c:\apagar.bat');
  WinExec(PChar('c:\apagar.bat'),SW_SHOWNORMAL);
  sleep(250);
  DeleteFile(PChar('c:\apagar.bat'));
  memo1.lines.clear;
end;

Bat eliminado!

En un ratito posteo el programa listo!