一个简单的例子：

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;

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

增加了一个top100的音乐播放器风格，由于没有从根本上解决WebBrowser的滚动条的问题在未来一段时间内将不再跟新该软件。在Top100风格下不能加载默认播放列表，目前还不知道怎么解决。增加了托盘的风格切换功能。猛击此处下载该版本。

其实就是个域名屏蔽的列表，做个小工具便于免杀。没什么高深的技术。猛击此处下载！ 提取码：f03cfa2718

最后蛋疼的贴点代码：

procedure TForm1.FormCreate(Sender: TObject);
begin
GetSystemDirectory(sysdir,256);
hosts := sysdir + '\drivers\etc\hosts';
backup := sysdir + '\drivers\etc\hosts.bak';
//ShowMessage(hosts);
if FileExists(hosts) then begin
mmo1.Lines.LoadFromFile(hosts);
if ((Pos('sdup.360.cn',mmo1.Lines.Text)) >0) then   begin
spSkinStatusPanel1.Caption := '状态：云已经挂掉。' ;
spSkinButton1.Enabled := False;
end else begin
spSkinStatusPanel1.Caption := '状态：云还飘着呢，赶紧挂掉吧。' ;
spSkinButton2.Enabled := False;
end;

end;
end;