GetComputer.txt
上传用户:szruida
上传日期:2007-06-01
资源大小:6518k
文件大小:0k
源码类别:

Delphi控件源码

开发平台:

Delphi

  1. string ls_key,ls_return
  2. ls_key = 'HEKY_LOCAL_MACHINESystemCurrentControlSetControlComputerNameComputerName'
  3. RegistryGet(ls_key,'ComputerName',RegString!,ls_return)
  4.            //从注册表中取出指定间值,RegString!表示以空字符结束的字符串
  5. Return ls_return