Programmversion auslesen

[messie]

Ich möchte gerne mit BCB die Version meines Programms auslesen. Beispiele für Delphi gibt es hier einige, die habe ich auch schon mal verwendet. Im BCB klemmt es noch: ich bekomme unsinnige Anzeigen, die sich auch mit jedem Aufruf ändern.
So sieht der Code aus:

Code:

AnsiString s;
  char *buffer;
  unsigned char version;
  unsigned int i;
  DWORD handle;         // Dummy
  unsigned int Len;     // Dummy

  s = Application->ExeName;
  i = GetFileVersionInfoSize(s.c_str(),&handle);
  buffer = new char [i];
  GetFileVersionInfo(s.c_str(),0,i,buffer);
  VerQueryValue(buffer, "\\StringFileInfo\\040704E4\\FileVersion" ,(void **) &version, &Len);
  ShowMessage(version);

Sieht ein bisschen so aus, als würde da ein Pointer in der Luft hängen...

Grüße, Messie