Files Delphi

var
Buffer : array [0..255] of char;
begin
GetShortPathName(
'C:\Program Files\Borland\Common Files\Bde\Bde32.hlp',
@Buffer,
sizeof(Buffer));
Memo1.Lines.Add(Buffer);
end;