::: 델파이 Tip&Trick :::

델파이 Tip&Trick 성격에 맞지 않는 광고,비방,질문의 글은 즉시 삭제하며
내용을 복사하여 사용할 경우 반드시 이곳(http://www.howto.pe.kr)을 출처로 명시하여 주세요


Category

  김영대(2003-03-07 22:11:04, Hit : 5470, Vote : 1430
 IE 의 즐겨찾기 읽기

{
The GetIEFavourites function
called from the OnClick event
of a button returns a list of
all the favorites from your
Internet Explorer in a ListBox.
}
function GetIEFavourites
(const favpath: string):TStrings;
var
  searchrec:TSearchrec;
  str:TStrings;
  path,dir,filename:String;
  Buffer: array[0..2047] of Char;
  found:Integer;
begin
str:=TStringList.Create;
try
  path:=FavPath+'*.url';
  dir:=ExtractFilepath(path);
  found:=FindFirst(path,faAnyFile,searchrec);
  while found=0 do begin
   SetString(filename, Buffer,
           GetPrivateProfileString('InternetShortcut',
           PChar('URL'), NIL, Buffer, SizeOf(Buffer),
           PChar(dir+searchrec.Name)));
   str.Add(dir+searchrec.Name+' - '+filename);
   found:=FindNext(searchrec);
  end;
  found:=FindFirst(dir+'*.*',faAnyFile,searchrec);
  while found=0 do begin
   if ((searchrec.Attr and faDirectory) > 0)
     and (searchrec.Name[1]<>'.') then
   str.AddStrings(GetIEFavourites
                (dir+{''+}searchrec.name));
   found:=FindNext(searchrec);
  end;
  FindClose(searchrec);
finally
  Result:=str;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var pidl: PItemIDList;
    FavPath: array[0..MAX_PATH] of char;
begin
SHGetSpecialFolderLocation(Handle, CSIDL_FAVORITES, pidl);
SHGetPathFromIDList(pidl, favpath);
ListBox1.Items:=GetIEFavourites(StrPas(FavPath));
end;





691   [일반/컴포넌트] 델파이 에디트에서 '}', ']', ')' 의 시작점을 찾아주는 단축키  구창민 2003/03/14 4108 1011
690   [일반/컴포넌트] 레지스트리를 사용하는 사용자 함수 만들어 보기  구창민 2003/03/14 4590 1034
689   [데이터베이스] DB에서 자음(ㄱ,ㄴ,ㄷ....)으로 SELECT 하기  김영대 2003/03/12 5011 1170
688   [일반/컴포넌트] TreeView 노드조회  신훈재 2003/03/11 5560 1056
687   [일반/컴포넌트] 델파이안에 익스플로러 삽입  신훈재 2003/03/10 5728 1024
686   [윈도우즈 API] 화면 캡쳐하여 JPEG로 저장  신훈재 2003/03/10 5015 1005
685   [윈도우즈 API] 휴지통에 파일을 버리는 법  신훈재 2003/03/10 4383 1136
684   [윈도우즈 API] treeview 에 있는 내용을 출력하기  신훈재 2003/03/10 4390 1031
683   [윈도우즈 API] TreeView에 Data 사용법  신훈재 2003/03/10 4509 1043
682   [시스템] 시스템 고유의 ID 를 생성하려면...  김영대 2003/03/07 6307 1395
681   [일반/컴포넌트] TEdit의 Text를 left, center, right 정렬하기  김영대 2003/03/07 4483 1059
680   [윈도우즈 API] 마우스 위치의 콘트롤(콤포넌트)을 조사하기  김영대 2003/03/07 4226 1060
679   [네트웍/인터넷] Sending Raw IP Packets  김영대 2003/03/07 6151 1198
678   [네트웍/인터넷] 모든 TCP/IP interfaces 의 IP/Netmask 구하기  김영대 2003/03/07 5309 1175
677   [일반/컴포넌트] Outlook Express 설치여부 알아내기  김영대 2003/03/07 4740 1073
676   [네트웍/인터넷] HTTP 프로토콜을 이용하여 파일 다운받기  김영대 2003/03/07 6043 1581
675   [시스템] Windows 9x/ME/NT/2000/XP 버전 구별  김영대 2003/03/07 4465 1198
674   [시스템] mutex를 이용한 중복 실행 방지  김영대 2003/03/07 5793 1278
673   [네트웍/인터넷] HTTP로 파일 다운받기 (WinInet 이용)  김영대 2003/03/07 6000 1545
672   [일반/컴포넌트] TStringGrid 인쇄하기  김영대 2003/03/07 4621 1120
671   [시스템] 윈도우즈 공유폴더 리스트 얻기  김영대 2003/03/07 5103 1253
670   [네트웍/인터넷] HTTP로 파일 다운받기2 (WinInet 이용)  김영대 2003/03/07 6379 1597
  [윈도우즈 API] IE 의 즐겨찾기 읽기  김영대 2003/03/07 5470 1430
668   [일반/컴포넌트] Convert UNIX, TDateTime  김영대 2003/03/07 6003 1535
667   [윈도우즈 API] Task bar 에 나타나지 않는 프로그램 만들기  김영대 2003/03/07 5631 1435
666   [데이터베이스] how to get records from Oracle StoredProcedure  김영대 2003/03/07 4270 1102
665   [일반/컴포넌트] 메인메뉴가 팝업될때 이벤트를 탈수있는방법  김영대 2003/03/07 6348 1657
664   [일반/컴포넌트] System Menu 의 닫기 메뉴 disable 시키기  김영대 2003/03/07 3554 955
663   [일반/컴포넌트] StringGrid - multiline text  김영대 2003/03/07 5747 1345
662   [일반/컴포넌트] TStringGrid 인쇄하기  김영대 2003/03/07 5409 1343
661   [일반/컴포넌트] RichEdit 에 tab 설정하기  김영대 2003/03/07 4001 1095
660   [시스템] Hooking methods (Application.OnMessage)  김영대 2003/03/07 6612 1467
659   [시스템] WndProc for TComonent  김영대 2003/03/07 4713 1295
658   [일반/컴포넌트] IE(Internet Explorer) toolbar 에 버튼 올리기  김영대 2003/03/07 4085 1045
657   [시스템] IP address 바꾸기  김영대 2003/03/07 5325 1332
656   [시스템] CPU 이름 구하기  김영대 2003/03/07 5096 1305
655   [시스템] process 가 사용한 메모리 구하기  김영대 2003/03/07 4540 1192
654   [시스템] ROM-BIOS 정보 읽기  김영대 2003/03/07 5101 1199
653   [시스템] Shutdown/Reboot/Logoff Windows 9x/NT/Me/2000 ?  김영대 2003/03/07 4885 1306
652   [일반/컴포넌트] 커서(캐럿)가 line 위에 있는지 검사하기  김영대 2003/03/07 3957 1035

[1][2][3][4][5][6][7] 8 [9][10]..[25] [다음 10개]
 

Copyright 1999-2019 Zeroboard / skin by zero