获取操作系统的序列号.txt

来自「是一部详细介绍了DELPHI的经典著作」· 文本 代码 · 共 19 行

获取操作系统的序列号:
首先向程序的uses部分添加registry单元
编写button的单击事件:
var
 reg:TRegistry;
 result:string;
begin
 result:='';
 reg:=Tregistry.create;
 with reg do 
 begin
  rootkey:=HKEY_LOCAL_MACHINE;
  openkey('software\microsoft\windows\currentversion',false);
  //打开注册表
  result:=redstring('ProductID');
end;
reg.free;
label1.caption:=result;//显示序列号
end;