随笔 - 110  文章 - 28 评论 - 26 

留言簿(1)

随笔分类(103)

随笔档案(110)

文章分类(25)

文章档案(28)

新闻档案(3)

友情连接

  • 小蜜蜂
  • 马氏膏药网
  • 淋巴结肿大,淋巴结核,淋巴结炎 乳腺增生,小叶增生 颈椎病,腰椎病,腰间盘突出 马氏淋巴消炎贴,马氏增生散结贴,马氏关节肌肉贴
  • 黑客基地
  • 全球最大的黑客门户网站

最新随笔

积分与排名

  • 积分 - 146509
  • 排名 - 44

最新评论

阅读排行榜

评论排行榜

var
  Form1: TForm1;
type
TMB = function(hWnd: HWND; lpText, lpCaption: PChar; uType: UINT): Integer; stdcall;
implementation

{$R *.dfm}
var
 MB: TMB;
 inst: LongWord;

procedure TForm1.Button1Click(Sender: TObject);
var
  t,b: PChar;
begin
inst := LoadLibrary('user32.dll');
 MB := GetProcAddress(inst, 'MessageBoxA'){注意MessageBoxA这里区分大小写,他NND的让我试了半天才知道这里错了,你们也要注意了}
  t := '标题';
  b := '内容';
  MB(0, b, t, 0);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 FreeLibrary(inst);
end;

posted on 2009-01-21 16:26 小叶子 阅读(488) 评论(0)  编辑 收藏 引用 所属分类: delphi中的DLL文件
只有注册用户登录后才能发表评论。

笔记和文章,可能抄袭,只为学习,请原谅