leollo wrote:

> 안녕하세요

> 인터넷관련 프로그램을 짤려고 하는데요.

> 익스플로러 띄우면 목록보기라는 버튼이 있는데

> 이걸 누르면 3주전부터 검색한 싸이트들을 볼수 있는잖아요,,,

>

> 이걸 델파이에서 구현하고 싶거든요...

>

> 웹사이트 검색하고 정리하는 프로그램을 만들려고 하거든요....

>

> 정말 궁금합니다...

>

> -델파이를 사랑하는 leollo

>

>



보통 윈도우즈 2000은

C:Documents and SettingsAdministratorLocal SettingsHistory



윈도우즈 98, 95는 c:windowsHistory에 위치하고 있지요..



그래서 버리..



아래의 소스를 이용하면..디렉토리안의 내용에서 디렉토리(월요일, 금요일 이런식의)가 있는지 아님 파일(www.delphi.co.kr)이 있는지를 알수가 있제용~!



procedure Tfrmmain.SearchDirectory(dir: string);

var

Searchrec: TSearchrec;

i : integer;

st: string; // 경로를 저장할 문자열

begin

st := dir + '*.*';

FindFirst(st, faanyfile, Searchrec);

i := 0;

while i = 0 do

begin

if (Searchrec.Name = '.') or (Searchrec.Name = '..') then

begin

i := FindNext(Searchrec); // 다음 디렉토리, 화일을 찾음...

Continue;

end; // if...



if DirectoryExists(dir + '' + SearchRec.Name) then //찾은게 디렉토리면..

begin

st := dir + '' + Searchrec.Name;

ListBox1.Items.Add('D-'+st );

i := FindNext(Searchrec);

Continue;

end; // if....



// 찾은게 파일일 경우.....

st := dir + '' + Searchrec.Name;

ListBox1.Items.Add('-f'+st);

i := FindNext(Searchrec);

end; //while...

end;



이런 것을 이용하면 되것네요.. 푸힝...... 조규춘 올림.