引言: 如何自動搜尋程式所在,磁碟或光碟機之特定檔案（*.MP3）？

procedure TForm1.Button1Click(Sender: TObject);
var
  sr: TSearchRec;
begin
  StringGrid1.RowCount := 1;
  if FindFirst(Path   '*.mp3', 0, sr) = 0 then
  begin
    repeat
      Memo1.Lines.Add(sr.Name);
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
end;

function GetFileList(var lst: TListBox; const dir: string): integer;
var
  sr: TSearchRec;
begin
  lst.Items.Clear;
  if FindFirst(dir   '*.mp3', faAnyFile, sr) = 0 then
    try
      repeat
        if (sr.Attr and faDirectory) = 0 then lst.Items.Add(sr.Name);
      until FindNext(sr) <> 0;
    finally
      FindClose(sr);
    end;
  Result := lst.Items.Count;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
   GetFileList(ListBox1,'');
end;

引言: 何謂自動搜尋? 程式啟動後，自動將程式所在之磁碟位置或光碟機位置， 搜尋特定檔案（*.MP3），包含各個資料夾一併搜尋並放置 於ListBox元件上。

    procedure TForm1.Button1Click(Sender: TObject);
begin
  AddFiles(ExtractFileDir(application.ExeName),'*.mp3');
  AddFiles(OtherPath,'*.mp3);
end;    procedure AddFIles(path, Mask : string);
var
  sr: TSearchRec;
begin
  StringGrid1.RowCount := 1;
  if FindFirst(Path   '*.mp3',0, sr) = 0 then
  begin
    repeat
      ListBox.Items.Add(Path   sr.Name);
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
  if FindFirst(Path ,faDirectory, sr) = 0 then
  begin
    repeat
      if (sr.Attr and faDirectory) = faDirectory then
        AddFiles(Path   sr.Name,Mask); // process sub-directory
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
end;

引言:

function GetFileList(var lst: TListBox; const dir: string): integer;
var
  sr: TSearchRec;
begin
  lst.Items.Clear;
  if FindFirst(dir   '*.mp3', faAnyFile, sr) = 0 then
    try
      repeat
        if (sr.Attr and faDirectory) = 0 then lst.Items.Add(sr.Name);
      until FindNext(sr) <> 0;
    finally
      FindClose(sr);
    end;
  Result := lst.Items.Count;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
   GetFileList(ListBox1,'');
end;

TRY TRY SEE

引言: 何謂自動搜尋? 程式啟動後，自動將程式所在之磁碟位置或光碟機位置， 搜尋特定檔案（*.MP3），包含各個資料夾一併搜尋並放置 於ListBox元件上。

還差一步，自動搜尋各個資料夾特定檔案（*.MP3）～～995 to me < src="http://simg3.pchome.com.tw/simage/thumbnail/3628/home.kimo.com.tw£¯angelbeach2002£¯qoo£¯angel_qoo.gif">發表是最好的記憶!

引言: 搜尋包括子目錄 :

    procedure TForm1.Button1Click(Sender: TObject);
begin
  AddFiles(ExtractFileDir(application.ExeName),'*.mp3');
  AddFiles(OtherPath,'*.mp3);
end;    procedure AddFIles(path, Mask : string);
var
  sr: TSearchRec;
begin
  StringGrid1.RowCount := 1; //少了這一行，就會顯示完整路徑，太神奇了！
  if FindFirst(Path   '*.mp3',0, sr) = 0 then
  begin
    repeat
      ListBox.Items.Add(Path   sr.Name);
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
  if FindFirst(Path ,faDirectory, sr) = 0 then
  begin
    repeat
      if (sr.Attr and faDirectory) = faDirectory then
        AddFiles(Path   sr.Name,Mask); // process sub-directory
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
end;

Other Path 可以是光盤/軟盤根目錄，可用我上面說的方法找出 修改 : 漏了 Mask 發表人 - Justmade 於 2003/05/08 11:16:08

還差一步，自動搜尋各個資料夾特定檔案（*.MP3）～～995 to me < src="http://simg3.pchome.com.tw/simage/thumbnail/3628/home.kimo.com.tw£¯angelbeach2002£¯qoo£¯angel_qoo.gif">發表是最好的記憶! 發表人 - qoo1234 於 2003/05/08 11:51:35

引言: StringGrid1.RowCount := 1; //少了這一行，就會顯示完整路徑，太神奇了！

引言: ????? StringGrid ??? 無端來個 StringGrid 做甚麼 ??? ...J sir 版大，謝謝指教！ StringGrid1.RowCount := 1; 這一行在你的程式碼中，不知有何意義？ < face="Verdana, Arial, Helvetica"> 呵，我沒留意我的程式碼一直多了這行從 Help File 抄出來大修改時留下的筆誤，真是對不起了。 不過以 qoo1234 兄你的程度 不會真的不明白這是沒意義的， 看來是有意挖苦小弟罷

引言:

引言: ????? StringGrid ??? 無端來個 StringGrid 做甚麼 ??? ...J sir 版大，謝謝指教！ StringGrid1.RowCount := 1; 這一行在你的程式碼中，不知有何意義？ < face="Verdana, Arial, Helvetica"> 呵，我沒留意我的程式碼一直多了這行從 Help File 抄出來大修改時留下的筆誤，真是對不起了。 不過以 qoo1234 兄你的程度 不會真的不明白這是沒意義的， 看來是有意挖苦小弟罷 < face="Verdana, Arial, Helvetica"> 沒有挖苦的意思，只是不懂，好奇一問～～ < src="http://simg3.pchome.com.tw/simage/thumbnail/3628/home.kimo.com.tw£¯angelbeach2002£¯qoo£¯angel_qoo.gif">發表是最好的記憶!