有挑战性的问题,请大家思考思考怎么样解决

昨天写函数大全的时候正好碰到
当然这只是在外部，仅供你参考首部  function GetModuleName(Module: HMODULE): string; $[SysUtils.pas
功能  返回动态连接库的名称
说明  如果参数为0则返回当前程序的名称
参考  function Windows.GetModuleFileName
例子
///////Begin GetModuleName
procedure TForm1.Button1Click(Sender: TObject);
var
  vHandle: THandle;
begin
  vHandle := LoadLibrary(PChar(Edit1.Text));
  Caption := GetModuleName(vHandle);
  FreeLibrary(vHandle);
end;
///////End GetModuleName