application.exename für DLLs?

[Marco Steinebach]

Hallo zusammen,
in einer DLL möchte ich gerne herausfinden, in welchem Verzeichnis sie liegt, also ein Äquivalent zu Application.ExeName. Gibt es sowas und wenn ja, wie mach ich das?
Viele Grüße
Marco

[sirius]

"getmodulename"
oder
"paramstr(0)"

[hoika]

Hallo,

ich mache das so

Delphi-Quellcode:

var
  szDllName: array[0..255] of Char;
  sDllName : String;
begin
  GetModuleFileName(HInstance, szDllName, SizeOf(szDllName)-1);
  sDllName:= StrPas(szDllName);

Und ja, man kann auch SetLength benutzten,
uss man aber nicht


Heiko

[himitsu]

Im Prinzip (egal ob EXE oder DLL):

man hole sich einen Pointer innerhalb des gewünschten Moduls
z.B. die Adresse einer Funktion (vorzugsweise der Funktion, worin man das grad abfragt)
oder die Adresses eines Labels (siehe GOTO)

Delphi-Quellcode:

P := @FunctionsName;

// oder
label Test;
begin
  Test: 
  P := @Test;

dann frage man mit VirtualQuery nach nach der Base-Adresse des Speicherblocks
(in diesem Fall der Anfangsadresse der FileImages, worin der gefundene Pointer liegt)

diese BaseAdress entspricht zufällig dem Handle der DLL/EXE

und nun einfach nur noch GetModuleName mit diesem Handle(Adresse)

[Marco Steinebach]

Hallo,
vielen Dank für die superschnellen Antworten.

ParamStr(0) geht nicht, hätte mich auch gewundert.

@Heiko: ich hab’s jetzt wie du gelöst, und es tut, was es soll.
@himitsu: Uaaa, gibt’s bei deiner Lösung ‚nen Vorteil, wenn GetModuleFileName (hInstance,... bereits das richtige liefert? Nicht, daß ich da was im Arbeitsspeicher kaputprogrammiere...
Vielen Dank nochmal und viele Grüße
Marco

[himitsu]

Zitat von Marco Steinebach:

ParamStr(0) geht nicht, hätte mich auch gewundert.

Wenn Borland damals HInstance statt 0 dem GetModuleHandle übergeben hätte, dann wäre es schon gegangen,
aber 0 steht halt für die Application.

ParamStr(0) ruft GetModuleName(0, auf, wärend ParamStr(x) mit x > 0 den ParameterBlock ausließt

Zitat von Marco Steinebach:

@himitsu: Uaaa, gibt’s bei deiner Lösung ‚nen Vorteil, wenn GetModuleFileName (hInstance,... bereits das richtige liefert? Nicht, daß ich da was im Arbeitsspeicher kaputprogrammiere...

neee, 'nen Vorteil hat's nicht, außer daß man so auch die Namen von anderen Modulen erfragen kann (man muß ja nicht unbedingt 'nen Ausgangs-Pointer im eigenen Code nehmen )

Aber kaputt kann da nichts gehen, schließlich wird ja nur abgefragt und nix geändert.

[hoika]

Hallo,

ich nehme den Code immer, um in DLL's in Formularen
die Versions-Nummer anzuzeigen.


Heiko