isapi中如何得到这个dll所在的目录(50分)

在isapi 运行时，我需要从和这个dll同一个目录中的文本文件中取出
一些数据，可是不知道该如何得到？

procedure TWebModule1.WebModuleCreate(Sender: TObject);
var
FN: array[0..MAX_PATH- 1] of char;
pathname:string;
begin
SetString(PathName, FN, GetModuleFileName(hInstance, FN, SizeOf(FN)));
pathName := ExtractFileDir(pathname)+'/';
end;

接受答案了.