//소스

procedure TForm1.NMFTP1ListItem(Listing: String);

var

ftp_mon : string;

mon_int : string;

begin

if Copy( Listing, 1, 1 ) = '-' then begin // File만 Processing(Server의 OS나 Version, 환경등에 따라서 달라질수 있으므로 주의 바람)

SepFileStat1( Listing ); //<-- Server정보를 분리

newFileName := sFileStat[8];

showmessage(newFileName);

// DownLoadFile(newFileName);

nmFtp1.Download(newFileName,newFileName);

end;

end;



//질문

이렇게 해서 돌렸거든요. 참고로 SepFileStat1()는 파일 이름을 찾아오려구 하는거구요.

근데 실행만 시키면 잠시후에 멈춰버려요.

창닫기도 안되구요.

잠시후엔 파란화면(다 아시죠? 윈도우 파란화면)이 뜨고

엔터치면 검정화면과 가운데 조그만 하얀화면에 이렇게 쓰여 있더라구요.

"시스템 리소스가 부족합니다....." 흑흑흑



왜 그런가요?

도와주세요.