6 de fevereiro de 2019

Windows Update Blocker

Utilize o Windows update blocker para desabilitar o Windows update definitivamente.

Este programa é válido para o Windows 10.

Faça o download do arquivo no link abaixo, execute;

Selecione a opção "Disable Service" para desabilitar o update ou "Enable Service" para ativar novamente as atualizações.

Clique em "Apply now" para aplicar as mudanças.

 Clique aqui para Download

#windowsupdate #windows update #desabilitar #desabilitarwindowsupdate 

Kaspersky Free, o bam-bam-bam gratuito !

 
O antivírus queridinho do publico na versão GRATUITA !
Isso mesmo, baixe agora a versão gratuita de um dos mais famosos antivírus do mercado.

Ajuda a proteger o computador de vírus;
Bloqueia aplicativos e sites perigosos;
Avisa sobre sites suspeitos;

AJUDA A MANTER O COMPUTADOR SEGURO

O Kaspersky Free usa tecnologias de segurança premiadas e recebe dados em tempo real sobre novas ameaças automaticamente para ajudar a proteger seu computador de diversos perigos digitais.

FORNECE UM ANTIVÍRUS GRATUITO E MUITO MAIS

Com proteção contra ameaças e um antivírus básico, o Kaspersky Free defende seu computador de vírus comuns, arquivos infectados, aplicativos perigosos e sites suspeitos.

PROTEGE SEM REDUZIR SEU DESEMPENHO

Nossa segurança foi projetada para proteger seu computador sem causar transtornos. E, como o Kaspersky Free recebe atualizações automaticamente, você pode ter a certeza de que o antivírus estará sempre atualizado.

 Download
#antivirus #antivírus #kaspersky #kaspersky free #kaspersky gratuito #gratuito #melhorantivirus
#antiviruskasper #kasperfree




29 de janeiro de 2019

Dicas Delphi/Lazarus: Exportando dados para o Excel #2

Neste vídeo vou mostrar como exportar dados DINAMICAMENTE de uma tabela para Excel ou qualquer programa que suporte arquivo de texto delimitado por "ponto-e-virgula". Funciona com qualquer banco de dados.




Código Fonte:

procedure TfrmPrincipal.btnExportaClick(Sender: TObject); var sLista : TStringList; nCampo : integer; cLinha : string; begin sLista := TStringList.Create; cLinha := ''; for nCampo:=0 to qrTabela.fields.Count-1 do cLinha:=cLinha+qrTabela.Fields[nCampo].DisplayLabel+';'; sLista.Add(cLinha); qrTabela.First; while not qrTabela.EOF do begin cLinha := ''; for nCampo:=0 to qrTabela.fields.Count-1 do cLinha:=cLinha+qrTabela.Fields[nCampo].DisplayText+';'; sLista.Add(cLinha); qrTabela.Next; end; if FileExists('c:\tmp\teste.csv') then DeleteFile('c:\tmp\teste.csv'); sLista.SaveToFile('c:\tmp\teste.csv'); end;




Simples e objetivo. Conto com seu Like !


#exportardados #exportarregistros #exportartabela #delphiparaexcel #lazarusparaexcel #mysqlparaexcel #mariadbparaexcel #sqliteparaexcel #firebirdparaexcel #postgresqlparaexcel

Dicas Delphi/Lazarus: Exportando dados para o Excel #1

Neste vídeo vou mostrar como exportar dados de uma tabela para Excel ou qualquer programa que suporte arquivo de texto delimitado por "ponto-e-virgula". Funciona com qualquer banco de dados.
Simples e objetivo. Conto com seu Like !


Código Fonte: 

procedure TfrmPRODUTO.btnExportaClick(Sender: TObject);
var
  sLista : TStringList;
  cLinha : string;
begin
  sLista := TStringList.Create;
  TabGlobal.TbPRODUTO.First;
  while not TabGlobal.TbPRODUTO.eof do
    begin
      cLinha:=TabGlobal.TbPRODUTOCodProd.DisplayText+';'+
                    TabGlobal.TbPRODUTODescProd.DisplayText+';'+
                    TabGlobal.TbPRODUTOVendaProd.DisplayText;
      sLista.Add(cLinha);
      TabGlobal.TbPRODUTO.Next;
    end;
  if FileExists('c:\tmp\produto.csv') then DeleteFile('c:\tmp\produto.csv');
     sLista.SaveToFile('c:\tmp\produto.csv');
  ShowMessage('Produtos exportados !');

end;






#exportardados #exportarregistros #exportartabela #delphiparaexcel #lazarusparaexcel #mysqlparaexcel #mariadbparaexcel #sqliteparaexcel #firebirdparaexcel #postgresqlparaexcel

20 de janeiro de 2019

Programando - App Inventor vs Delphi/Lazarus: if/else - Parte 03


Alguns inscritos do canal pedem para postar vídeos sobre programação Android. Como não programo em Android (Java) decidi postar um vídeo sobre o App Inventor. Vamos criar um aplicativo básico Android para você conhecer a ferramenta.




Windows Update Blocker

Utilize o Windows update blocker para desabilitar o Windows update definitivamente. Este programa é válido para o Windows 10. Faça o d...