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:

Continue reading »

Informações sobre a BIOS do computador

A função a seguir retorna informações sobre a Bios em formato String. Podendo recuperar informações sobre a bios em um objeto Memo com a seguinte linha: Memo1.Lines.Text := GetBiosInfoAsText(); Já a Função funcionaria da seguinte forma: function GetBiosInfoAsText: string; var p, q: pchar; begin q := nil; p := PChar(Ptr($FE000)); repeat if q <> nil

Continue reading »

Converte um número decimal em binário

Converte um número decimal em binário function DecToBinStr(n: integer): string; var S: string; i: integer; Negative: boolean; begin if n < 0 then begin Negative := true; end; n := Abs(n); for i := 1 to SizeOf(n) * 8 do begin if n < 0 then begin S := S + ‘1’; end else begin

Continue reading »
Pages:1234567...23»