Entwickler-Ecke
Programmierwerkzeuge - Inno Setup Version von eigenem Programm auslesen
Alpha_Wolf - Fr 02.09.05 13:26
Titel: Inno Setup Version von eigenem Programm auslesen
Hallo Leute,
ich arbeite mit Inno Setup 5.0.8.
Wenn ich dort nun einen Skript geniere und mein eigenes Setup laufen lassen kommt ja am Anfang..:
Setup installiert TestProgramm v0.9.3.39 ...
Nun die Version meines Delphi Programms würde ich gerne im Skript auslesen.. und dann einfach hinter Testprogramm ausgeben. Somit muss ich das Inno Setup nur kompilieren und nicht jedes mal wenn ich eine neue Version hab im Skript Änderungen vornehmen.
Kann mir da jemand helfen?
Danke
Alpha_Wolf - Mo 05.09.05 10:10
Da es hier doch einige gibt die wohl das gleiche brauchen hier meine Lösung:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
| -------------Inno-Code------------------------------
#define AppName "TestProgramm"
#define AppExeName "TestProgramm.exe"
#define ExePath ".\unterordner\TestProgramm.exe"
[Code]
#if fileExists(ExePath) == false
#error Exepath does not exist!
#endif
#define AppVersion GetFileVersion(ExePath)
[Setup]
AppName={#AppName}
AppVerName={#AppName} {#AppVersion}
...
[Tasks]
...
[Files]
...
[Icons]
...
[Run]
Filename: {app}\{#AppExeName}; Description: {cm:LaunchProgram, {AppVerName}}; Flags: nowait postinstall skipifsilent
-------------Inno-Code-Ende------------------------- |
Vielleicht hilft es dem ein oder anderen..
Moderiert von 
Christian S.: Enthaltenen Code-Tag maskiert und Code-Tags eingefügt
Alpha_Wolf - Do 08.09.05 13:03
Alles ist wohl arg übetrieben... die Community dort ist noch ziemlich klein und ich habe dort bis jetzt noch niemanden online gesehen.. nungut... aber was noch nicht ist kann ja noch werden =) aber danke für den link.
Hätte jetzt noch eine Frage..
Wie kann ich zB wenn die Installation startet ein Word-Dokument öffnen?
Exec hab ich probiert -
FileOpen hab ich probiert -
aber es funktioniert einfach nicht.
Delphi-Quelltext
1:
2:
3:
4:
| procedure InitializeWizard();
begin
int FileOpen('.\bin\Release Notes\1.0.0.6.doc');
end; |
Der Compiler bringt immer Invalid number of parameters.. aber egal was ich ihm gebe da kommt immer diese Meldung mehr nicht.
In der Hilfe steht aber nur beschrieben:
Ich denke aber sowieso das FileOpen nicht stimmen kann.. hat jemand eine Idee was ich da tun muss?
Moderiert von raziel: Code- durch Delphi-Tags ersetzt.
Alpha_Wolf - Do 08.09.05 14:54
Hm.. lohnt sich anscheinend nicht hier diese fragen zu stellen (nicht böse gemeint) man kann ja nicht alles wissen :wink:
Ich sollte fast ma n tut schreiben..*g*
Hier meine Lösung:
Quelltext
1:
2:
| [Run]
Filename: {app}\Release Notes\1.0.0.6.doc; Description: Show Release Notes; Flags: Postinstall shell |
Tino - Do 08.09.05 15:10
| Alpha_Wolf hat folgendes geschrieben: |
aber es funktioniert einfach nicht.
Delphi-Quelltext 1:
2:
3:
4:
| procedure InitializeWizard();
begin
int FileOpen('.\bin\Release Notes\1.0.0.6.doc');
end; |
|
Das Int deutet wahrscheinlich auf den Rückgabeparameter hin, oder?
Alpha_Wolf - Do 08.09.05 15:25
Jap stimmt ^^
Nur irgendwie hatte ich es nicht geschafft das er mir was brauchbares zurückgeliefert hat.. bis ich das gefunden hab:
| Zitat: |
This function opens a text file for reading and returns the file handle (or zero on failure) to be used in subsequent calls to File* functions.
|
Und ich wusste das es dafür was ich vorhatte nicht gedacht war. Aber Lösung ist ja bereits vorhanden =)
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!