Hi Leute,

meine eigene DLL soll die Function GetVersion exportieren. Das war in der Form:

markieren

Delphi-Quellcode:

function GetVersion : PChar;
begin
  Result := 'Version 1.0';
end;

in zwei Sekunden getan.

Nun ist das natürlich etwas primitiv. In meinen Programmen nutze ich eigentlich den Ansatz der hier im Forum vorgestellt wurde (ich glaube in der Code Lib) mit der Function
GetFileVersionInfo(PChar(p_sFilepath),0,dwVersionS ize,pVerBuf)

Dazu muß der Dateiname mit Pfad in p_sFilepath übergeben werden. In den üblichen Programmen sicher kein Thema, liefert doch Application.ExeName alles notwendige.

Dachte ich mir halt, machst es schnell mal ordentlich mit der Versionsnummer in deiner DLL.

Upps, wie bekommen ich denn jetzt den Namen mit Pfad heraus? Tja, simples Thema (sollte man denken) und null Plan.
Kann mir da jemand auf die Sprünge helfen?

Dank und Gruß oki

vielleicht solltest du integer werte übergeben:
(1) einen für die major version
(2) einen für die minor version

tutorials für dlls gibt es ein paar.
ein gutes findest du unter http://dsdt.info/tutorials/dlls/

Such mal OH-technisch (WIN32 API) nach 'GetModuleFileName'. Das sollte funktionieren. Als Handle übergibst Du das Handle der DLL.

Hi M. Hassmann,

dein Hinweis ist nachvollziehbar. Mein Problem ist aber, wie innerhalb meiner DLL deren Versionsnummer ermittel um diese in der Export-Funktion nicht wie in meinem kleinen Beispiel hardcoden zu müssen.

Gruß oki

Roter Kaste!!!

Hi alzaimar,

mach ich!

Auch Grüße an Dich

Hallo,

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm_X.SetVersionInfo;
var
  szFileName : array[0..255] of Char;
  sFileName : String;
  sBuild : String;
begin
  if GetModuleFileName(HInstance, szFileName, SizeOf(szFileName))>0 then
  begin
    sFileName:= StrPas(szFileName);
    sBuild:= GetVersionString(sFileName);
    if sBuild<>'' then
    begin
      Caption:= Caption+' '+sBuild;
    end;
  end;
end; { SetVersionInfo }

GetVersionString lädt bei mir einen speziellen Versions-Eintrag (Build),
aber der Code zum Versionsauslesen ist über die Suche hier einfach zu finden.


Heiko

Hi hoika,

Danke für den Beispiencode. Ich habe unter "Versionsinfo DLL" gesucht und nichts gesehen. Vielleicht war es gestern abend auch schon zu spät.

Der Code für GetVersionString war mir bekannt. Es klemmte nur an GetModulfileName.

Dank und Gruß oki