Name der DLL ermitteln die gerade ausgeführt wird ...

[Schneehasi]

Moin ...

ich hab ein kleines unscheinbares Problemchen

ich brauch den Namen der DLL die gerade ausgeführt wird in der DLL selbst ... (ich kann nicht sicher sein das jemand die DLL umbenannt hat)

oder ich brauche die Versionsnummer der DLL in der DLL selbst


wenn ich in der DLL mit ParamStr(0) arbeite bekomm ich ja leider nur den Namen der ausführenden EXE



Danke

[Luckie]

Schreib dir eine Funktion, die dir die Versionsnummer zurückgibt, die du als Konstante im DLL Code stehen hast. Eventuell hilft dir auch schon GetModuleFilename weiter.

[sakura]

Zitat von Luckie:

Schreib dir eine Funktion, die dir die Versionsnummer zurückgibt, die du als Konstante im DLL Code stehen hast. Eventuell hilft dir auch schon GetModuleFilename weiter.

Luckie, man sieht, daß Du noch keine riesigen Projekte hattest. Das ist eine grauenvolle Variante, welche man ganz schnell wieder aufgibt

@Hasi: Schaumal Dateiname DLL

......

[Schneehasi]

ich hatte eigentlich folgendes vor :

Delphi-Quellcode:

function GetVersionNr(sfile: string): string;
var
  l : integer;
  h : THandle;
  p : PChar;
  F : PVSFixedFileInfo;
  FL : Cardinal;
begin
  Result := '';
  l := GetFileVersionInfoSize(PChar(sfile), h);
  if l > 0 then begin
    GetMem(p, l);
  try
    if GetFileVersionInfo(PChar(sfile), 0, l, p) and
       VerQueryValue(p, '\', Pointer(F), FL) then
      Result := Format('%d.%d%d%d',
    [HiWord(F.dwFileVersionMS),
    LoWord(F.dwFileVersionMS),
    HiWord(F.dwFileVersionLS),
    LoWord(F.dwFileVersionLS)]);
  finally
    FreeMem(P, l);
  end;
end;
end;

nur dazu brauch ich halt den Namen der DLL .. wen ich den hart angebe bekomm ich auch die Version die ich möchte nur weiss ich halt nicht ob sich der Name der DLL nicht ändert wenn sie in Echtbetrieb geht ...

[sakura]

Steht ja jetzt oben da, wie man soetwas findet

......

[Schneehasi]

hehe da warst du wohl ein bissel schneller

danke

[FackFaze]

@Schneehasi

Das kommt davon, wenn CSI nicht at work ist

Muß dir am Montag wohl wieder etwas erklären. Kannst mir im übrigen helfen, einige PlugIns für unseren Messenger zu bauen.

Bis denno...