Source position: amigados.pas line 2023
function GetCurrentDirName(
buf: PAnsiChar;
len: LongInt
):LongBool;