Delphi-抓取指定路徑檔案名稱

//******************************************************************************
//**  抓取指定路徑檔案名稱 _GetAllFiles--<自訂函數>
//**
//******************************************************************************
procedure _GetAllFiles(mask :String; isRecursiveSearch_ :Boolean; lst :TStrings);
var sr :TSearchRec;
    tExt :String;
    tDir :String;
begin
  tExt := ExtractFileName(mask);
  tDir := ExtractFilePath(mask);

  if tDir[Length(tDir)] <> '\' then tDir := tDir+'\';

  if FindFirst(mask, faAnyFile, sr) = 0 then
  begin
    repeat
      lst.Add(Format('%s%s', [tDir, sr.Name]));
    until FindNext(sr) <> 0;
    SysUtils.FindClose(sr);
  end;

  if isRecursiveSearch_ then
  begin
    if FindFirst(tDir + '*.*', faDirectory, sr) = 0 then
    repeat
     if ((sr.Attr and faDirectory) = faDirectory) and (sr.name[1] <> '.') then
       _GetAllFiles(Format('%s%s\%s', [tDir, sr.Name, tExt]), true, lst);
    until FindNext(sr)<>0;
    SysUtils.FindClose(sr);
  end;
end;

[敗家]-海美迪 Q12-emmc版

印象中海美迪的電視盒都不便宜，所以沒有花太多時間去注意，

直到前一陣子看到01上在討論C/P直爆高的Q12，

研究一下發現系統整合的不錯，除了可以直接觀看線上節目，

讀取各種影音檔也沒有問題，重點是價格不貴，

淘寶官方店鋪賣的是279 RMB，換算下來台幣不到1500，

就這樣一不小心就請對岸的同事帶了2台回來用...XD