Announcement

**Markus Fuchs** · 09.05.2001, 11:33

Hallo,

gibt es dazu nicht schon ein Beitrag mit Quelltext im Forum??? (->Win32 API)

Einfach mal unter 'Versionsinformation' suchen.

Ins Startlogo mu� man dieses dann halt noch einbauen...

Gru�, 
Marku

**Andreas K�ding** · 10.05.2001, 13:46

Danke f�r Deinen Tip, aber ich kann nichts finden. Kannst Du mir irgendwie weiterhelfen

**Markus Fuchs** · 10.05.2001, 15:47

Hallo,

das hier ist die Kopie vom Beitrag von NicoDE, den ich meinte ("Auslesen der eigenen Programmversion und Build#" unter Win32 API / Delphi):
<PRE><TT> "procedure TForm1.Button1Click(Sender: TObject); var aFileName: array [0..MAX_PATH] of Char; pdwHandle: DWORD; nInfoSize: DWORD; pFileInfo: Pointer; pFixFInfo: PVSFixedFileInfo; nFixFInfo: DWORD; pVarFInfo: PChar; nVarFInfo: DWORD; nVarTrans: DWORD; aVarFPath: array [0..MAX_PATH] of Char; begin GetModuleFileName(0, aFileName, MAX_PATH); pdwHandle := 0; nInfoSize := GetFileVersionInfoSize(aFileName, pdwHandle); if nInfoSize <> 0 then pFileInfo := GetMemory(nInfoSize) else pFileInfo := nil; if Assigned(pFileInfo) then try if GetFileVersionInfo(aFileName, pdwHandle, nInfoSize, pFileInfo) then begin // den vordefinierten Info-Block holen, der in jeder // Versionsinformation enthalten sein sollte. pFixFInfo := nil; nFixFInfo := 0; if VerQueryValue(pFileInfo, '\', Pointer(pFixFInfo), nFixFInfo) then begin // Bei von Delphi erzeugten Info-Bl�cken sind die Dateiversion // und die Produktversion im FixedInfo-Block immer gleich. Label1.Caption := Format('Version (fix): %d.%d.%d.%d.', [HiWord(pFixFInfo^.dwFileVersionMS), LoWord(pFixFInfo^.dwFileVersionMS), HiWord(pFixFInfo^.dwFileVersionLS), LoWord(pFixFInfo^.dwFileVersionLS)]); end; // Erst die Sprache(n) ermitteln und dann abfragen pVarFInfo := nil; nVarFInfo := 0; if VerQueryValue(pFileInfo, '\VarFileInfo\Translation', Pointer(pVarFInfo), nVarFInfo) then begin // erste Sprache holen nVarTrans := HiWord(PDWORD(pVarFInfo)^) or (Word(PDWORD(pVarFInfo)^) shl 16); wvsprintf(aVarFPath, '\StringFileInfo\%8.8x\', PChar(@nVarTrans)); // Standard-Wert 'Dateiversion' abfragen // (Standardisierte Werte sind: CompanyName FileDescription FileVersion // InternalName LegalCopyright OriginalFilename ProductName // ProductVersion - wobei diese f�r alle Sprachen gelten) lstrcat(aVarFPath, 'FileVersion'); pVarFInfo := nil; nVarFInfo := 0; if VerQueryValue(pFileInfo, aVarFPath, Pointer(pVarFInfo), nVarFInfo) then begin Label2.Caption := 'Dateiversion (var): ' + TCaption(pVarFInfo); end; end; end; finally FreeMemory(pFileInfo); end; end; </TT></PRE>
Grunds�tzlich gibt es also mindestens einen festdefinierten Infoblock, den man erfragen kann (deren Werte in Delphi im Optionen-Dialog in der oberen H�lfte eingestellt werden). 
Und es gibt eine Liste von Info-Bl�cken in verschiedenen Sprachen, die in einer Tabelle stehen (der untere Teil des Dialogs - wobei Delphi nur einen Sprachenblock anlegen

**Markus Fuchs** · 10.05.2001, 15:49

..ann/will). 
Bei den Eintr�gen in den Sprachen-Bl�cken gibt es bestimmte standardisierte Eintr�ge (die �brigens immer englisch sind)...

Gru� Nico"

Ich hoffe er hilft Dir weiter! Diesen Code einfach in das OnCreate-Ereignis der SplashForm einf�gen und ausgeben.
Gru�, 
Marku

**Andreas K�ding** · 11.05.2001, 07:15

Vielen Dank, ich probier es gleich aus!

Gru� Andrea

Announcement

Versionsinformationen

Versionsinformationen

Comment

Comment

Comment

Comment

Comment