fbpx

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; // habilita procedure TForm1.Button2Click(Sender: TObject); var…

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

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; Port : array[0..255] of char;…

Leia mais

procedure PrintMemo; var i,col,lin:integer; begin col:=0; // posição da coluna lin:=0; // posição da linha printer.begindoc; for i := 0 to memo1.Lines.Count-1 do begin printer.Canvas.TextOut(col,lin,…

Leia mais

5/103