XE2011 - 博客园

2012年6月2日

摘要： //在标题栏绘制文字procedure TForm1.Button1Click(Sender: TObject);var dc:hdc;cvs:tcanvas;begindc:=getwindowdc(handle);//取得窗体的句柄cvs:=tcanvas.create; //生成画布cvs.Handle:=dc;cvs.textout(100,8,'my capt... 阅读全文

posted @ 2012-06-02 10:08 XE2011 阅读(232) 评论(0) 推荐(0)

SystemParametersInfo开关系统声音提示

摘要： SystemParametersInfo(spi_setbeep,0,NIL,spif_sendwininichange); //关闭 SystemParametersInfo(spi_setbeep,1,NIL,spif_sendwininichange); //打开//没有效果通过 Wiz 发布阅读全文

posted @ 2012-06-02 10:08 XE2011 阅读(130) 评论(0) 推荐(0)

SystemParametersinfo代码控制光标

摘要： //功能说明：SystemParametersinfo代码控制光标procedureTForm1.Button1Click(Sender: TObject);varh: HCURSOR;beginh:=LoadCursorFromFile('3dsmove.cur');//导入光标SetSystemCursor(h,ocr_normal);end;procedureTForm1.Button2Cl... 阅读全文

posted @ 2012-06-02 10:08 XE2011 阅读(191) 评论(0) 推荐(0)

delphi StatusBar在状态栏中显示checkBox

摘要： //StatusBar在状态栏中显示checkBoxprocedure TForm1.CheckBox1Click(Sender: TObject);beginImage1.Visible := not CheckBox1.Checked;end;procedure TForm1.FormCreate(Sender: TObject);beginCheckBox1.P... 阅读全文

posted @ 2012-06-02 10:08 XE2011 阅读(371) 评论(0) 推荐(0)

2012年6月1日

完美世界经典版本881外挂

摘要：下载地址http://roman2011.ys168.com/通过 Wiz 发布阅读全文

posted @ 2012-06-01 14:37 XE2011 阅读(2043) 评论(3) 推荐(1)

2012年5月31日

3,3完美外挂成品版本

摘要：在2012年内完成完美世界外挂目标完成1 delphi xe2编译通过2 http://450640526.ys168.com/ 我的程序中[2012年6月14日星期四]1.增加了密语功能2.增加了地图名称显示功能3.增加了人物收益时间功能4.修正了武器更换功能5.优化了部分代码[2012年6月10日星期日]1.增加了当错误日志文件大小 >1mb的时候自己删除 log文件2.增加了红条的显示3.增加了蓝条的显示4.增加了经验条的显示[2012年6月9日星期六]1.修正了I/O 32.错误2.增加了可以读取经验值信息3.增加了进度条功能[2012年6月8日星期五]1.对代码进阅读全文

posted @ 2012-05-31 17:20 XE2011 阅读(816) 评论(0) 推荐(0)

判断字符串中是否出现了以下字符串（汉字）

摘要： //判断列表框中是否出现了 “铁”字 //Pos(SubStr, Str)procedure TForm1.Button1Click(Sender: TObject);beginif Pos('铁', Edit1.Text) 0 then form1.Caption:='发现目标';end;procedure TForm1.FormCreate(Sender: TObject);beg... 阅读全文

posted @ 2012-05-31 13:01 XE2011 阅读(201) 评论(0) 推荐(0)

WM_GETMINMAXINFO限制窗体最大化时的大小_message

摘要：功能说明：WM_GETMINMAXINFO限制窗体最大化时的大小_message private{ Private declarations }procedureWMGetMinMaxInfo(varMsg: TWMGetMinMaxInfo);//取得最大化的消息message WM_GETMINMAXINFO;procedureTForm1.WMGetMinMaxInfo(varMsg: TW... 阅读全文

posted @ 2012-05-31 08:25 XE2011 阅读(310) 评论(0) 推荐(0)

winexec 启动控制面板中的程序

摘要：功能说明：winexec启动控制面板中的程序 procedureTForm1.Button1Click(Sender: TObject);VarX:integer;begin{启动控制面板}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL',9);{辅助选项属性-键盘}x:=winexec('rundll32.exe shell32.dll,... 阅读全文

posted @ 2012-05-31 08:25 XE2011 阅读(147) 评论(0) 推荐(0)

setFormTransParent() 透明窗体透明窗体控件正常显示

摘要： //TransparentFrm透明窗体透明窗体控件正常显示{以图片的形状作为窗体形态}{使窗体透明透明的只剩下个控件} //调用setFormTransParent(Form1); proceduresetFormTransParent(Form:TForm); begin Form.BorderStyle:=bsNone; Form.TransparentColor:=True; Form.TransparentColorValue:=20; Form.Color:=Form.TransparentColorValue; end; 通过为知笔记发布阅读全文

posted @ 2012-05-31 08:25 XE2011 阅读(352) 评论(0) 推荐(0)

TMaskEdit组件的简单应用

摘要： //TMaskEdit组件的简单应用掩码格式可以分为三部分每个部分之间用分号“;”分开。第一部分;第二部分;第三部分第一部分是掩码本身，也就是数据输入格式。在这一部分用一些特殊的格式符来表示应输入的字符类型及格式，常用的特殊格式符有：!去掉输入数据开头的空格符> 让输入数据的字母都变成大写，直到遇上掩码字符<< 让输入数据的字母都变成小写，直到遇上掩码字符><> 不限制输入数据字母是大写或小写\ ... 阅读全文

posted @ 2012-05-31 08:25 XE2011 阅读(260) 评论(0) 推荐(0)

TMainMenu带历史信息的菜单带历史信息的菜单(动态插入Insert)

摘要： //TMainMenu带历史信息的菜单带历史信息的菜单(动态插入Insert)//动态插入菜单项，首先要求创建TMenuItem菜单对象所需组件TMainMenuTOpenDialog//为TMainMenu创建FileOpen(name:Open1)------------Exit(name:Exit1)//main code here;uses ShellApi;public{ Public ... 阅读全文

posted @ 2012-05-31 08:25 XE2011 阅读(139) 评论(0) 推荐(0)

Win32Check对Windows操作注销重新启动关闭计算机_Win32Check

摘要： Application.Terminate;//退出程序Win32Check(exitWindowsEX(EWX_LOGOFF,0));//注销计算机//客户端没有所需的特权Win32Check(exitWindowsEX(EWX_REBOOT,0));//重新启动计算机Win32Check(exitWindowsEX(EWX_SHUTDOWN,0));//关闭计算机通过 Wiz 发布阅读全文

posted @ 2012-05-31 08:25 XE2011 阅读(253) 评论(0) 推荐(0)

undo RichEdit1

摘要： //undo RichEdit1//undoRichEdit1.Perform(EM_UNDO,0,0);//检查是否允许撤消Undo1.Enabled:=RichEdit.Perform(EM_CANUNDO,0,0)<>0;通过 Wiz 发布阅读全文

posted @ 2012-05-31 08:25 XE2011 阅读(105) 评论(0) 推荐(0)

TTrackBar 控制Memo1的Left和Width

摘要： //TTrackBar控制Memo1的Left和Widthprocedure TForm1.TrackBar1Change(Sender: TObject);beginMemo1.Left:=Trackbar1.Position+18;Memo1.Width:=W-Memo1.Left;end;procedure TForm1.FormCreate(Sender: TObject);beginw:... 阅读全文

posted @ 2012-05-31 08:25 XE2011 阅读(122) 评论(0) 推荐(0)

Testudo

每天要进步一点点。

公告