Central do Cliente > Base de Conhecimento > Delphi


Capturando numero de série do HD
function TForm1.GetSerial(FDrive: String): String;var Serial: DWord; DirLen, Flags: DWord; DLabel: Array[0..11] of Char;begin try...

Capturando Pasta da aplicação ou path
Pega a pasta a partir de onde a aplicação foi executada.   procedure TForm1.Button1Click(Sender: TObject); var PathAplicacao: String; begin PathAplicacao :=...

Comando milagroso para redução de memória Delphi
procedure TrimAppMemorySize;varMainHandle : THandle;begintryMainHandle := OpenProcess(PROCESS_ALL_ACCESS, false, GetCurrentProcessID) ;SetProcessWorkingSetSize(MainHandle,...

Desativar cache no Indy
Para sinalizar mecanismos de cache não responder com uma resposta em cache, você pode tentar incluindo o Cache-Control: no-store cabeçalho, ou para compatibilidade com HTTP...

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 principal.     procedure TMainForm.FormCreate(Sender: TObject) ; begin...

Executando Aplicações Delphi com parâmetros
Tradução do artigo Running Delphi Applications With Parameters do site delphi.about.com cujo autor é Zarko Gajic. Como passar parâmetros por linha de comando para sua...

Explode no delphi. Quebrando string com delimitador.
  Solução simples em uma linha   Trim(Copy(Texto,1,Pos('-',Texto)-1))   Onde Texto é a sua string.   Function Explode(Texto, Separador : String) : TStrings; var...

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 delphi7 fica emC:\Arquivos de programas\Borland\Delphi7\quickrpt (Essa cópia é só...

Função DBgrid Redimensionar
procedure TfrmPrincipal.AjustarColunas(DBGrid : TDBgrid); var ColumnCount, RowCount : integer; DataSetTemp : TDataSet; DataSourceTemp : TDataSource; contCol, contRow :...

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 := 0; indice := Length(data); for i := 1 to Length(data) do begin if...

Função para Criptografar e Descriptografar uma String
Abaixo seguem 3 funcoes, a primeira retorna o código ASCII de cada caracter, a segunda Criptografa uma string e a terceira descriptografa. Voce pode sempre mudar a chave como...

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 SUInfo: TStartupInfo; ProcInfo: TProcessInformation; CmdLine: string;begin {...

Função para validação de próximo dia útil, para boletos e demais.
Function ProximoDiaUtil(dData : TDate) : String; function IsFeriado(data: TDate): Boolean; function CalculaPascoa(AAno: Word): TDateTime; var R1, R2, R3, R4, R5 : Longint;...

HTTP/1.1 302 Moved Temporarily ao usar Indy
Ento conseguimos tratar identificando que o site h redirecionamento para outro caminho, ento marcamos a opo HandleRedirects := true (permitir redirecionamento) e resolveu...

Impresso direta na porta LPT1
Com este exemplo voc poder enviar uma impresso direto para a porta LPT1 da impressora sem utilizar o Gerenciador de Impresso do Windows. procedure...

Manipular Web Forms usando o TWebBrowser
Web Forms e Web Elemento de Delphi perspectiva O TWebBrowser Delphi controle fornece acesso funcionalidade do navegador Web de seus aplicativos Delphi para permitir que...

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 TForm1.Button1Click(Sender: TObject);begin ActiveControl := nil;end;

Tempo estimado ( Download, cópia de arquivos, percorrendo querys), progressbar.
horainicio := datetime;total := totaldebytes; // ou de registros, ou de qualquer outra coisasaldo := total;processado := 0;tempoestimado := 0;tempodecorrido := 0;while...

TrayIcon em Delphi - Icone na bandeja do sistema
TrayIcon em Delphi - Icone na bandeja do sistema 19:06 4 comments O Delphi possui um componente chamado TTrayIcon, que está na paleta Additional.Esse componente...

Verificando rede
procedure TForm1.Button1Click(Sender: TObject);var RedePresente: Boolean;begin RedePresente := (GetSystemMetrics(SM_NETWORK) <> 0); if RedePresente then ShowMessage('A...