Cita:
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