A aRichMan Unregistered / Unconfirmed GUEST, unregistred user! 2004-02-04 #1 我用 application.ExeName得到的文件名是 调用这个DLL文件的文件名,不是DLL文件本身的名字。
A andy263 Unregistered / Unconfirmed GUEST, unregistred user! 2004-02-04 #5 加入这段<br>function ProgramPath: string;<br>begin<br> SetLength(Result, 256);<br> SetLength(Result, GetModuleFileName(HInstance, PChar(Result), 256));<br> Result:= ExtractFilePath(Result);<br>end;<br>
加入这段<br>function ProgramPath: string;<br>begin<br> SetLength(Result, 256);<br> SetLength(Result, GetModuleFileName(HInstance, PChar(Result), 256));<br> Result:= ExtractFilePath(Result);<br>end;<br>