DLL程序怎么取到自己的所在目录？(100分)

大虾快救命，哈哈。。。

方法1：<br><br>function ReadDLLPath : String;<br>var<br>&nbsp; DLLPath : String;<br>&nbsp; FN: array[0..MAX_PATH- 1] of char;<br>begin<br>&nbsp; SetString(DLLPath, FN, GetModuleFileName(hInstance, FN, SizeOf(FN)));<br>&nbsp; DLLPath := ExtractFileDir(DLLPath);<br>&nbsp; if Copy(DLLPath,Length(DLlPath),1) &lt;&gt; '/' then<br>&nbsp; &nbsp; DLLPath := DLLPath+'/';<br>&nbsp; Result := DLLPath;<br>end;<br><br>==================================<br>方法2：<br>var &nbsp; <br>&nbsp; P: PChar;<br>&nbsp; szFileName :array[0..256] of char;<br>&nbsp; szModuleName :array[0..19] of char;<br>&nbsp; iSize :integer; &nbsp; &nbsp;<br><br>begin<br>&nbsp; &nbsp; &nbsp;strCopy(szModuleName,'Mydll.dll');<br>&nbsp; &nbsp; &nbsp;iSize := GetModuleFileName(getModuleHandle(szModuleName),szFileName,sizeOf(szFileName));<br>&nbsp; &nbsp; &nbsp;P := StrRScan(szFileName, '/');<br>&nbsp; &nbsp; &nbsp;p^:= #0;<br>end;<br><br>szFileName就是你要的路径<br>

同意 zw84611，我写ISAPI程序时，需要知道DLL所在的目录

dll不能取到自己所在的目录

接受答案了.