Número de cópias para a impressão
Número de cópias para a impressão Procedure AjustaPapel(Copias:Integer); var Device : array[0..255] of char; Driver : array[0..255] of char;…
Função para impressão de linhas em um relatório
Função para impressão de linhas em um relatório procedure TPrintx_Form1.Say(Nlin,Ncol: Integer;Var LinhaAtual: Integer; Var Arquivo: Text;Texto: Variant); var X: Integer;…
Imprime um texto em outro angulo diferente de 90º
Rotina que imprime um texto em outro angulo diferente de 90º em Delphi procedure AngleTextOut(CV: TCanvas; const sText: String; x,…
Como executar programas externos ao Delphi?
Como executar programas externos ao Delphi? Se você precisar rodar um programa externo durante a execução do seu aplicativo em DELPHI, basta…
Reparar e compactar um banco de dados Access com Delphi
Reparar e compactar um banco de dados Access com Delphi Quem já trabalhou com o Ms Access, alguma vez já…
Verifica a existência de uma placa de som
Verifica a existência de uma placa de som Como verificar a existência de uma placa de som via programação Delphi…
Filtra todos os números de uma string
Filtra todos os números de uma string em Delphi Function SoNumero(Texto : String) : String; var Ind : Integer; TmpRet…
Escreve na diagonal
Procedure que escreve na diagonal em Delphi Procedure Diagonal(FName: String;Fsize, Pos, Land:Integer; Fcor:TColor;Texto: String); var lf : TLogFont; tf :…
Como Tocar um Arquivo de Som .wav no Delphi
Reproduzindo Arquivos .wav no Delphi No Delphi, você pode tocar um arquivo de som no formato .wav utilizando a função…
Verificando a conexão de Internet via Delphi
Verificando a conexão de Internet via Delphi Para verificar a conexão de Internet via Delphi, siga os seguintes procedimentos: Inclua um…