procedure TRegObj.SetSerial;
begin
//取得主板的序列号
FSerial := String(Pchar(Ptr($FEC71)));
end; 为什么出错?
begin
//取得主板的序列号
FSerial := String(Pchar(Ptr($FEC71)));
end; 为什么出错?
解决方案 »
- 快疯了----项目转成繁体后的乱码问题!!!
- idHttp.get(URL, MyStream)遇到302转向,能不能避免转向
- 请问各位高手,有谁学过SPSS这个软件的!
- 广州的DELPHI程序员看过来~~~
- 怎样体现多态性?(有非常简单的原码)
- 关于字符串处理的问题。
- 高分相求教,excel列合并后,写入数据后不能上下自动串列显示?
- 80分想问一个安装制作的问题,使用过Wise的朋友请进!!!
- 司南 <[email protected]> 请来
- 在哪里可以下载CSDN论坛的问题—解答集?
- 询问:用的是query关联的数据库,那如何控制dbgrid有的列数据可以修改,有的列不要以修改的问题?
- 小问题:英文字母大、小写之间的转换用什么函数??
CoDelphi.com
添加一个Tbutton和一个Tmemo组件到窗体并写如下代码到按钮的OnClick事件:
with Memo1.Lines do
begin
Add('MainBoardBiosName:'+^I+string(Pchar(Ptr($FE061))));
Add('MainBoardBiosCopyRight:'+^I+string(Pchar(Ptr($FE091))));
Add('MainBoardBiosDate:'+^I+string(Pchar(Ptr($FFFF5))));
Add('MainBoardBiosSerialNo:'+^I+string(Pchar(Ptr($FEC71))));
end; 以上代码在Win9X上运行通过。