intraweb网站开发怎样获得程序相对路径，不是dll路径

  例如我发布的网站主页index.dll在C:\wangzhan文件夹下，不用绝对路径，怎样使程序运行时调用C:\wangzhan内的数据，谢谢~~网上有人使用这个函数，我运行时却弹出  磁盘或网络错误。请问是什么缘故？谢谢function   GetModulePath:string;
  var
      Buffer   :   array[0..260]   of   char;
      temp:   string;
  begin
      SetString(temp,   Buffer,   GetModuleFileName(Hinstance,   Buffer,   SizeOf(Buffer)));
      Result   :=   ExtractFilePath(temp);
  end;