Dicas e novidades sobre Delphi
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; //…
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 Delphi Function DesconectaRede(Letra:Pchar;Forcada:boolean):String; // Letra = Letra atribuida a unidade // Forcada = Força…
Função que remove um caractere especificado de uma string em Delphi function RemoveAllChars(S: string; Ch: Char): string; var i: Integer;…
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 No desenvolvimento de software, especialmente quando se trata de segurança…
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 Como mapear uma unidade de rede via programação Delphi Function MapeaRede(Letra,Path,provedor:Pchar):String; // Local = Letra…
Função que remove os zeros a frente de um valor em Delphi function RemoveZeros(S: string): string; var I, J :…
function PrinterPadrao :String; // Requer a unit printers declarada na clausula uses da unit var Device : array[0..255] of char;…