Bios bilgilerini almak

[DotCom]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
with Memo1.Lines do
begin
Add('Tip:'+^I+String(Pchar(Ptr($FE061))));
Add('CopyRight:'+^I+String(Pchar(Ptr($FE091))));
Add('Bios Tarihi:'+^I+String(Pchar(Ptr($FFFF5))));
Add('Diger Bilgiler:'+^I+String(Pchar(Ptr($FEC71))));
end;
end;