procedure TMAINF.LOAD_ADV;
var
    SearchRec: TSearchRec;
    i : Integer;
begin
  i := 0;
  advdir := 'C:\Program Files\폴더명\IMAGE\ADV\';
  if FindFirst(advdir + '*.*', faAnyFile , SearchRec) = 0 then begin
    repeat
      if (SearchRec.Attr and FaDirectory = FaDirectory) then
      begin

      end
      else begin
        ADVLIST[i] := SearchRec.Name;
        i := i + 1;
      end;
    until FindNext(SearchRec) <> 0;
    FindClose(SearchRec);
  end;

  adv_timer := 0;
  advfc := i - 1;
  adv_count := 20;
  adv_fn := 0;
end;

프로그램이 시작 또는 버튼에서 위와 같이 일정 폴더의 파일 이름을 읽어와 스트링 변수에 저장하는
프로세서 입니다. 타이머를 써서 이 변수값을 변경하면 되겠죠^^ 잘 보구 이해하시길...