Criando Agendador de tarefas

Adicione no formulario

2Timers
obs: Timer2 (Como enabled false).
1MascEdit
2buttons
1dit
4Label

++Uses+++

ShellAPI, winprocs;

deve ser colocada por causa do icone no system tray

abaixo das Uses

// código para o icone no system tray

const
WM_ICONTRAY = WM_USER + 1;

----------------------------------------------------------------------
adicone na Private:

private
{ Private declarations }
TrayIconData: TNotifyIconData;
// código para o icone no system tray
public
{ Public declarations }
// código para o icone no system tray
procedure TrayMessage(var Msg: TMessage); message WM_ICONTRAY;

end;

--------------------------------------------------------------------
adicone a procedure abaixo de Implementation

procedure TForm1.TrayMessage(var Msg: TMessage);
begin
case Msg.lParam of
WM_LBUTTONDOWN:
begin
Show;
end;
end;
end;

-----------------------------------------------------------------------------
Botões E TIMERS


No onClick do button 2 adicione

Código:

procedure TForm1.Button2Click(Sender: TObject);
begin
  Application.Terminate;
end;

No onFormClose adicione

Código:


procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action := caNone;
  Hide;
end;

No onform Create adicione

// o código abaixo trata do ícone no system tray
with TrayIconData do
begin
cbSize := SizeOf(TrayIconData);
Wnd := Handle;
uID := 0;
uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
uCallbackMessage := WM_ICONTRAY;
hIcon := Application.Icon.Handle;
StrPCopy(szTip, Application.Title);
end;
Shell_NotifyIcon(NIM_ADD, @TrayIconData);

// a linha abaixo esconde a aplicação da barra de tarefas.
SetWindowLong(Application.Handle,GWL_EXSTYLE, WS_EX_TOOLWINDOW);
end;

no OnDestroy adicione

// o código abaixo trata do ícone no system tray
Shell_NotifyIcon(NIM_DELETE, @TrayIconData);

no evento On timer do timer 1 adicione

label5.caption:= timetostr(time);

no onclick do button 1 adicione

timer2.Enabled:=true;

e no evento on timer do timer 2 adicione:

if (strtotime(maskedit2.Text)< time ) then
begin
winexec(pchar(edit1.Text),SW_NORMAL);
timer2.Enabled:=false;
end;

Créditos
~Tio Lee!

amigo...centralize seu tópico e dê mais cores a ele

Muito Bom , Vai Ajuda Bastante ^^