//--------------------------------------------------------- //TO DO :判断是否是目录 //参数:目录路径 //成功返回True 错误返回False function TFile.IsDir(IsDirPath:string):Boolean; var FileGetAttrValue:integer; begin {$IFDEF WIN32} Result:=DirectoryExists(IsDirPath); Exit; {$ENDIF} if FileGetAttrValue=16 then begin Result:=true; end else Begin Result:=False; end;end; //---------------------------------------------------------
//TO DO :判断是否是目录
//参数:目录路径
//成功返回True 错误返回False
function TFile.IsDir(IsDirPath:string):Boolean;
var
FileGetAttrValue:integer;
begin
{$IFDEF WIN32}
Result:=DirectoryExists(IsDirPath);
Exit;
{$ENDIF}
if FileGetAttrValue=16 then
begin
Result:=true;
end
else
Begin
Result:=False;
end;end;
//---------------------------------------------------------