Sejam bem vindos ao nosso forum, onde havera hacks, utilitários tutoriais e dicas para diversos jogos, fique conosco e desfrute do melhor.

Criando Agendador de tarefas

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Criando Agendador de tarefas

Mensagem por Mr.Positive em Qua Jan 12, 2011 4:55 pm

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!

Mr.Positive
Membro
Membro

Mensagens : 40
Agradecimentos : 0
Data de inscrição : 12/01/2011
Idade : 21
Localização : Recreio
Humor : Feliz !
0 / 1000 / 100



Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: Criando Agendador de tarefas

Mensagem por Vidaama em Ter Fev 15, 2011 2:36 pm

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

Vidaama
Bronze Member
Bronze Member

Mensagens : 152
Agradecimentos : 11
Data de inscrição : 13/02/2011
Idade : 19
15 / 10015 / 100



Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: Criando Agendador de tarefas

Mensagem por PsyLove em Ter Fev 15, 2011 8:55 pm

Muito Bom , Vai Ajuda Bastante ^^

PsyLove
Silver Member
Silver Member

Mensagens : 279
Agradecimentos : 45
Data de inscrição : 07/01/2011
Localização : Não Interessa ^.^
0 / 1000 / 100



Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: Criando Agendador de tarefas

Mensagem por Conteúdo patrocinado Hoje à(s) 6:49 pm


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum