Question

delphi Exe程序以及DLL程序如何在模块内部获得各自的路径

Answer 1

用这句话就ok了。
ExtractFilePath(Application.ExeName)

Answer 2

function AppPath : string;
begin
Result := extractFilePath(Paramstr(0)) ;
end;