Como Adicionar Zeros à Esquerda de uma String no Delphi
Se você precisa formatar números ou strings adicionando zeros à esquerda para atingir um tamanho fixo, pode utilizar a função…
Como colocar seus programas no Painel de Controle
Como colocar seus programas no Painel de Controle em Delphi. Abaixo segue o código para seu programa no Painel de…
Como Configurar o Acesso a um Banco de Dados Paradox em Rede
Se você deseja compartilhar um banco de dados Paradox em uma rede e permitir que múltiplos usuários acessem simultaneamente, siga…
Como Verificar se uma Unidade de Disco Está Preparada no Delphi
Se você deseja verificar se uma unidade de disco (como C, D ou um pendrive) está pronta para uso no…
Função para verificar um tipo de variável
Função para verificar um tipo de variável function GetVariantType(const v: variant): string; begin case TVarData(v).vType of varEmpty: result := ‘Empty’;…
Utilizar o MessageBox com parâmetros
Utilizar o MessageBox com parâmetros var Button: Integer; Mensagem1 : Array[0..79] of Char; Mensagem2 : Array[0..79] of Char; begin StrPCopy(Mensagem1,…
Como Mudar o Papel de Parede do Windows Usando Delphi
Como Mudar o Papel de Parede do Windows Usando Delphi Alterar o papel de parede do Windows programaticamente pode ser…
Como Verificar se um Diretório Existe no Delphi
Se você precisa verificar se uma pasta está presente no sistema antes de executar alguma ação, o Delphi oferece uma…
Converte um valor Hexadecimal em Integer
Função que converte um valor Hexadecimal em Integer em Delphi function HexToInt(const HexStr: string): longint; var iNdx: integer; cTmp: Char;…
Obtendo o próximo dia útil caso a data informada caia em um fim de semana
Obtendo o próximo dia útil caso a data informada caia em um fim de semana Function ProximoDiaUtil (dData : TDateTime)…