摘要：
在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
阅读(805)
评论(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
阅读(200)
评论(0)
推荐(0)
摘要：
//取得字符串中指定的字符procedure TForm1.Button1Click(Sender: TObject);varmystr:string;beginmystr:='Delphi7';showmessage(mystr[3]);end;通过 Wiz 发布 阅读全文
posted @ 2012-05-31 08:25
XE2011
阅读(157)
评论(0)
推荐(0)
摘要：
功能说明：取得Enter键procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);beginIF key=#13 thenshowmessage('你按下了Enter键');end;通过 Wiz 发布 阅读全文
posted @ 2012-05-31 08:25
XE2011
阅读(211)
评论(0)
推荐(0)
摘要：
功能说明：使用 “+”号实现多个字符串的连接procedureTForm1.btn1Click(Sender: TObject);varstr1,str2,str3:string;beginstr1:='Hello';str2:='World';str3:=str1+str2 ;ShowMessage( str3 );end;通过 Wiz 发布 阅读全文
posted @ 2012-05-31 08:25
XE2011
阅读(192)
评论(0)
推荐(0)
摘要：
功能说明：WM_GETMINMAXINFO限制窗体最大化时的大小_message private{ Private declarations }procedureWMGetMinMaxInfo(varMsg: TWMGetMinMaxInfo);//取得最大化的消息message WM_GETMINMAXINFO;procedureTForm1.WMGetMinMaxInfo(varMsg: TW... 阅读全文
posted @ 2012-05-31 08:25
XE2011
阅读(308)
评论(0)
推荐(0)
摘要：
功能说明：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
阅读(145)
评论(0)
推荐(0)
摘要：
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
阅读(251)
评论(0)
推荐(0)
摘要：
//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
阅读(104)
评论(0)
推荐(0)
摘要：
//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)
摘要：
//TRichEdit_控制TRichEdit组件滚动procedure TForm1.BitBtn1Click(Sender: TObject); //滚至末端 没反应beginwith RichEdit1 dobeginSelStart := Length(Text);Perform(em_scrollcaret, 0, 0);end;end;procedure TForm1.BitBtn3C... 阅读全文
posted @ 2012-05-31 08:25
XE2011
阅读(389)
评论(0)
推荐(0)
摘要：
//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
阅读(350)
评论(0)
推荐(0)
摘要：
//TMaskEdit组件的简单应用掩码格式可以分为三部分每个部分之间用分号“;”分开。第一部分;第二部分;第三部分第一部分是掩码本身，也就是数据输入格式。在这一部分用一些特殊的格式符来表示应输入的字符类型及格式，常用的特殊格式符有：!去掉输入数据开头的空格符> 让输入数据的字母都变成大写，直到遇上掩码字符<< 让输入数据的字母都变成小写，直到遇上掩码字符><> 不限制输入数据字母是大写或小写\ ... 阅读全文
posted @ 2012-05-31 08:25
XE2011
阅读(259)
评论(0)
推荐(0)
摘要：
//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
阅读(138)
评论(0)
推荐(0)
摘要：
//功能说明：TFileStream复制文件ProcedureFileCopy(Constsourcefilename, targetfilename:String);VarS, T: TFileStream;BeginS:=TFileStream.Create( sourcefilename, fmOpenRead );//生成文件流tryT:=TFileStream.Create( targe... 阅读全文
posted @ 2012-05-31 08:25
XE2011
阅读(142)
评论(0)
推荐(0)
摘要：
//功能说明：Memo1ContextPopup使Memo Edit原有的右键功能失效 Combox不行.paprocedure TForm1.Memo1ContextPopup(Sender: TObject; MousePos: TPoint;var Handled: Boolean);beginHandled := True;end;//Combox不行通过 Wiz 发布 阅读全文
posted @ 2012-05-31 08:25
XE2011
阅读(262)
评论(0)
推荐(0)
摘要：
write(); //在屏幕上输出字符串writeln();//在屏幕上输出字符串+ #13read;//读取readln;//用于屏幕暂停//----------------------------------------------var i,j :Integer;begintryWriteln('请输入i j的数值');readln(i,j);if i > j thenwriteln('最大... 阅读全文
posted @ 2012-05-31 08:25
XE2011
阅读(192)
评论(0)
推荐(0)
摘要：
功能说明：WM_nclButtonDblClk响应标题栏事件{在private上面写}proceduremy_nclButtonDblClick(varMsg:TWMNCLButtonDblClk);message WM_nclButtonDblClk;procedureTForm1.my_nclButtonDblClick(varMsg: TWMNCLButtonDblClk);beginApp... 阅读全文
posted @ 2012-05-31 08:25
XE2011
阅读(315)
评论(0)
推荐(0)
摘要：
unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,ExtCtrls,StdCtrls; type TForm1=class(TForm) //protected Timer1:TTimer; Button1:TButton; procedureT... 阅读全文
posted @ 2012-05-31 08:23
XE2011
阅读(220)
评论(0)
推荐(0)
摘要：
DELPHI--关于ValueListEditor控件(2011-02-22 17:56:30)转载▼标签：it 分类： 工作—编程1.请问在ValueListEditor里，如何知道我选择了哪一行吗？？ 答：用procedure TControlPanel.ParamEditorSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSel... 阅读全文
posted @ 2012-05-31 08:22
XE2011
阅读(1277)
评论(0)
推荐(0)
浙公网安备 33010602011771号