uses
windows;

procedure showdllpath stdcall;
var
thefilename: array[0..max_path] of char;
begin
fillchar(thefilename, sizeof(thefilename), #0);
getmodulefilename(hinstance, thefilename, sizeof(thefilename));
messagebox(0, thefilename, 'the dll file name is:', mb_ok);
end;

---