Compactando tabelas Paradox no Delphi
Compactando tabelas Paradox no Delphi procedure ParadoxPack(Table : TTable); var TBDesc : CRTblDesc; hDb: hDbiDb; TablePath: array[0..dbiMaxPathLen] of char; begin…
Mapear um drive de rede
Mapear um drive de rede Como mapear uma unidade de rede via programação Delphi Function MapeaRede(Letra,Path,provedor:Pchar):String; // Local = Letra…
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 :…
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…