delphi修改ie打印页边距

 设置ie打印页边距需要修改注册列表  所以首先要有一个读写注册列表的方法

function WriteRegUsr(keyStr, tStr,vStr:string):boolean;
var
  reg: TRegistry;
begin
  result:=false;
  reg := TRegistry.Create();
  try
    reg.RootKey := HKEY_CURRENT_USER;
    if not reg.OpenKey(keyStr, true) then exit;
    reg.WriteString(tStr,vStr);
    result:=true;
  except
    result:=false;
  end;
  reg.CloseKey;
  reg.Free;
end;

function ReadRegUsr(keyStr, tStr:string):string;
var
  reg: TRegistry;
begin
  result:='';
  reg := TRegistry.Create();
  try
    reg.RootKey := HKEY_CURRENT_USER;
    if not reg.OpenKey(keyStr, true) then exit;
    result:=reg.ReadString(tStr);
  except
    result:='';
  end;
  reg.CloseKey;
  reg.Free;
end;

能够读写注册列表后 就只需要修改注册列表里  找到ie打印页边距的 注册列表地方

procedure ieRegPageMargin();
var
  ieRegMargin:Double;
begin