70.000.000 de MegaBytes!!!!

24 milhões de músicas em mp3 ou 70 mil filmes. Esse computador caseiro armazena tudo isso em seus 60 HDs
totalizando 70 terabytes (70.000.000 MegaBytes) numa cabine de madeira que usa 40 coolers para evitar fritar tudo isso!

Confira as imagens!

Deu certo congelar HD!

Olá pessoal!

uma colega aqui do trampo estava desesperada! Todos os documentos, planilhas, apresentações, cursos etc e tal estavam no HD do seu PC e adivinhem o HD pifou! não funcionava mesmo nem como slave, aliás ele impedia até a máquina na qual ele estava como slave iniciar, o dito cujo é um Western Digital de 80GB

Programando a API do Windows

Como desabilitar o Task Manager

Se você não quer que sua aplicação seja matada pelo gerenciador de tarefas do Windows você pode desabilitá-la pelo registro.

l1 procedure TFRegistro.button1Click(Sender: TObject);
l2 var
l3 reg: TRegistry;
l4 begin
l5 reg := TRegistry.Create;
l6 reg.RootKey := HKEY_CURRENT_USER;
l7 try
l8 if reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System', True) then
l9 reg.WriteInteger('DisableTaskMgr', 1);
l10 finally
l11 reg.CloseKey;
l12 reg.Free;
l13 end;
l14 end;

Até a próxima!

Novo desafio - Ruby

Hoje li uma matéria da Info sobre o Google summer of code e mostrou alguns participantes de outras temporadas do evento, dai pensei, porque não aprender uma nova linguagem como por exemplo o Ruby, os caras ficam falanda poxa Ruby é fácil, Ruby é simples, Ruby é isso Ruby é aquilo, então meti a mão na massa e encontrei este site, acredito que vale a pena conferir o que é Ruby e descobrir se realmente é todo esse balaio mesmo. http://www.ruby-lang.org/pt/documentacao/ruby-em-vinte-minutos/

até mais!

Exibindo dados do banco em um MessageBox

Para Exibindo dados do banco além da mensagem num MessageBox um campo de um determinada tabela utilize o PChar.

Exemplo:

if Application.MessageBox(PChar('Confima a REATIVAÇÃO do Contrato '+ cdsContratoID_CONTRATO.AsString+' ?'),'Reativando Contrato', MB_YESNO + MB_ICONQUESTION) = ID_YES then
begin
...
end;

Para complementar dê uma olhada nesse site http://www.delphibasics.co.uk/RTL.asp?Name=PChar

Milagres da computação gráfica!

Tô até agora impressionado com a perfeição de Transformers 2, cara o que é aquilo!? Muito show, como os caras são criativos, os efeitos de transformação dos bichos, nossa! e a história do filme é outro show!

http://www.youtube.com/watch?v=zz902h6XxR0

Pra quem gosta de ficção o filme é um prato cheio! recomendo!