delphi路径问题,各位帮忙.

Question

 Request:=Merlin.Speak('你好欢迎使用本系统','C:\Documents and Settings\Administrator\桌面\BMS\Sound\voice.wav');
用了MsAgent,精灵Merlin的使用方法中Merlin.Speak('文字','路径');想写成绝对路径怎么实现?
各位帮忙,谢谢了.

Answer 1

var
  pid: PItemIDList;
  Path: string;
//...
  SHGetSpecialFolderLocation(Application.Handle, CSIDL_DESKTOP, pid);
  SetLength(Path, MAX_PATH);
  SHGetPathFromIDList(pid, PChar(Path));
  Request := Merlin.Speak( '你好欢迎使用本系统 ', Path + '\BMS\Sound\voice.wav ');