안녕 하세요?

BacTeria 박종민 입니다.

아래의 코드는 "즐겨찾기" 폴더에 추가하는 방법에 대한 코드입니다.

참고하세요~

이만... 박종민

-----------------------------------------------------------------------------

uses ..., ActiveX, SHDocVw;  // 추가한다.

  :
  :
procedure AddFavorite(const URL: WideString; var Title: OleVariant);
var
  pShellUIHelper: IShellUIHelper; // ShellUIHelper 인터페이스
  HR: HRESULT;
begin
  // ShellUIHelper 인터페이스 생성
  HR := CoCreateInstance(CLASS_SHELLUIHELPER, nil, CLSCTX_INPROC_SERVER,
                         IID_ISHELLUIHELPER, pShellUIHelper);

  // IShellUIHelper 인터페이스를 성공적으로 얻었다면...
  if Succeeded(HR) then
    pShellUIHelper.AddFavorite(URL, Title); // 즐겨찾기 추가창 띄우기
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  URL: WideString;
  Title: OleVariant;
begin
  URL := 'http://www.delphi.co.kr/';
  Title := '한국 델파이 개발자 홈페이지';
  AddFavorite(URL, Title);
end;