...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;

printed from
www.swissdelphicenter.ch
developers knowledge base