怎样得到IsApi库文件所在目录 ( 积分: 100 )

用IntraWeb+Ado做网页，IsApi方式，需要使用相对路径动态设置数据源，怎样得到Dll文件所在的目录

用IntraWeb+Ado做网页，IsApi方式，需要使用相对路径动态设置数据源，怎样得到Dll文件所在的目录

自已顶

function GetRoot: string;
var
Buf: array [1..256] of Char;
iLen, iPos: Integer;
s: string;
begin
iLen := GetModuleFileName(HINSTANCE, @Buf, SizeOf(Buf));
s := ExtractFilePath(Copy(string(Buf), 1, iLen));
if Copy(s, Length(s), 1) = '/' then
s := Copy(s, 1, Length(s) - 1);
iPos := LastPos('/', s);
Result := Copy(s, 1, iPos);
if Copy(Result, 1, 4) = '//?/' then
Result := Copy(Result, 5, MaxInt);
end;

前面问题已解决
在此感谢zhang214
再问一个问题
我用Asp做的一个网站，其中一个模块用的是IsApi，用W98下的PWS调试一切正常，在W2000的IIS环境里IsApi程序页面只能显示一次，再次访问就提示“您要访问的网页有问题，无法显示。”

天哪
为什么提出问题后总是自已找到答案
散分了
顶者有分（注意不能超过100个人）

接受答案了.