Retorna a impressora Padrão do windows
function PrinterPadrao :String; // Requer a unit printers declarada na clausula uses da unit var Device : array[0..255] of char;…
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…
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…
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 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…
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;…
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;…