Inno Setup, Dateiauswahl und kopieren

[haentschman]

Hallo Alle...

Ich würde gern die Lizenzdatei, welche z.B. per Mail geliefert und irgendwo abgelegt ist, vom Setup in den vorgesehenen Zielordner kopieren lassen. Dazu wäre es notwendig bei angehakter Komponente "Lizenz kopieren o.ä." einen Opendialog zu öffnen, den Filenamen zwischenzuspeichern und am Ende z.B. einer Batch als Parameter zu übergeben.

Welche Alternativen hätte ich noch? Wie mache ich das mit dem Opendialog und dem Zwischenspeichern?

Danke...

[Sir Rufo]

Solche Zusatzfunktionen schiebt man InnoSetup per DLL unter

[haentschman]

Danke...

Zitat:

Solche Zusatzfunktionen schiebt man InnoSetup per DLL unter

...wenn jetzt in der Hilfe zu Inno oder im PDF ein Tipp stehen würde wie man das einbindet wäre das noch besser.

Ich habe was mit einer Dateiauswahl im PDF gefunden. Das in Verbindung mit Pascal Code für das Kopieren sollte doch gehen... oder

[Sir Rufo]

Zitat von haentschman:

Danke...

Zitat:

Solche Zusatzfunktionen schiebt man InnoSetup per DLL unter

...wenn jetzt in der Hilfe zu Inno oder im PDF ein Tipp stehen würde wie man das einbindet wäre das noch besser.

Jupp, so ein Eintrag Pascal Scripting: Using DLLs in der Hilfe wäre schön

Zitat von haentschman:

Ich habe was mit einer Dateiauswahl im PDF gefunden. Das in Verbindung mit Pascal Code für das Kopieren sollte doch gehen... oder

Geht bestimmt auch irgendwie, aber mit der DLL kannst du die Lizenzdatei auch gleich noch vorab prüfen und erst dann kopieren lassen.

Die gleiche DLL kannst du dann auch in deinem Programm verwenden, wenn jemand die Lizenz-Datei austauschen möchte.

[haentschman]

Zitat:

Jupp, so ein Eintrag Pascal Scripting: Using DLLs in der Hilfe wäre schön

...wenn man auch in der InnoScriptStudio Hilfe guckt...

Danke erstmal...

[haentschman]

Guten Morgen...

Ich habe mich für die DLL Variante entschieden. Da kann ich ggf. beliebig erweitern. Es gab hier und da ein paar Problemchen im Script welche aber zur Weiterbildung beigetragen haben.
Eines verstehe ich aber nicht:
Ich mußte den "String" Parameter als PAnsiChar übergeben. Bei PChar kam nur Müll in der DLL an.
PS: Die Typen waren in jeder Variante sowohl in der DLL als auch im Script identisch... Hat jemand eine Erklärung dafür?
DLL:

Delphi-Quellcode:

function CopyLicenseFile(ProductTypeID: Integer; TargetFolder: PAnsiChar): Boolean; stdcall;
begin
  Result:= TSetupTools.CopyLicense(ProductTypeID, TargetFolder);
end;

exports
  CopyLicenseFile;

Script:

Delphi-Quellcode:

function CopyLicenseFile(ProductTypeID: Integer; TargetFolder: PAnsiChar): Boolean;
external 'CopyLicenseFile@files:dSetupTools.dll stdcall setuponly';

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssPostInstall then
  begin
    if IsComponentSelected('Server') and IsTaskSelected('License') then
    begin
      CopyLicenseFile(3, PAnsiChar(ExpandConstant('{userappdata}\DIMOWA\dVAServer\License')));
    end;
  end;
end;