Botões de Desligar e Reiniciar o Windows

Para facilitar na hora de Desligar ou Reiniciar o Windows, basta criar um botão para atalho. Abaixo será descrito passo a passo:

Para Desligar:
Primeiro clique com o botão direito do mouse, e entre em Novo, Atalho.

Aparecerá esta aba.

Aqui adicione o seguinte caminho shutdown.exe -s -t 00. O t(time) é o tempo extra para desligar em segundos, ou seja se você quiser que o computador desligue em uma hora é so dexar shutdown.exe -s -t 3600. Mas como aqui eu quero que ele desligue imediatamente quando o botão for pressionado vou deixar shutdown.exe -s -t 00.

Nessa próxima aba, de um nome ao atalho.

Depois de criado o atalho, entre em Propriedades.

Em Propriedades clique em alterar o ícone, para adicionar um a sua escolha.

Para Reiniciar:
Siga os mesmos passos anteriores, só altere o caminho para shutdown.exe -r -t 00.

Ficará mais ou menos assim o resultado final:

Formatação de computadores

  A formatação é um processo bem simples, não é nada de outro mundo como algumas pessoas pensam, basta apenas tomar alguns cuidados, veja abaixo:

*Escolher um sistema operacional, há vários no mercado, por exemplo Windows 7, Windows 8, Windows 8.1, etc. Há também alguns sistemas operacionais gratuitos baseados em Linux como Linux Mint, Ubuntu, Fedora, Debian, Mandriva, e muitos outros, basta apenas acessar o site da distribuição Linux escolhida e baixar.

*Verificar se há driver disponível para o sistema operacional escolhido. Basta acessar o site do fabricante do Computador ou fabricante do componente se for o caso.

*Fazer backup de informações que não queira perder durante a formatação, como por exemplo fotos, vídeos, músicas e etc.

  Escolhido o sistema operacional e feito os passos acima, basta entrar na bios da placa mãe. Para fazer isso basta pressionar na maioria dos casos a tecla Delete ou F2 logo após ligar o computador antes de iniciar o sistema operacional, muitas vezes aparece escrito o momento para precionar o botão para acessar a bios.
  Há vários modelos de bios, desde as mais simples até as mais sofisticadas, veja alguns exemplos abaixo:

  Abaixo uma bios comum, encontrada na maioria dos computadores:

Abaixo bios de uma placa mãe ASUS:

  Procure a sessão boot na bios, e mude a prioridade para a unidade de CD ou DVD.
  Depois é só salvar as mudanças e reiniciar o computador.

  Irá iniciar diretamente pelo CD do sistema operacional após reiniciar.
  Depois disso é só seguir as instruções de instalação do sistema operacional. Onde irá pedir para escolher o disco rígido para instalação do sistema operacional. Escolhendo o disco é só formatar a unidade e prosseguir com a instalação.
  Como cada sistema operacional tem suas particularidades, vou demonstrar a instalação do Windows 7.

  Depois de iniciado com o CD, escolhido o disco e formatado a unidade que irá receber o sistema operacional, irá começar a tranferir os arquivos do sistama do CD para o disco. Terminada a primeira parte irá reiniciar o computador automaticamente, aí é só entrar na bios de novo e trocar a prioridade para iniciar com o disco rígido. Feito isso irá para essa tela:

  Não vou colocar todas as fotos passo a passo, mas depois disso irá para essa:

  E depois irá terminar a instalação e concluir as configurações:

  Depois é só dar um nome ao computador, e terminar as configurações pessoais, que já irá para a tela que todos conhecem:

  Feito tudo isso é só instalar os drivers do computador e pronto. Agora para segurança é só instalar um antivírus e também se desejar um firewall(recomendo). Possui alguns desses softwares de segurança gratuitos, segue alguns links abaixo:

Antivírus gratuitos:
Baidu Antivírus
http://antivirus.baidu.com/pt/

Avast
https://www.avast.com/pt-br/index

Firewall gratuito:
Comodo Firewall
https://www.comodo.com/home/internet-security/firewall.php

  Abaixo link de algumas distribuições Linux:

Linux Mint
http://www.linuxmint.com/oldreleases.php

Ubuntu
http://ubuntu-br.org/

Alterar tela de logon do Windows 7

Aqui vai uma dica pra quem deseja alterar a tela de logon do windows 7, é muito fácil de fazer, vamos lá:

- Clique no menu iniciar, digite regedit no campo pesquisar e pressione enter para abrir o Editor de Registros.

- Navegue até a seguinte chave:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\Background

- Dentro desta chave crie um novo valor DWORD chamado OEMBackground e altere seu valor de 0 para 1.

- A imagem não deve ter mais de 245 kb(1024*768) e deve ser adicionada na seguinte pasta:
C:\Windows\System32\oobe\info\backgrounds

Se alguém não tiver um Editor de imagens para reduzir o tamanho da imagem, pode usar o Photoshop Online - http://www.photoshoponline.com.br/editor/ 

Legenda PT-BR Crysis 3 e Battlefield 3

Estou adicionando os links para download das traduções das legendas para Português do Brasil de Crysis 3 e Battlefield 3, segue link:

Crysis 3:  http://www.4shared.com/file/kbYl8n2H/Legenda_Crysis3_PT-BR-v100Trib.html

Battlefield 3:  http://www.4shared.com/file/vJjx0d5_/LegendaPT-BR_Battlefield3.html

Ativando "Modo Deus(God Mode)" no Windows 7

Você conhece o "Modo Deus" (God Mode) do Windows? 

O "Modo Deus" está disponível no Windows Vista, Windows 7, Windows 8 e no Windows 8.1.

O que é o "God Mode"?

O "God Mode" é uma espécie de centro de configurações oculto que agrupa em um mesmo lugar vários acessos diretos a opções de configurações do Windows, dependendo do computador.

Dentro desse centro de configurações, você pode controlar qualquer característica do seu PC. A lista de configurações que se agrupam neste local é grande. Se pode ser configurado, estará aí.

É muito fácil ativar. Vamos lá:

1. Crie uma nova pasta. Pode ser onde você quiser.

2. Nomeie a pasta assim:
ModoDeus.{ED7BA470-8E54-465E-825C-99712043E01C}

3. Automaticamente, o ícone da pasta mudará, mostrando o ícone do Painel de Controle e o nome ModoDeus :

4. Entre na nova pasta e explore todas as opções que existem. Você pode mudar a visualização dos ícones e organizá-los como bem entender. Foi escolhido Ícones Pequenos.

Calculadora criada com Lazarus

Estou postando um projeto que fiz com Lazarus, é uma calculadora. Para quem tiver interesse, segue abaixo seu código fonte:

Código fonte calculadora

unit unitCalculator;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  Menus, ComCtrls, ExtCtrls, unitHistorico;

type

  { TCalculadoraLe }

  TCalculadoraLe = class(TForm)
    Button1: TButton;
    Button0: TButton;
    ButtonSalvar: TButton;
    ButtonIgual: TButton;
    ButtonVirg: TButton;
    ButtonLimpar: TButton;
    ButtonMult: TButton;
    ButtonDiv: TButton;
    ButtonAdd: TButton;
    ButtonSub: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    MainMenu1: TMainMenu;
    MenuItemArquivo: TMenuItem;
    BotaoSair: TMenuItem;
    MenuItemAjuda: TMenuItem;
    BotaoAjudaAutor: TMenuItem;
    MenuItemHist: TMenuItem;
    StatusBar1: TStatusBar;
    TimerHora: TTimer;
    Visor: TLabel;
    procedure BotaoAjudaAutorClick(Sender: TObject);
    procedure BotaoSairClick(Sender: TObject);
    procedure Button0Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure ButtonAddClick(Sender: TObject);
    procedure ButtonDivClick(Sender: TObject);
    procedure ButtonIgualClick(Sender: TObject);
    procedure ButtonLimparClick(Sender: TObject);
    procedure ButtonMultClick(Sender: TObject);
    procedure ButtonSalvarClick(Sender: TObject);
    procedure ButtonSubClick(Sender: TObject);
    procedure ButtonVirgClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure MenuItemHistClick(Sender: TObject);
    procedure TimerHoraTimer(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  CalculadoraLe: TCalculadoraLe;
  add:real;
  subt:real;
  mult:real;
  divis:real;
  igual:real;
  igual2:real;
  add1:boolean;
  subt1:boolean;
  mult1:boolean;
  divis1:boolean;
  hist:Integer;


implementation

{$R *.lfm}

{ TCalculadoraLe }

procedure TCalculadoraLe.Button1Click(Sender: TObject);
begin
   Visor.Caption:=Visor.Caption+'1';
   end;

procedure TCalculadoraLe.Button0Click(Sender: TObject);
begin
  Visor.Caption:=Visor.Caption+'0';
end;

procedure TCalculadoraLe.BotaoSairClick(Sender: TObject);
begin
Close;
end;

procedure TCalculadoraLe.BotaoAjudaAutorClick(Sender: TObject);
begin
   ShowMessage('Criado por: Alessandro Roberto , Data: 10/01/2013');
end;

procedure TCalculadoraLe.Button2Click(Sender: TObject);
begin
  Visor.Caption:=Visor.Caption+'2';
end;

procedure TCalculadoraLe.Button3Click(Sender: TObject);
begin
  Visor.Caption:=Visor.Caption+'3';
end;

procedure TCalculadoraLe.Button4Click(Sender: TObject);
begin
  Visor.Caption:=Visor.Caption+'4';
end;

procedure TCalculadoraLe.Button5Click(Sender: TObject);
begin
  Visor.Caption:=Visor.Caption+'5';
end;

procedure TCalculadoraLe.Button6Click(Sender: TObject);
begin
  Visor.Caption:=Visor.Caption+'6';
end;

procedure TCalculadoraLe.Button7Click(Sender: TObject);
begin
  Visor.Caption:=Visor.Caption+'7';
end;

procedure TCalculadoraLe.Button8Click(Sender: TObject);
begin
  Visor.Caption:=Visor.Caption+'8';
end;

procedure TCalculadoraLe.Button9Click(Sender: TObject);
begin
  Visor.Caption:=Visor.Caption+'9';
end;

procedure TCalculadoraLe.ButtonAddClick(Sender: TObject);
begin
  add:=StrToFloat(Visor.Caption);
  add1:=true;
  visor.Caption:='';
  hist:=1;
end;

procedure TCalculadoraLe.ButtonDivClick(Sender: TObject);
begin
  divis:=StrToFloat(Visor.Caption);
  divis1:=true;
  Visor.Caption:='';
  hist:=4;
end;

procedure TCalculadoraLe.ButtonIgualClick(Sender: TObject);
begin
  igual:=StrToFloat(Visor.Caption);

   if add1=true then
  igual2:=add+igual
  ;
   Visor.Caption:=FloatToStr(igual2);
   add1:=false;

   if subt1=true then
   igual2:=subt-igual
   ;
   Visor.Caption:=FloatToStr(igual2);
   subt1:=false;


   if mult1=true then
   igual2:=mult*igual
   ;
   Visor.Caption:=FloatToStr(igual2);
   mult1:=false;

   if divis1=true then
   igual2:=divis/igual
   ;
   Visor.Caption:=FloatToStr(igual2);
   divis1:=false;

end;

procedure TCalculadoraLe.ButtonLimparClick(Sender: TObject);
begin
  Visor.Caption:='';
  add:=0;
  subt:=0;
  mult:=0;
  divis:=0;
  igual2:=0;
  igual:=0;
  add1:=false;
  subt1:=false;
  mult1:=false;
  divis1:=false;
end;

procedure TCalculadoraLe.ButtonMultClick(Sender: TObject);
begin
  mult:=StrToFloat(Visor.Caption);
  mult1:=true;
  Visor.Caption:='';
  hist:=3;
end;

procedure TCalculadoraLe.ButtonSalvarClick(Sender: TObject);
begin
  if ((add1=false) and (hist=1)) then
  Form1.Historico.Lines.Append(DateToStr(date) + '  -  ' + TimeToStr(Time) + '  >>  ' +
   FloatToStr(add) + ' + ' + FloatToStr(igual) + ' = ' + FloatToStr(igual2));

  if ((subt1=false) and (hist=2)) then
  Form1.Historico.Lines.Append(DateToStr(date) + '  -  ' + TimeToStr(Time) + '  >>  ' +
   FloatToStr(subt) + ' - ' + FloatToStr(igual) + ' = ' + FloatToStr(igual2));

  if ((divis1=false)and (hist=4)) then
  Form1.Historico.Lines.Append(DateToStr(date) + '  -  ' + TimeToStr(Time) + '  >>  ' +
   FloatToStr(divis) + ' / ' + FloatToStr(igual) + ' = ' + FloatToStr(igual2));

  if ((mult1=false) and (hist=3)) then
  Form1.Historico.Lines.Append(DateToStr(date) + '  -  ' + TimeToStr(Time) + '  >>  ' +
   FloatToStr(mult) + ' x ' + FloatToStr(igual) + ' = ' + FloatToStr(igual2));
end;

procedure TCalculadoraLe.ButtonSubClick(Sender: TObject);
begin
  subt:=StrToFloat(Visor.Caption);
  subt1:=true;
  Visor.Caption:='';
  hist:=2;
end;

procedure TCalculadoraLe.ButtonVirgClick(Sender: TObject);
begin
  Visor.Caption:=Visor.Caption+',';
end;

procedure TCalculadoraLe.FormCloseQuery(Sender: TObject; var CanClose: boolean);
begin
   if MessageDlg('Deseja Realmente SAIR ?', mtConfirmation,
   mbOKCancel,0)= mrCancel then CanClose:=False;
end;

procedure TCalculadoraLe.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
13  :ButtonIgual.Click;  // Tecla Enter
27  :BotaoSair.Click;    // Tecla Esc
46  :ButtonLimpar.Click; // Tecla Delete
96  :Button0.Click ;     // Tecla 0
97  :Button1.Click ;     // Tecla 1
98  :Button2.Click ;     // Tecla 2
99  :Button3.Click ;     // Tecla 3
100 :Button4.Click ;     // Tecla 4
101 :Button5.Click ;     // Tecla 5
102 :Button6.Click ;     // Tecla 6
103 :Button7.Click ;     // Tecla 7
104 :Button8.Click ;     // Tecla 8
105 :Button9.Click ;     // Tecla 9
106 :ButtonMult.Click ;  // Tecla "*"
107 :ButtonAdd.Click ;   // Tecla "+"
109 :ButtonSub.Click ;   // Tecla "-"
111 :ButtonDiv.Click ;   // Tecla "/"
110 :ButtonVirg.Click;   // Tecla Virgula

else
 ShowMessage('Tecla Não Válida')
end;
end;

procedure TCalculadoraLe.MenuItemHistClick(Sender: TObject);
begin
  form1.Show;
end;

procedure TCalculadoraLe.TimerHoraTimer(Sender: TObject);
begin
  StatusBar1.Panels[0].Text:=TimeToStr(Time);
end;

end.              

Código fonte Histórico da Calculadora     

unit unitHistorico;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Historico: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
  form1.close;
end;

end.

Link para download do código fonte mais executável : http://www.4shared.com/folder/8yX8qmk2/Projetos_Lazarus.html
 
Até a próxima.....