...Get the install-directory of a COM- or Webservice-DLL?

Author: R.Kleefstra
Homepage: none

Category: Objects/ActiveX

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;

 

printed from
www.swissdelphicenter.ch
developers knowledge base