把DOS下的短文件名转换为长文件名问题。。。 ( 积分: 50 )

看了以前的文章，以下函数为什么只返回文件名，不转换路径呢？例如
C:/Mydocu~1/ok.txt 这个函数只返回 ok.txt


function GetLongFileName(Const FileName : String) : String;
var
aInfo: TSHFileInfo;
begin
if SHGetFileInfo(PChar(FileName),0,aInfo,Sizeof(aInfo),SHGFI_DISPLAYNAME)<>0 then
Result:= String(aInfo.szDisplayName)
else
Result:= FileName;
end;