Cita:
Empezado por Caral
Hola
Bien, me alegro que lo hicieras solo.
Ahora: El archivo lo envias al directorio c:/, por eso indique que lo colocaras en el mismo directorio que el exe, osea el programa, asi:
Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject); begin memo1.lines.add('shutdown /s /t '+edit1.text); memo1.lines.SaveToFile(ExtractFilePath(Application.ExeName)+'apagar.bat'); WinExec(PChar(ExtractFilePath(Application.ExeName)+'apagar.bat'),SW_SHOWNORMAL); memo1.lines.clear; end; procedure TForm1.Button2Click(Sender: TObject); begin memo1.lines.add('shutdown -a'); memo1.Lines.SaveToFile(ExtractFilePath(Application.ExeName)+'apagar.bat'); WinExec(PChar(ExtractFilePath(Application.ExeName)+'apagar.bat'),SW_SHOWNORMAL); memo1.lines.clear; end; procedure TForm1.Button3Click(Sender: TObject); begin DeleteFile(ExtractFilePath(Application.ExeName)+'apagar.bat'); Showmessage('borrado'); end;
Saludos |
AAAA, muy bueno eso! así no tengo que poner ruta, excelente! gracias!