Autor Beitrag
Metschu
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 135

Windows XP SP2 Home
Delphi 7; Delphi XE2-Starter
BeitragVerfasst: So 24.07.11 13:03 
Hallo zusammen!

Was macht eigentlich das Auswahlfeld "Testversion" in der Versionsinformation (Project -> Optionen -> Versionsinformation) ?

Kann man das wie die Versionsnummer auch auslesen und in dem Programm verabeiten?

Solange das Programm noch nicht fertig ist, soll ein Hinweisfenster am Start erscheinen, also nach dem Motto "IF Testversion then showmessage('Achtung Testversion')";
Derzeit kommentiere ich das immer aus, wenn das Programm fertig ist.

Gruß

Torsten
BenBE
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 8721
Erhaltene Danke: 191

Win95, Win98SE, Win2K, WinXP
D1S, D3S, D4S, D5E, D6E, D7E, D9PE, D10E, D12P, DXEP, L0.9\FPC2.0
BeitragVerfasst: Mo 25.07.11 07:06 
Mit dem Haken kann man ein Flag in den Versionsinfos setzen lassen, mit dem man mitteilen kann, dass diese Dateiversion nur für Testzwecke (Debugging) gedacht ist; unabhängig davon, ob wirklich Debug-Informationen (siehe Linker/Compiler-Settings für z.B. TD32, Debug-Symbole, ...)

Wie man das Flag konkret wieder auswerten kann, müsste ich nachschauen.

_________________
Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.
Tastaro
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 414
Erhaltene Danke: 23



BeitragVerfasst: Mo 25.07.11 07:55 
Metschu Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 135

Windows XP SP2 Home
Delphi 7; Delphi XE2-Starter
BeitragVerfasst: Mo 25.07.11 10:07 
Das Auslesen der Versionsnummer benutze ich ja schon die ganze Zeit.

Würde nur gerne, wenn möglich, verarbeiten können, ob es sich um eine Testversion handelt oder nicht.

Gruß

Torsten
Tastaro
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 414
Erhaltene Danke: 23



BeitragVerfasst: Mo 25.07.11 10:41 
Wenn du das tust, musst du doch nur noch die Flags auswerten:
ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
const
   VFF_DEBUG = $01;    //Das Projekt wurde im Debug-Modus compiliert.
   VFF_TEST  = $02;    //Die Version ist keine endgültige Version.
   VFF_PRIVATE = $08;  //Die Version wurde nicht unter den üblichen Gesichtspunkten für Freigabeversionen compiliert.
   VFF_SPECIAL = $20;  //Die Version ist eine Abwandlung der Standardversion.
var
   boBetaVersion: boolean;
   boDebugVersion: boolean;
   boPrivateVersion: boolean;
   boSpecialVersion: boolean;
begin
   boBetaVersion := (VerValue^.dwFileFlags and VFF_TEST) = VFF_TEST;
   boDebugVersion := (VerValue^.dwFileFlags and VFF_DEBUG) = VFF_DEBUG;
   boPrivateVersion := (VerValue^.dwFileFlags and VFF_PRIVATE) = VFF_PRIVATE;
   boSpecialVersion := (VerValue^.dwFileFlags and VFF_SPECIAL) = VFF_SPECIAL;
   ...
end;


Beste Grüße

Für diesen Beitrag haben gedankt: Metschu
Metschu Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 135

Windows XP SP2 Home
Delphi 7; Delphi XE2-Starter
BeitragVerfasst: Mo 25.07.11 11:23 
Super, klappt.

Genau das habe ich gesucht!

Danke!