fbpx

Remove um diretório procedure Deltree( cPath: string ); var search: TSearchRec; nFiles: integer; begin nFiles:=FindFirst( cPath + ‘*.*’, faAnyFile, search ); while nFiles=0 do begin…

Leia mais

Procedure que escreve na diagonal em Delphi Procedure Diagonal(FName: String;Fsize, Pos, Land:Integer; Fcor:TColor;Texto: String); var lf : TLogFont; tf : TFont; begin with Form1.Canvas do…

Leia mais

Como executar programas externos ao Delphi? Se você precisar rodar um programa externo durante a execução do seu aplicativo em DELPHI, basta usar a seguinte linha no…

Leia mais

Como inverter os botões do mouse Para inverter os botões do mouse pelo Delphi, basta adicionar à cláusula Uses, Shellapi. inserir a função abaixo em…

Leia mais

Contador de Letras via Delphi Esta função efetua a contagem de letras de uma string fornecida como parâmetro: function WordsCount( s : string ) :…

Leia mais

10/107