Programmversion in DLL

[sko1]

Zitat von Der schöne Günther:

Uns den Code für dein GetCurrentVersion() zu zeigen

wird selbstverständlich nachgeholt:

Delphi-Quellcode:

function GetCurrentVersion(): string;
var
  VerInfoSize: DWord;
  VerInfo: Pointer;
  VerValueSize: DWord;
  VerValue: PVSFixedFileInfo;
  Dummy: DWord;
begin
  VerInfoSize := GetFileVersionInfoSize(PChar(ParamStr(0)), Dummy);
  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;

Diesen Code nutze ich seit Jahren für die Versionsausgabe in Windows-Exe-Projekten

Die Rückgabe aus der DLL ist "Version : 1.0.0.0" anstelle der erwarteten "1.0.3.0" die im Projekt eingestellt sind.

Ciao
Stefan

[Bernhard Geyer]

ParamStr(0) liefert doch immer den Dateinamen deiner Exe!

[sko1]

Zitat von Bernhard Geyer:

ParamStr(0) liefert doch immer den Dateinamen deiner Exe!

stimmt, jetzt wo Du das schreibst wird es mir klar!
... und wie komm ich an die DLL von innerhalb der DLL heraus?

Ciao
Stefan

[DeddyH]

Spontan würde ich es mit GetModuleFilename versuchen.

[Fritzew]

Zitat von sko1:

Zitat von Bernhard Geyer:

ParamStr(0) liefert doch immer den Dateinamen deiner Exe!

stimmt, jetzt wo Du das schreibst wird es mir klar!
... und wie komm ich an die DLL von innerhalb der DLL heraus?

Ciao
Stefan

So :

Delphi-Quellcode:

function getModuleName: string;
  var
    FileName: array[0..MAX_PATH - 1] of Char;
  begin
    GetModuleFileName(HInstance, FileName, SizeOf(FileName));
    Result := string(FileName);
  end; { DSiRealModuleName }

[DeddyH]

Nicht eher Length statt SizeOf?

[Fritzew]

Zitat von DeddyH:

Nicht eher Length statt SizeOf?

Da es ein statisches Array ist funktioniert sizeof auch. Liefert auch gleich die Grösse in Byte
Bei Length muss auch noch die Grösse der Chars berücksichtigt werden also
length(FileName) * sizeof(char)

[DeddyH]

Laut Doku:

Zitat:

nSize [in]
The size of the lpFilename buffer, in TCHARs.

Deshalb ja meine Frage, es geht ja nicht um die Bytegröße, sondern die Stringlänge.

[sko1]

Funktioniert, vielen Dank!

Und die anderen Ratschläge betreffs der Übergabe werde ich auch noch umsetzen...

Ciao
Stefan