🚀 go-pugleaf

James wrote:
> I was wondering if it is possible to install a package via the
> command line.  Does anyone know if this is possible and if so, how it
> is achieved?
Yes, you can. You have to write it into the registry and need to restart 
Delphi after that. Here's a rough summary of how you can do it for 
Delphi 5 (newer versions will be similar, I guess). Mmaybe it doesn't 
compile cause it's an extract of my original, much longer code.

// param BPLFile contains complete path and filename to a BPL-file
procedure InstallPackage(BPLFile: string);
var
   j: Integer;
   Reg: TRegistry;
   BorImage: TJclPeBorImage;
   // you need JCL for TJclPeBorImage, see http://jcl.sourceforge.net
begin
   Reg :=  TRegistry.Create;
   try
     Reg.RootKey := HKEY_CURRENT_USER;
     Reg.Access := KEY_ALL_ACCESS;
     if Reg.OpenKey('Software\Borland\Delphi\5.0\Known Packages', False) 
then begin
       try
         BorImage := TJclPeBorImage.Create;
         BorImage.FileName := BPLFile;
         Assert(BorImage.IsPackage);
         if BorImage.Description <> '' then begin
           Reg.WriteString(BPLFile, BorImage.Description);
         end else begin
           Reg.WriteString(BPLFile, BPLFile);
         end;
       finally
         FreeAndNil(BorImage);
         Reg.CloseKey;
       end;
     end;
   finally
     FreeAndNil(Reg);
   end;
end;

Jens

-- 
____________________________________________________________
  email (delete all digits, please): info@11.jensberke.11.de