2014-03-27

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;

2014-03-17

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

印象中海美迪的電視盒都不便宜,所以沒有花太多時間去注意,
直到前一陣子看到01上在討論C/P直爆高的Q12,
研究一下發現系統整合的不錯,除了可以直接觀看線上節目,
讀取各種影音檔也沒有問題,重點是價格不貴,
淘寶官方店鋪賣的是279 RMB,換算下來台幣不到1500,
就這樣一不小心就請對岸的同事帶了2台回來用...XD