function GetModuleFileName(Module: HModule): string;
var
   Buff: string;
   BuffSize: Cardinal;
begin
   Result := '';
   if (Module > HINSTANCE_ERROR) then
     begin
       BuffSize := MAX_PATH + 1;
       SetLength(Buff, BuffSize);
       BuffSize := Windows.GetModuleFileName(Module, PChar(Buff), BuffSize);
       if BuffSize > 0 then
         Result := Copy(Buff, 1, BuffSize);
     end;
end;

function GetModules: string;
const
   cBPLinfo ='Загруженные модули:';
var
   P: PLibModule;
begin
   Result := '';
   if Assigned(LibModuleList) and Assigned(LibModuleList.Next) then
     begin
       P := LibModuleList.Next;
       Result := cBPLinfo;
       while Assigned(P) do
         begin
           Result := Result + #13#10 + '  ' + GetModuleFileName(P.Instance);
           P := P.Next;
         end;
     end;
end;