delphi 关于注册表的问题

Question

如何用delphi 来获取注册表的键值呢，
如何读写注册表呢，
如何用硬盘的序列好来加密软件呢

Answer 1

Uses 
   Registry;
.................Var
  TmpReg:=TRegistry.Create;
  TmpReg.RootKey:=HKEY_LOCAL_MACHINE;
  IF TmpReg.OPenKey('Key值') Then
      ...........................
  具体什么操作，看情况而定；如不太清楚，查看帮助好了；

Answer 2

获得硬盘序列号可以用这个函数：
Procedure GetHardDiskNum；
var SerialNum : pdword; a, b : dword; Buffer : array [0..255] of char; 
begin 
  if GetVolumeInformation('c:\', Buffer, SizeOf(Buffer), SerialNum, a, b, nil, 0) then Label1.Caption := IntToStr(SerialNum^); 
end; 然后，使用加密算法，对这个唯一的序列号，进行加密，就可以了，加密算法网上找，太多了。