안녕하세요. 최용일입니다.



여러가지 방법이 있는데 그중 윈도우즈 헬퍼 라이브러리를 이용한 방법을



소개합니다. 이거 찾느니라고 혼났습니다. 아래의 방법은 IE에 즐겨찾기를



등록하는 방법처럼 등록합니다.



uses ..., ActiveX, SHDocVw; // uses절에 ActiveX, SHDocVw 두 개의 유닛을 추가



// 즐겨찾기에 추가하는 메소드

// URL - 즐겨찾기에 추가할 URL 예) 'http://www.delphi.co.kr/'

// Title - 즐겨찾기에 추가할 메뉴이름 예) '한국 델파이 개발자 홈페이지'

procedure TForm1.AddFavorite(const URL: WideString; var Title: OleVariant);

var

pShellUIHelper: IShellUIHelper;

Hr: HRESULT;

begin

Hr := CoCreateInstance(CLASS_ShellUIHelper, nil, CLSCTX_INPROC_SERVER,

IID_IShellUIHelper, pShellUIHelper);



// 윈도우 헬퍼 라이브러리 인스턴스를 성공적으로 얻었다면...

if Succeeded(Hr) then

pShellUIHelper.AddFavorite(URL, Title); // 즐겨찾기 추가창띄우기

end;



procedure TForm1.Button1Click(Sender: TObject);

var

URL: WideString; // 즐겨찾기 URL

Title: OleVariant; // 즐겨찾기 메뉴 아이템

begin

URL := 'http://www.delphi.co.kr/';

Title := '한국 델파이 개발자';

AddFavorite(URL, Title);

end;



^^ 항상 즐코하세요.



이문환 wrote:

> 웹브라우저를 간단하게 짜고 있는데, 도움말을 봐도 잘 모르겠습니다.

> 웹브라우저에서 즐겨찾기 추가 방법을 알려주세요.

> 즐겨찾기를 추가하고 어떻게 읽어 들이는지 잘 모르겠습니다.

> 아시는 분은 부탁드립니다....................................

최용일님 감사합니다.

저도 여러군데를 돌아 다니다가 소스를 보고 만들었습니다.

헌데 즐겨찾기창은 뜨는데 이걸 추가하면 메뉴에 등록을 시켜주고

메뉴에 즐겨찾기 내용들을 집어넣어 주어야하는데 코딩하려니

실력이 부족하더군요...

이 곳에 있는 소스를 약간 변형시켜서 하려고 해도 안됩니다.

좋은 방법이 없을까요....

다른 델파이 프로그래머님들에게도 추천을 부탁드립니다.

요즘 답변이 올라왔나 안왔나 맨날 접속합니다.......

그럼 행복하시길......

무슨 말씀인지 영감을 못잡겠네요.



^^



[재질문]즐겨찾기의 메뉴만들기.... wrote:

> 최용일님 감사합니다.

> 저도 여러군데를 돌아 다니다가 소스를 보고 만들었습니다.

> 헌데 즐겨찾기창은 뜨는데 이걸 추가하면 메뉴에 등록을 시켜주고

> 메뉴에 즐겨찾기 내용들을 집어넣어 주어야하는데 코딩하려니

> 실력이 부족하더군요...

> 이 곳에 있는 소스를 약간 변형시켜서 하려고 해도 안됩니다.

> 좋은 방법이 없을까요....

> 다른 델파이 프로그래머님들에게도 추천을 부탁드립니다.

> 요즘 답변이 올라왔나 안왔나 맨날 접속합니다.......

> 그럼 행복하시길......

>