quarta-feira, 4 de novembro de 2009

Capturar a data da bios ( basic input output system ) do computador

{Insira um objeto do tipo Button com a propriedade name definica como Button1 e um objeto do tipo Label com a propriedade definida como Label1.}

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := 'Data da Bios: '+String(PChar(Ptr($FFFF5)));
end;

Nenhum comentário:

Postar um comentário