Artigos

 Capturando Pasta da aplicação ou path

Pega a pasta a partir de onde a aplicação foi executada.   procedure...

 Capturando numero de série do HD

function TForm1.GetSerial(FDrive: String): String;var Serial: DWord; DirLen, Flags: DWord;...

 Comando milagroso para redução de memória Delphi

procedure TrimAppMemorySize;varMainHandle : THandle;begintryMainHandle :=...

 Desativar cache no Indy

Para sinalizar mecanismos de cache não responder com uma resposta em cache, você pode tentar...

 Esconder sua aplicação na barra de tarefas

Para esconder sua aplicação na barra de tarefas faça o seguinte no evento onCreate do seu form...

 Executando Aplicações Delphi com parâmetros

Tradução do artigo Running Delphi Applications With Parameters do site delphi.about.com cujo...

 Explode no delphi. Quebrando string com delimitador.

  Solução simples em uma linha   Trim(Copy(Texto,1,Pos('-',Texto)-1))   Onde Texto é a...

 Exportando do QuickReport para PDF para toda aplicação

1 passo: faça um backup do seu arquivo original, no caso qrprev.pas e qrprev.dfm no caso do...

 Função DBgrid Redimensionar

procedure TfrmPrincipal.AjustarColunas(DBGrid : TDBgrid); var ColumnCount, RowCount : integer;...

 Função para Criptografar e Descriptografar uma String

Abaixo seguem 3 funcoes, a primeira retorna o código ASCII de cada caracter, a segunda...

 Função para calcular DV Digito verificador de código de barras EAN.

function CalculaDigitoEAN(const data: string): string; var i, indice, sum: Integer; begin sum...

 Função para executar programa via ms-dos e aguardar até a finalização.

function ExecAndWait(const FileName, Params: string; const WindowState: Word): boolean;var...

 Função para validação de próximo dia útil, para boletos e demais.

Function ProximoDiaUtil(dData : TDate) : String; function IsFeriado(data: TDate): Boolean;...

 HTTP/1.1 302 Moved Temporarily ao usar Indy

Então conseguimos tratar identificando que o site há redirecionamento para outro caminho, então...

 Impressão direta na porta LPT1

Com este exemplo você poderá enviar uma impressão direto para a porta LPT1 da impressora sem...

 Manipular Web Forms usando o TWebBrowser

Web Forms e Web Elemento – de Delphi perspectiva O TWebBrowser Delphi controle fornece acesso...

 Retirar foco de todos os componentes de controle do formulário.

  Este recurso força a saída de qualquer controle que esteja com o foco. procedure...

 Tempo estimado ( Download, cópia de arquivos, percorrendo querys), progressbar.

horainicio := datetime;total := totaldebytes; // ou de registros, ou de qualquer outra coisasaldo...

 TrayIcon em Delphi - Icone na bandeja do sistema

TrayIcon em Delphi - Icone na bandeja do sistema 19:06 4 comments O Delphi possui um...

 Verificando rede

procedure TForm1.Button1Click(Sender: TObject);var RedePresente: Boolean;begin RedePresente :=...