Remove os zeros a frente de um valor
Função que remove os zeros a frente de um valor em Delphi function RemoveZeros(S: string): string; var I, J :…
Promove um estado de espera no aplicativo
Promove um estado de espera no aplicativo procedure Delay(iMSecs: Integer); var lnTickCount: LongInt; begin lnTickCount := GetTickCount; repeat Application.ProcessMessages; until…
Como habilitar e desabilitar as teclas ctrl+alt+del ?
Como habilitar e desabilitar as teclas ctrl+alt+del ? // desabilita procedure TForm1.Button1Click(Sender: TObject); var numero: integer; begin SystemParametersInfo(97,Word(true),@numero,0); end; //…
Número de cores aceitas pelo monitor
Número de cores aceitas pelo monitor O código abaixo apresenta a implementação de uma função que retorna o número de…
Informações do Ambiente
Informações do Ambiente Como obter informações do ambiente via Programação Delphi 1a. Parte: A função. function API_GetEnvironmentVariables : String; var…
Altera a data e a hora de um arquivo especificado
Função que altera a data e a hora de um arquivo especificado em Delphi function AlterFileTime(const filename: String; const…
Chama arquivos BMP de uma Dll
//coloque as imagens em um arquivo Res e compile a biblioteca com a diretiva {$R icones.res} //para chamar as imagens…
Como Obter o Número de Série do HD Usando Delphi
Como Obter o Número de Série do HD Usando Delphi No desenvolvimento de software, especialmente quando se trata de segurança…
Como Enviar E-mail no Delphi com o Componente NMSMTP
Aqui está uma versão otimizada da sua publicação, com mais clareza, organização e SEO aprimorado: Como Enviar E-mail no Delphi…
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;…