Código:
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!