unit Unit1;

百度

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls,Registry,ShellAPI;

 

type

TForm1 = class(TForm)

lbl1: TLabel;

edt1: TEdit;

lbl2: TLabel;

edt2: TEdit;

btn1: TButton;

btn2: TButton;

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.FormCreate(Sender: TObject);

 

var

reg: TRegistry;

s: String;

 

begin

reg := TRegistry.Create;

reg.RootKey := HKEY_CLASSES_ROOT;

reg.OpenKey(‘HTTP\Shell\open\command‘,False);

s := reg.ReadString(‘‘);//读取注册表的值 如："D:\Program Files\Maxthon3\Bin\Maxthon.exe" "%1"

s := Copy(s,Pos(‘"‘,s)+1,Length(s));//提取路径信息

s := Copy(s,1,Pos(‘"‘,s)-1);

ShellExecute(handle, ‘open‘,PChar(s), PChar(‘http://www.ccqgn.com‘), nil,sw_shownormal);//指定打开网页

end;

 

end.

 

 

文库