Forum: Object-Pascal / Delphi-Language
by baumina,
4. Feb 2016
function ApplicationVersion: String;
var
VerInfoSize, Dummy: DWord;
VerInfo: Pointer;
VerValueSize: DWord;
VerValue: PVSFixedFileInfo;
begin
VerInfoSize:=GetFileVersionInfoSize(PChar(ParamStr(0)), Dummy);
If VerInfoSize<>0 then
Forum: Object-Pascal / Delphi-Language
by baumina,
3. Feb 2016
Sry, Rufo, hast recht, siehe EDIT oben.
Forum: Object-Pascal / Delphi-Language
by baumina,
3. Feb 2016
EDIT : ** Moment, da hab ich was falsches kopiert **
Das hier ist das was ich kopieren wollte, das wandelt den Versionsstring (z.B. '4.2.3') in einen Int64 um, den man dann für den Versionsvergleich verwenden kann:
function VersionNumberFromString (s: string): Int64;
var
ErrPos : Integer;
Index : Integer;
Parts : packed array of Word;