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