如何把DOS格式的目录转换为正常目录名称？ (50分)

例如： s1 := 'c:/program files/1.txt'
对应的DOS文件名是：s2 := 'c:/progra~1/1.txt'
我现在知道了s2，怎么才能知道实际的值S1呢？

function GetLongPathName(Src, Dest: PChar;
cchWord):
DWord;
stdcall;
external 'kernel32.dll'
name 'GetLongPathNameA';

procedure TForm1.FormCreate(Sender: TObject);
const
ShortName : string = 'd:/progra~1/desktop.ini';
var
sz : array[0..MAX_PATH-1] of char;
begin
FillChar(sz, sizeof(sz), 0);
GetLongPathName(PChar(ShortName), sz, MAX_PATH);
Caption := sz;
end;

接受答案了.