D2010, Versionsinfo auslesen

[hoika]

Hallo #,

obwohl hier schon viel geschrieben wurde,
komme ich nicht klar ...

Der meiste Code hier läßt sich unter D2010 nicht kompilieren (Ansicode <-> Unicode).

Der untere Code funktioniert zwar, liefert mir aber z.B. bei Outlook 1.17897.XXX

Delphi-Quellcode:

function GetVersion2(const theFileName: string): string;
var
  VerInfoSize: DWORD;
  VerInfo: Pointer;
  VerValueSize: DWORD;
  VerValue: PVSFixedFileInfo;
  Dummy: DWORD;
begin
  Result := '';
  VerInfoSize := GetFileVersionInfoSize(PChar(theFileName), Dummy);
  if VerInfoSize = 0 then Exit;
  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;

Diese Zahl wollte ich eigentlich nicht

Hülfe


Da sollte mal jemand die CodeLib-Bsp,-e aktualisieren.


Danke


Heiko

[Uwe Raabe]

Wenn man auch zwei unterschiedliche Dateien abfragt

Delphi-Quellcode:

  VerInfoSize := GetFileVersionInfoSize(PChar(theFileName), Dummy);   // theFileName
  if VerInfoSize = 0 then Exit;
  GetMem(VerInfo, VerInfoSize);                                       
  GetFileVersionInfo(PChar(ParamStr(0)), 0, VerInfoSize, VerInfo);    // ParamStr(0)

[himitsu]

Was sagen die Rückgabewerte(Result) von GetFileVersionInfo und VerQueryValue?

(ein Try-Finally könnte auch nicht schaden)

[edit]
OK, und das auch noch

[edit2]

Zitat von hoika:

Da sollte mal jemand die CodeLib-Bsp,-e aktualisieren.

Deinen ParamStr/theFileName-Fehler kann ich aber in keinem der CodeLib-Einträge finden.

http://www.delphipraxis.net/74080-ve...-abfragen.html
http://www.delphipraxis.net/5057-dat...-auslesen.html
Die CodeLib-Aufräumer sollten mal aufräumen. (das auch immer alles doppelt und Dreifach vorkommen muß)