upublic.pas

来自「MP3播放器」· PAS 代码 · 共 26 行

unit uPublic;

interface

uses SysUtils;

implementation


{==============================================================================}
{=================================函数定义集合=================================}
{================= Copyright(R) 2003 KingLong Software Studio =================}
{==============================================================================}

{从搜索记录中判断是否是子目录}
function IsValidDir(SearchRec: TSearchRec): Boolean;
begin
  if (SearchRec.Attr = 16) and (SearchRec.Name <> '.') and
     (SearchRec.Name <> '..') then
     Result := True
  else
    Result := False;
end;

end.