MemLibrary 内存 加载DLL DELPHI

一个简单的例子:

type
  mbf = function(hWnd: HWND; lpText, lpCaption: PChar; uType: UINT): Integer;
  stdcall;

procedure TForm1.Button1Click(Sender: TObject);
var
  h: integer;
  mb: pointer;
  ms: TMemoryStream;
begin
  ms := TMemoryStream.Create;
  ms.LoadFromFile('f:\user32.dll');
  h := memLoadLibrary(ms.Memory);

  if h > 0 then
  begin
    mb := memGetProcAddress(h, 'MessageBoxA');
    if mb <> nil then
      mbf(mb)(handle, 'test', 'test', mb_ok);
  end;

  memFreeLibrary(h);
  ms.Free;
end;

代码未经测试,只是转载备用。

Continue Reading

谷歌音乐播放器 (Google Music Player)

说明:程序没有多少功能,只是为了便于在线听歌方便。当然了,如果喜欢用浏览器听的话可以无视这个小软件。软件运行后会在提供通知栏显示,右键菜单可以显示隐藏播放器窗口,换肤。如果有任何Bug请给我留言。猛击此处下载这个小软件。(本来想直接下载个的,但是网上的那个什么UMI360貌似有弹窗还需要注册,于是就自己写了一个。) smile

不知道有没有遇到弹出脚本错误的,如果弹出脚本错误请从后面的链接下载,修复了频繁的脚本错误问题。猛击此处下载修正版。  😉

下载地址修复!(猛击此处)