송기원 wrote:

> Internet Explorer나 Netscape처럼 내가 만든 Web Browser를

> Default WebBrowser로 설정할려면 어떻게 해야 합니까..?



// 아래 소스는 기본 인터넷 윕브라우저의 파일명을 구해오는 것인데

// 역으로 HKEY_CLASSES_ROOT의 httpshellopencommand 에

// WriteString() 으로 쓰면 될것 같은데...



unit Unit1;



interface



uses

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

StdCtrls, Registry;



type

TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation

{$R *.DFM}



function GetDefBrowser: String;

var

Reg: TRegistry;

begin

Result := '';

Reg := TRegistry.Create;

try

Reg.RootKey := HKEY_CLASSES_ROOT;

if Reg.OpenKey('httpshellopencommand',FALSE) then

if Reg.ValueExists('') then // (기본값) 읽기

Result := Reg.ReadString('');

Reg.CloseKey;

finally

Reg.Free;

end;

end;



function GetBrowserPath(AValue: String): String;

var

x: Integer;

tmpStr: String;

begin

Result := 'No Default Web Browser';

if AValue = '' then

System.Exit;



for x := 2 to Length(AValue) do

begin

if AValue[x] = '"' then

Break;

tmpStr := tmpStr + AValue[x];

end;



Result := tmpStr;

end;



procedure TForm1.Button1Click(Sender: TObject);

var

tmpStr: String;

begin

tmpStr := GetDefBrowser();

tmpStr := GetBrowserPath(tmpStr); // "" 안의 문자만 발취

ShowMessage(tmpStr);

end;



end.