Registriert seit: 5. Mai 2008
Ort: Oberschwaben
1.275 Beiträge
Delphi 11 Alexandria
|
AW: Programmversionen vergleichen + Update
4. Feb 2016, 15:03
Delphi-Quellcode:
function ApplicationVersion: String;
var
VerInfoSize, Dummy: DWord;
VerInfo: Pointer;
VerValueSize: DWord;
VerValue: PVSFixedFileInfo;
begin
VerInfoSize:=GetFileVersionInfoSize(PChar(ParamStr(0)), Dummy);
If VerInfoSize<>0 then
begin
GetMem(VerInfo, VerInfoSize);
GetFileVersionInfo(PChar(ParamStr(0)), 0, VerInfoSize, VerInfo);
VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize);
with VerValue^ do
begin
Result:=IntTostr(dwFileVersionMS shr 16);
Result:=Result+'.'+IntTostr(dwFileVersionMS and $FFFF);
Result:=Result+'.'+IntTostr(dwFileVersionLS shr 16);
// Result:=Result+'.'+IntTostr(dwFileVersionLS and $FFFF);
end;
FreeMem(VerInfo, VerInfoSize);
end
else
Result:='Version Inconnue';
end;
Hinter dir gehts abwärts und vor dir steil bergauf ! (Wolfgang Ambros)
|
|
Zitat
|