Função para impressão de linhas em um relatório

Função para impressão de linhas em um relatório procedure TPrintx_Form1.Say(Nlin,Ncol: Integer;Var LinhaAtual: Integer; Var Arquivo: Text;Texto: Variant); var X: Integer; begin Write(Arquivo,#13); If Nlin<>LinhaAtual then begin for X :=LinhaAtual to (Nlin-1) do begin WriteLn(Arquivo,”); LinhaAtual:=LinhaAtual+1; end; end; If Ncol>0 then begin For X:=0 to Ncol do begin Write(Arquivo,’ ‘); end; end; If LinhaAtual >=63 then

Continuar lendo »

Obtendo a velocidade do processador

function CPUSpeed: Double; const DelayTime = 500; // divide o tempo em ms var TimerHi, TimerLo: DWORD; PriorityClass, Priority: Integer; begin PriorityClass := GetPriorityClass(GetCurrentProcess); Priority := GetThreadPriority(GetCurrentThread); SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS); SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL); Sleep(10); asm dw 310Fh // rdtsc mov TimerLo, eax mov TimerHi, edx end; Sleep(DelayTime); asm dw 310Fh // rdtsc sub eax, TimerLo sbb edx,

Continuar lendo »

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 que Windows esta registrado, siga os procedimentos abaixo: 1-Insira Registry em Uses: Uses Registry; 2-Insira no Form, 2 Edit’s e um Botão. Programe o evento click do botão com o seguinte código abaixo: Procedure TForm1.Button1Click(Sender:

Continuar lendo »
Pages:«1234567...22»