Form circular
Form circular Adicione o seguinte código nas declarações da form: Private Declare Function CreateEllipticRgn Lib “gdi32” (ByVal X1 As _…
Criação de índices em tempo de execução
Pergunta: Tenho um programa que se utiliza de alguns arquivos que preciso efetuar a criação de índices em tempo de execução….
Movendo um Form sem barra de título
Movendo um Form sem barra de título Forms que não possuem barra de título (as que têm a propriedade BorderStyle setada…
Como Abreviar Nomes no Delphi
Esta função permite abreviar nomes próprios, mantendo o primeiro e o último nome completos e abreviando os intermediários. Código otimizado…
Imprime um campo memo
procedure PrintMemo; var i,col,lin:integer; begin col:=0; // posição da coluna lin:=0; // posição da linha printer.begindoc; for i := 0…
Obtendo a velocidade do processador
function CPUSpeed: Double; const DelayTime = 500; // divide o tempo em ms var TimerHi, TimerLo: DWORD; PriorityClass, Priority: Integer;…
Como Habilitar e Desabilitar a Barra de Tarefas do Windows no Delphi
Se você deseja ocultar ou mostrar a barra de tarefas do Windows em seu aplicativo Delphi, pode fazer isso facilmente…
Como Obter a Data de Modificação de um Arquivo Usando Delphi
Como Obter a Data de Modificação de um Arquivo Usando Delphi No desenvolvimento de software, é comum precisarmos obter a…
Como Alterar a Data do Sistema no Delphi
Se você precisa modificar a data e hora do sistema dentro de um programa Delphi, é possível fazer isso utilizando…
Remove acentos de uma string
Função que remove acentos de uma string em Delphi function RemoveAcentos(Str:String): String; Const ComAcento = ‘àâêôûãõáéíóúçüÀÂÊÔÛÃÕÁÉÍÓÚÇÜ’; SemAcento = ‘aaeouaoaeioucuAAEOUAOAEIOUCU’; Var…