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…
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 Alterar o Cursor do Mouse para Ampulheta no Delphi
Alterando o Cursor do Mouse no Delphi Se você precisa indicar visualmente que um processo está em execução, uma boa…
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…
Como Ocultar e Mostrar o Cursor do Mouse em Delphi
Como Ocultar e Mostrar o Cursor do Mouse em Delphi Controlar a visibilidade do cursor do mouse pode ser útil…
Converte String em Pchar
Função que converte String em Pchar em Delphi function StrToPChar(const Str: string): PChar; type TRingIndex = 0..7; var Ring: array[TRingIndex]…
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 :…
Enviando arquivos para a lixeira
Enviando arquivos para a Lixeira Para excluir um arquivo, enviando-o para a Lixeira (ao invés de excluí-lo definitivamente), use a rotina…