No replies to this topic

[lKinGl]

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

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

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

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