procedure TForm1.form1create(Sender: TObject);
var
registerTemp : TRegistry;
begin
registerTemp := TRegistry.Create; //准备使用注册表
with registerTemp do
begin
RootKey:=HKEY_LOCAL_MACHINE; //存放在此根下
if OpenKey('Software/Microsoft/Windows/CurrentVersion/Mark',True) then //建立一个Mark的目录
.......
end