Obtendo o nome do usuário e a empresa do Windows
Obtendo o nome do usuário e a empresa do Windows Para Obter o nome do usuário e a empresa em…
Desconecta uma unidade mapeada via programação
Desconecta uma unidade mapeada via programação Delphi Function DesconectaRede(Letra:Pchar;Forcada:boolean):String; // Letra = Letra atribuida a unidade // Forcada = Força…
Remove um caractere especificado de uma string
Função que remove um caractere especificado de uma string em Delphi function RemoveAllChars(S: string; Ch: Char): string; var i: Integer;…
Captura a tela e salva-a em um Bitmap
Função que captura a tela e salva-a em um Bitmap em Delphi function CaptureScreenRect( ARect: TRect ): TBitmap; // Exemplo…
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…
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…