我最亲爱的说

子非鱼,焉知鱼之乐.

导航

随笔分类 -  Delphi

[delphi]极域学生端解除键盘鼠标锁定退出全屏广播-强制窗口化-源代码
摘要:v2.0 2015-07-11 更新了V2.0 版本 发布在吾爱破解论坛 欢迎下载使用 http://www.52pojie.cn/thread-382769-1-1.html v1.0 2013-06-23 用delphi编写 发布在吾爱破解论坛 http://www.52pojie.cn/thr 阅读全文

posted @ 2013-06-23 17:57 我最亲爱的说 阅读(10324) 评论(0) 推荐(0)

[delphi]SetWindowsHookExA函数入口处修改
摘要:library Project2;uses SysUtils, Classes, windows, Dialogs;{$R *.res}function GetModuleHandleA(a: string): Integer; stdcall; external 'kernel32.dll'{取程序或DLL句柄a:DLL名}function GetProcAddress(a: integer; b: string): Integer; stdcall; external 'kernel32.dll'{取DLL函数地址 a:模块句柄 b:函数名}function 阅读全文

posted @ 2013-06-23 10:20 我最亲爱的说 阅读(965) 评论(0) 推荐(0)

[Delphi]Delphi学习
摘要:procedure TForm1.btn1Click(Sender: TObject);var tmp: Integer;begin tmp := StrToInt(edt1.Text); if (tmp mod 2 = 0) then begin MessageBox(0, PAnsiChar(IntToStr(tmp)+' 为偶数'), '提示', MB_OK) end else begin MessageBox(0, PAnsiChar(IntToStr(tmp)+' 为奇数'), '提示', MB_OK) end;end; 阅读全文

posted @ 2013-05-22 20:12 我最亲爱的说 阅读(234) 评论(0) 推荐(0)