//声明要调用的函数类型
function GetName(hModul:HINST;lpFileName:PAnsiChar;nSize:DWORD):DWORD;stdcall;
//函数的实现
function GetName;external 'KERNEL32.DLL' name 'GetModuleFileNameA';