copretns wrote:

> 안녕하세요...영대님...

> 영대님의 세미나 잘 보았습니다...

>

> 저어~ 질문이 있거든요...

> Active FTP에서 리스트 박스에 파일명만

> 추출하는 예제 좀 부탁드릴까 해서요...전 초보라서 --;



아래 소스를 수정해서 사용해 보세요

unit Unit1;



interface



uses

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

StdCtrls;



type

TForm1 = class(TForm)

ListBox1: TListBox;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

procedure ListFiles(D,Name,SearchName : String);

end;



var

Form1: TForm1;



implementation

{$R *.DFM}



procedure TForm1.ListFiles(D, Name, SearchName: String);

var

SR: TSearchRec;

begin

if D[Length(D)] <> '' then

D := D + '';



if FindFirst(D+Name, faAnyFile, SR) = 0 then

repeat

if (SR.Attr <> faDirectory) and (SR.Name[1] <> '.') then

if AnsiUpperCase(SR.Name) = AnsiUpperCase(SearchName) then

ListBox1.Items.Add(D+SR.Name); {파일을 찾으면 label1.Caption에 디렉토리를 표시}

Until (FindNext(SR)<>0);

FindClose(SR);



if FindFirst(D+'*.*', faDirectory, SR) = 0 then

begin

repeat

if ((Sr.Attr and faDirectory) = faDirectory) and

(SR.Name[1]<>'.')

then

ListFiles(D+SR.Name+'', Name, SearchName); // 재귀적 호출을 한다

until (FindNext(SR) <> 0);

end;

FindClose(SR);

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

// c: 부터 하위 디렉토리에서 delphi32.exe 파일을 찾는다

ListFiles('c:','*.*','project1.exe');

end;



end.







> 글구, 세미나 2번째 내용 중 영대님께서 만들지 않은

> 어떤 프로그램을 응용하셨다고 하셨는데,

> 저도 한번 써보고 싶네요...

> 자료가 있는 곳 위치좀 부탁드립니다...

> 영대님께서 나중에 갈쳐주신다고 하신 걸로 알고 있거든여...헤헤 ^^;

Ben's Delphi Page - Remote Control

http://www.radix.net/~bziegler/Delphi







> 또 하나, 아이디어 공유라고 할까???

> 세미나에서 영대님께서 좌우스크롤바대신 팝업메뉴로 응용하셨는데,

> 이제와서 아이디어(?)가 떠오르는 군요...

>

> 음...설명드리기 쉽게 예를 들어보이겠습니다...

> 1.폼의 좌측면에서 마우스의 우측버튼으로 드래그하면 좌우스크롤바 역할!

> 2.상하스크롤바는 위의 내용을 응용하면 좋을 거 같습니다...!

> (마우스의 우측버튼으로 폼의 윗면에서 폼의 아랫면까지 드래그하는 방법)

> *영대님께서 스크롤바대신 팝업메뉴로 사용하신 걸 여기에 응용하면

> 더더욱 좋을 듯 싶네요...

좋은 아이디어 입니다

오른쪽 마우스 버튼으로 드래그를 하면 그걸 스크롤로 대체한다는

말씀이시지요?

세미나때 말씀해 주셨으면 더 많은 사람들이 알 수 있었을텐데...