Colocando sua aplicação para iniciar com o Windows

Muitas vezes se torna necessário que nossa aplicação seja executada na inicialização do Windows, então segue abaixo um código simples, que verifica se sua aplicação já está no registro e se não estiver, coloca sua aplicação no registro do Windows, o que fará com que sua aplicação seja iniciada com o sistema.

procedure TFormPrincipal.FormCreate(Sender: TObject);
var
    Registro : TRegistry;
    Caminho : String;
begin

    Caminho := ExtractFileDir(Application.ExeName)+'\'+ExtractFileName(Application.ExeName);
    Registro := TRegistry.Create;
    Registro.rootkey := HKEY_LOCAL_MACHINE;
    Registro.Openkey('SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN',false);

    if Registro.ReadString('NOME_DA_APLICACAO') = '' then
    begin
        Registro.WriteString('NOME_DA_APLICACAO',Caminho);
        Registro.CloseKey;
    end;
end;

Básico sobre INNER JOIN

Trabalhar com Inner Join sempre foi algo que eu preciso pesquisar pois nunca decoro a sintaxe e acabo me confundindo, então estou deixando aqui a minha “cola” sobre Inner Join de forma resumida.
O Inner Join tem como objetivo aglutinar duas ou mais tabelas mediante atributos comuns que estão presentes nas mesmas, onde para realizarmos esta junção, utilizamos as chaves primárias e chaves estrangeiras.

Select <campos quer você quer ver da tabela>
      from <tabela principal no qual será feita a pesquisa>
      inner join <tabela na qual fará a verificação> on <condição>
      inner join <tabela na qual fará a verificação> on  <condição>
      inner join <tabela na qual fará a verificação> on <condição>
      where <condição na qual você não consegue fazer pelos inner join>

Acredito também que com Inner Join, o SELECT fica mais organizado e mais rápido.

Flappy Bird para download

Bom, este jogo grátis se tornou um Viral na internet, sem dúvida muito viciante, depois que o desenvolvedor retirou ele das lojas on-line, estou disponibilizando o meu instalado no meu Android.

Aproveitem!
DOWNLOAD AQUI

Lendo e escrevendo arquivos com Delphi.

Este código mostra simplificadamente como escrever e ler arquivos (.txt por exemplo) com o Delphi/Lazarus

Var
  F:TextFile;

Begin
   AssignFile(f,'c:\caminho\do\seu\arquivo.txt');
   Rewrite(f); //abre o arquivo para escrita

   Writeln(f,'Teste em uma linha'); // escreve no arquivo e desce uma linha

e   Write(f,'Teste sem descer uma linha'); // escreve no arquivo sem descer a linha
   Closefile(f); // Fecha o handle de arquivo
End;

{ Código para LER o arquivo }

var
   f:TextFile;
   linha:String;

begin
   AssignFile(f,'c:\caminho\do\seu\arquivo.txt');
   Reset(f); // Abre o arquivo para leitura;

   While not eof(f) do begin
     Readln(f,linha); // Lê do arquivo e desce uma linha. O conteúdo lido é transferido para a variável linha
     Memo1.lines.add(linha);
   End;

   Closefile(f);
end;