Mega Code Archive

 

Categories / Delphi / System

 

Get the install directory of a COM or Webservice DLL

Title: 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;