Einzelnen Beitrag anzeigen

Benutzerbild von Stevie
Stevie

Registriert seit: 12. Aug 2003
Ort: Soest
4.027 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#4

AW: Packages automatisch (de)installieren

  Alt 16. Aug 2011, 17:09
Wenn man auf einer Expert-Sexchange-Seite die Lösung nicht lesen kann...
Ist der Verschreiber Absicht?

Zum Thema einfach mal exemplarisch für Delphi XE (Version 15):
Delphi-Quellcode:
uses
  JclIDEUtils;

procedure RegisterPackage(const APackageFilename, ADescription: string);
var
  installations: TJclBorRADToolInstallations;
  installation: TJclBorRADToolInstallation;
begin
  installations := TJclBorRADToolInstallations.Create;
  if installations.DelphiVersionInstalled[15] then
  begin
    installation := installations.DelphiInstallationFromVersion[15];
    installation.RegisterPackage(APackageFileName, ADescription);
  end;
  installations.Free;
end;
Mit nen bissle mehr Code kann man auch alle installieren Delphi Versionen rausfinden und so weiter. Eventuell auch interessant, sich das hier anzuschauen.
Stefan
“Simplicity, carried to the extreme, becomes elegance.” Jon Franklin

Delphi Sorcery - DSharp - Spring4D - TestInsight

Geändert von Stevie (16. Aug 2011 um 17:11 Uhr)
  Mit Zitat antworten Zitat