delphi
var FileName: array[0..MAX_PATH] of char;
GetModuleFileName(HInstance, FileName, MAX_PATH); MessageBox(0,FileName,'OK',MB_OK);
C++
char FileName[MAX_PATH + 1];
GetModuleFileName(hinstDLL, FileName, MAX_PATH);//这样可以得到DLL自身所在目录,可能有用