Version eigener DLL abfragen

[hoika]

Hallo,

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