Pfad zu DLL?

[Weazy]

Ich arbeite gerad an einem Kontextmenü für den Explorer. Das funktioniert auch ganz gut, doch ich möchte nun den Pfad der DLL herausfinden. Im Forum hier habe ich das hier gefunden:

Delphi-Quellcode:

function GetDllName: string;
begin
  SetLength(Result, 261);
  SetLength(Result, GetModuleFileName(0, @Result[1], Length(Result)));
end;

Das liefer mir immer nur "c:\WINDOWS\explorer.exe", was ja auch verständlich ist da der explorer ja der Host meiner dll ist.

Wie kann ich den Pfad meiner dll herausfinden???

[JonnyGuitar]

moin,

ich bin mir jetzt nicht ganz sicher, aber probier das mal so, sollte klappen :)

Delphi-Quellcode:

function GetModuleName: string;
var
  szFileName: array[0..MAX_PATH] of Char;
begin
  FillChar(szFileName, SizeOf(szFileName), #0);
  GetModuleFileName(hInstance, szFileName, MAX_PATH);
  Result := szFileName;
end;

mfg Jonny

[Weazy]

Perfekt, funktioniert einwandfrei!

Danke vielmals!

[JonnyGuitar]

gern geschehen :)