Foros Club Delphi
Página 1 de 2 1 2 >
Mostrar 40 mensajes desde este tema en una página

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Programa como .bat (https://www.clubdelphi.com/foros/showthread.php?t=73629)

emii89 05-05-2011 22:30:48
Programa como .bat
 
Hola chicos! estoy tratando de crear un programita para programar el apagado de mi pc.

El código en el .bat es sencillo... simplemente es una línea:

shutdown /s /t (segundos)

y para cancelarlo es shutdown -a

Ahora, el programita que quiero lograr es poder escribir en un edit, en cuanto tiempo quiero que se apague la pc, y otro botón para cancelarlo...

Cómo debo hacer??

Me conviene crearlo desde un txt y grabarlo como .bat?? puedo eliminar un bat después de creado?

Caral 05-05-2011 22:41:03
Hola
Muchas preguntas, poco codigo.
En mi caso, como no se de esto, me parece que seria interesante ver como haces todo eso.
Si copias y pegas el codigo aqui, aprenderemos un monton.
Saludos

emii89 05-05-2011 22:42:52
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 05-05-2011 22:44:51
Hola
La respuesta corta: NO, NO.
Saludos
PD: Como me gustaria ver ese codigo, me mata la curiosidad.:D:p

emii89 05-05-2011 22:53:00
Lo estoy consiguiendo!

Cita:
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 05-05-2011 22:58:36
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 05-05-2011 23:11:57
Cita:
Empezado por Caral (Mensaje 399099)
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 05-05-2011 23:14:54
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

emii89 05-05-2011 23:19:03
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!

Caral 05-05-2011 23:36:16
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

emii89 05-05-2011 23:43:24
Cita:
Empezado por Caral (Mensaje 399105)
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!

escafandra 06-05-2011 00:43:49
Tambien podrías plantearte hacerlo por código, sin usar archivos bat.

Mira esto.

Saludos.

emii89 06-05-2011 01:33:56
Bien, está interesante... de todos modos quiero terminar el que estoy haciendo, pero evidentemente estoy fallando en algo.
Me tira un eConvertError... en la línea que voy a señalar... me ayudan a descubrir el error?.
Código:
implementation

{$R *.dfm}

Function TForm1.TransformaTiempo:Real;
Begin
  TransformaTiempo:=(StrToInt(EdHora.Text)*3600)+(StrToInt(EdMin.Text)*60)+(StrToInt(EdSeg.Text));
End;

procedure TForm1.BotApagarClick(Sender: TObject);
begin
  MemoBat.lines.add('shutdown /s /t '+FloatToStr(TransformaTiempo));
  MemoBat.lines.SaveToFile(ExtractFilePath(Application.ExeName)+'Apagar.Bat');
  WinExec(PChar(ExtractFilePath(Application.ExeName)+'Apagar.Bat'),SW_SHOWNORMAL);
  Sleep(250);
  DeleteFile(PChar('c:\apagar.bat'));
  MemoBat.lines.clear;
end;

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

end.

Caral 06-05-2011 01:57:15
Hola
Creo que quieres que la funcion te calcule los segundos en horas, minutos, segundos.
Es asi?.
Saludos

emii89 06-05-2011 02:10:23
Cita:
Empezado por Caral (Mensaje 399117)
Hola
Creo que quieres que la funcion te calcule los segundos en horas, minutos, segundos.
Es asi?.
Saludos
Exacto!! no se por que me tira el error ese.

Caral 06-05-2011 02:20:42
Hola
INT = Integer.
REAL = Float.
Es simple, la funcion debe devolver un valor REAL (float), sin envargo contiene o trasforma los edits en INTEGER.
Analiza esto:
Código Delphi [-]

Function TForm1.TransformaTiempo:Real;
var h,m,s : Real;
Begin
  h:= StrToint(EdHora.Text);
  m:= StrToint(EdMin.Text);
  s:= StrToint(EdSeg.Text);
  TransformaTiempo:= h*3600 + m*60 + s;
End;

procedure TForm1.Button1Click(Sender: TObject);
begin
 MemoBat.lines.add('shutdown /s /t '+FloatToStr(TransformaTiempo));
 MemoBat.lines.SaveToFile(ExtractFilePath(Application.ExeName)+'apagar.bat');
 WinExec(PChar(ExtractFilePath(Application.ExeName)+'apagar.bat'),SW_SHOWNORMAL);
 MemoBat.lines.clear;
end;
Se generan tres variable REAL y se les pasa el valor de los edit, a la hora de hacer el calculo es mucho mas sencillo hacerlo ya que no se tiene que hacer ninguna transformacion.
Espero que lo asimiles, si no pregunta.
Saludos

Caral 06-05-2011 02:37:42
Hola
Ahora, ya que no preguntas, pregunto yo:
Si hago esto:
Código Delphi [-]
Function TForm1.TransformaTiempo:Real;
var h,m,s : Real;
Begin
  h:= StrToint(EdHora.Text);
  m:= StrToint(EdMin.Text);
  s:= StrToint(EdSeg.Text);
  TransformaTiempo:= h*3600 + m*60 + s;
End;
Por que no hago esto ?:
Código Delphi [-]
Function TForm1.TransformaTiempo:Real;
var h,m,s : Integer;
Begin
  h:= StrToint(EdHora.Text);
  m:= StrToint(EdMin.Text);
  s:= StrToint(EdSeg.Text);
  TransformaTiempo:= h*3600 + m*60 + s;
End;
Varia en algo?.
Funcionan las dos?.
Por que?.

Saludos

emii89 06-05-2011 02:52:24
Cita:
Empezado por Caral (Mensaje 399121)
Hola
Ahora, ya que no preguntas, pregunto yo:
Si hago esto:
Código Delphi [-]Function TForm1.TransformaTiempo:Real; var h,m,s : Real; Begin h:= StrToint(EdHora.Text); m:= StrToint(EdMin.Text); s:= StrToint(EdSeg.Text); TransformaTiempo:= h*3600 + m*60 + s; End;

Por que no hago esto ?:
Código Delphi [-]Function TForm1.TransformaTiempo:Real; var h,m,s : Integer; Begin h:= StrToint(EdHora.Text); m:= StrToint(EdMin.Text); s:= StrToint(EdSeg.Text); TransformaTiempo:= h*3600 + m*60 + s; End;

Varia en algo?.
Funcionan las dos?.
Por que?.

Saludos
Solo cambiaste la definición de las variables?
Ninguna de las 2 la logro hacer funcionar, me sigue tirando el error en la misma línea de código!.

Como funcionar, deberían funcionar las 2, siempre y cuando los números que ingreses sean enteros.

Caral 06-05-2011 02:57:06
Hola
Las dos funcionan, la diferencia esta en que la primera DA la posivilidad de colocar decimales, cosa que no es correcta, en este caso.
El error es de conversion, no deberia darlo en ninguno de los dos casos.
Saludos

emii89 06-05-2011 03:00:19
Cita:
Empezado por Caral (Mensaje 399125)
Hola
Las dos funcionan, la diferencia esta en que la primera DA la posivilidad de colocar decimales, cosa que no es correcta, en este caso.
El error es de conversion, no deberia darlo en ninguno de los dos casos.
Saludos
No debería, pero lo da... de hecho mirá lo que hice, para cambiar un poco:

Código:
Function TForm1.TransformaTiempo:Integer;
Var
  H,M,S:Integer;
Begin
  H:=StrToInt(EdHora.Text);
  M:=StrToInt(EdMin.Text);
  S:=StrToInt(EdSeg.Text);
  TransformaTiempo:=H*3600+M*60+S;
End;

procedure TForm1.BotApagarClick(Sender: TObject);
Var
  Tiempo:Integer;
begin
  Tiempo:=IntToStr(TransformaTiempo);
  MemoBat.lines.add('shutdown /s /t '+Tiempo);
  MemoBat.lines.SaveToFile(ExtractFilePath(Application.ExeName)+'Apagar.Bat');
  WinExec(PChar(ExtractFilePath(Application.ExeName)+'Apagar.Bat'),SW_SHOWNORMAL);
  Sleep(250);
  DeleteFile(PChar(ExtractFilePath(Application.ExeName)+'Apagar.Bat'));
  MemoBat.lines.clear;
end;

procedure TForm1.BotCancelarClick(Sender: TObject);
begin
  MemoBat.lines.add('shutdown -a');
  MemoBat.Lines.SaveToFile('c:\apagar.bat');
  WinExec(PChar('c:\apagar.bat'),SW_SHOWNORMAL);
  Sleep(600);
  DeleteFile(PChar(ExtractFilePath(Application.ExeName)+'Apagar.Bat'));
  MemoBat.lines.clear;
end;

procedure TForm1.Cerrar1Click(Sender: TObject);
begin
 Close;
end;
La línea que está en verde me dice que: [Error] Unit1.pas(57): Incompatible types: 'Integer' and 'String'


La franja horaria es GMT +2. Ahora son las 18:09:05.
Página 1 de 2 1 2 >
Mostrar 40 mensajes desde este tema en una página

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi