Jump to content


Photo

Despertador en 11 pasos


  • Please log in to reply
No replies to this topic

#1 lKinGl

lKinGl

    Advanced Member

  • Moderador
  • PipPipPip
  • 118 posts
  • LocationVenezuela

Posted 21 November 2008 - 09:31 AM

Salu2 Aqui una sencilla aplicación que sirve como despertador,a mi me es muy util  :D

1) Creamos un Form
2) Ponemos dos TLabel
3) Ponemos un Timer (Este Componente está en la pestaña System).
5) En la Propiedad Caption del Label1 Ponemos Hora:
6) En la Propiedad Caption del Label2 Ponemos Captando...
7) Declaramos la Variable Ruta como String.
8) Añadimos las uses ShellApi
9) en el Timer hacemos doble clic y ponemos este código:



delphi
  1. label2.Caption:=TimeToStr(Time);
  2. if Label2.Caption='01:50:00 p.m.' then
  3.   begin
  4.   rutaArchivo := 'C:\Musica\TuCancion.mp3';
  5.   ShellExecute(Form1.Handle, 'open', PChar(rutaArchivo),nil,nil,SW_SHOWNORMAL);
  6.   end;



10) en la parte donde dice '01:50:00 p.m.' la sustituimos con ese mismo formato a la hora que usted quiera  :D
11) en rutaArchivo ponemos la ruta completa de una canción :D
  • 0




IP.Board spam blocked by CleanTalk.