System Delphi

Title: How to get the install-directory of a COM- or Webservice-DLL
uses
ComServ, SysUtils;
function GetDirectory: string;
// This function returns the directory where the DLL (or ocx) is installed.
// Also works in webservices
// With DLL's you cannot use "Paramstr(0)" because this will give a false value
begin
Result := IncludeTrailingBackslash(ExtractFileDir(ComServer.ServerFileName));
end;