...das Installationsverzeichnis eines COM- oder einer Webservice-DLL ermitteln?

Autor: R.Kleefstra
Homepage: none

Kategorie: Objekte/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