Hallo,
ich bekomme bei der Variante von MathiasSimmack einen EAccessViolation-Error,
Zitat:
Zugriffsverletzung bei Adresse 004568AB in Modul 'Project1.exe'. Lesen von Adresse 00000008.
Ausgelöst wird dieser wohl hier:
Delphi-Quellcode:
function TVersionInfo.FormatVersionNumber: string;
const
FormatStr = '%d.%d.%d.%d';
begin
Result := Format(FormatStr,
[(FInfo^.dwFileVersionMS and $FFFF0000) shr 16,
FInfo^.dwFileVersionMS and $0000FFFF,
(FInfo^.dwFileVersionLS and $FFFF0000) shr 16,
FInfo^.dwFileVersionLS and $0000FFFF]);
end;
Warum ist der Zeiger = nil
Kann mir jemand helfen ?
gruss