【delphi开源代码栏目提醒】：网学会员,鉴于大家对delphi开源代码十分关注，论文会员在此为大家搜集整理了“Frm_setpage.pas”一文，供大家参考学习!

    unit Frm_setpage;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls,Registry, XPMan;
    
    type
      TFrmStarPage = class(TForm)
        GBxStarPage: TGroupBox;
        EdStarPage: TEdit;
        LblStarPage: TLabel;
        LblOldPage: TLabel;
        EdOldpage: TEdit;
        BtnSet: TButton;
        BtnClose: TButton;
        XPManifest1: TXPManifest;
        procedure FormShow(Sender: TObject);
        procedure BtnSetClick(Sender: TObject);
        procedure BtnCloseClick(Sender: TObject);
      private
        function ShowStartPage:string;
        procedure SetStartPage(Const Page:string);
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      FrmStarPage: TFrmStarPage;
    
    implementation
    
    {$R *.dfm}
    
    function TFrmStarPage.ShowStartPage:string;
    var
      reg:TRegistry;
    begin
      reg:=TRegistry.Create;
      reg.RootKey:=HKEY_CURRENT_USER;
      reg.OpenKey('SoftWare\Microsoft\Internet Explorer\Main',true);
      result:=reg.ReadString('Start Page');
      Reg.CloseKey;
      reg.Free;
    end;
    
    procedure TFrmStarPage.SetStartPage(Const Page:string);
    var
      reg:TRegistry;
    begin
      reg:=TRegistry.Create;
      reg.RootKey:=HKEY_CURRENT_USER;
      reg.OpenKey('SoftWare\Microsoft\Internet Explorer\Main',true);
      reg.WriteString('Start Page',page);
      Reg.CloseKey;
      reg.Free;
    end;
    
    procedure TFrmStarPage.FormShow(Sender: TObject);
    begin
     EdOldPage.Text:=ShowStartPage;
    end;
    
    procedure TFrmStarPage.BtnSetClick(Sender: TObject);
    begin
      if trim(EDStarPage.Text) = '' then
      begin
        SetStartPage('about:blank');
      end
      else
        SetStartPage(EDStarPage.Text);
    end;
    
    procedure TFrmStarPage.BtnCloseClick(Sender: TObject);
    begin
      Close;
    end;
    
    end.