XE2011 - 博客园

2013年2月23日

摘要： MFC DLL的创建关键点实现过程1.创建1个 MFC AppWizard(dll),Project name:project01 2.选中 Regular DLL using shared MFC DLL.单击Finished完成。3.在project01.cpp中加入自定义的函数，代码如下 1 2 //project01.cpp:Definestheinitiali... 阅读全文

posted @ 2013-02-23 18:53 XE2011 阅读(246) 评论(0) 推荐(0)

MFC DLL的调用

摘要： MFC DLL的调用关键点实现过程 1.新建1个 MFC AppWizard（exe）项目，Project name:MFC01 2.选中Dialog Base对话框类型的程序。3.删除多余的控件，添加1个按钮，编译一下。4.将project01 Debug里面的project01.dll复制到MFC01的Debug目录下；5.将project01 Debug里面的project01.lib复制到... 阅读全文

posted @ 2013-02-23 18:53 XE2011 阅读(425) 评论(0) 推荐(0)

DLL 实际应用版本

摘要： DLL 实际应用版本关键点使用了1个 .cpp文件使用了1个 .h文件实现过程DLL的 .CPP文件 #include"project01.h" #definefunction_declspec(dllexport) intadd(intx,inty) { returnx+y; } ... 阅读全文

posted @ 2013-02-23 18:53 XE2011 阅读(134) 评论(0) 推荐(0)

在DLL中存放资源

摘要：在DLL中存放位图资源关键点实现过程DLL1.用向导新建1个MFC Dll程序文件名为 project012.Insert Resource导入2张.bmp位图 IDB_BITMAP1 IDB_BITMAP2 3.在Resource中定义资源4.编译生成dll #defineIDB_BITMAP15000 #defineIDB_BITMAP25001 #de... 阅读全文

posted @ 2013-02-23 18:53 XE2011 阅读(251) 评论(0) 推荐(0)

调用Window DLL中的API

摘要：这个问题通常出来出现在VC++6.0这样的低版本，VS 2008就可以直接使用API GetUserDefaultUILanguage SetLayeredWindowAttributes QueueUserWorkItem通过为知笔记发布阅读全文

posted @ 2013-02-23 18:52 XE2011 阅读(283) 评论(0) 推荐(0)

2012年9月29日

<<完美国际>>，游戏发布号945

摘要： >，游戏发布号945人物信息ID变量名对象属性名偏移值结果显示数值说明查找数据的方法人物的属性值的结果=[[[B3F6CC]+1C]+34]+偏移值[角色对象地址]+偏移值CE1name名称[+5FC]+0hiunicode龙龙内存遍历2hpMin最小红+4942715CE3hpMax最大红+4DC2715结构化内存监视器4mpMin最小蓝+4981639结构化内存监视器5mpMax最大蓝+4E01639结构化内存监视器6spirit元气最小值+4A840写出现等到坐标计算的过程（推导过程）结构化内存监视器7objId目标ID+bd48id角色ID号+4608164304通过目标ID查找阅读全文

posted @ 2012-09-29 09:29 XE2011 阅读(1162) 评论(0) 推荐(0)

2012年7月26日

StartCount() 时间计数器

摘要： { 1 h=1*60 m=1*60*60 s=1*60*60*1000 hs=3600000hs}{时间计时器 00:01:14}//label1.Caption:= StartCount();function StartCount():string;{$j+}consth:Integer=0;m:Integer=0;s:integer=0;{$j-}begininc(s);if s>=60 thenbeginInc(m);s:=0;end;if m>=60 thenbeginInc(h);m:=0;end;Result:=Format('%.2d:%.2d:%.2d&# 阅读全文

posted @ 2012-07-26 08:56 XE2011 阅读(383) 评论(0) 推荐(0)

Get_HD_Serial() 获得磁盘驱动器序列号

摘要： {获得磁盘驱动器序列号} function Get_HD_Serial(const Drivedir: Char): string; var Nu: DWORD; Vf: DWORD; VolumeInfo: array[0..MAX_PATH] of Char; V_n: DWORD; begin 阅读全文

posted @ 2012-07-26 08:50 XE2011 阅读(790) 评论(0) 推荐(0)

getSys32Path()得到系统System32路径

摘要： {得到系统C:\Windows\system32 路径}//调用Edit1.text:=getSys32Path();function getSys32Path():string;varsPath : PCHAR ;beginGetMem(sPath,255);GetSystemDirectory(sPath,255);Result := sPath;//C:\Windows\system32end;通过为知笔记发布阅读全文

posted @ 2012-07-26 08:50 XE2011 阅读(200) 评论(0) 推荐(0)

GetDriveTypeA() 查看驱动器类型

摘要： {GetDriveType} //调用GetDriveTypeA(Memo1); procedureGetDriveTypeA(Memo:TMemo); var i:Integer; C:String; DType:Integer; DriveString:String; begin //通过循环依次判断各盘符的类型 Memo.Clear; fori:=65to90do begin C:=chr(i)+':\'; DType:=GetDriveType(PChar(C)); caseDTypeof 0:DriveString:=C+'不能判断的驱动器类型.'; 阅读全文

posted @ 2012-07-26 08:50 XE2011 阅读(734) 评论(0) 推荐(0)

GetComputerName() GetUserName() 获取本机当前用户名

摘要： {获取本机当前用户名}//调用返回值:= GetUser();function GetUserName(): string;varBuffer: array[0..255] of Char;Size: cardinal;beginSize := 256;if GetUserName(Buffer, Size) thenbeginResult := BufferendelsebeginResult := 'Unknown'end;end;{获取计算机名}//调用返回值:= GetComputerName();function GetComputerName(): string 阅读全文

posted @ 2012-07-26 08:50 XE2011 阅读(331) 评论(0) 推荐(0)

Link() 打开网址

摘要： usesShellAPI;{打开网址}//调用Link('www.baidu.com'); procedureLink(URL:string); begin ShellExecute(Application.Handle,nil,PChar(URL),0,0,SW_SHOWNORMAL); end; 通过为知笔记发布阅读全文

posted @ 2012-07-26 08:50 XE2011 阅读(247) 评论(0) 推荐(0)

GetPYIndexChar()取得汉字的第一个字母

摘要： {取得汉字的第一个字母} //调用 edit1.text:=GetPYIndexChar('你')functionGetPYIndexChar(str:string):char; begin caseWORD(str[1])shl8+WORD(str[2])of $B0A1..$B0C4:result:='A'; $B0C5..$B2C0:result:='B'; $B2C1..$B4ED:result:='C'; $B4EE..$B6E9:result:='D'; $B6EA..$B7A1:result:= 阅读全文

posted @ 2012-07-26 08:50 XE2011 阅读(231) 评论(0) 推荐(0)

EmptyRecycle() 清空回收站

摘要： //在uses下面引用function SHEmptyRecycleBinA(Wnd:HWND;str:PChar;WRD:DWORD):Integer;stdcall; external 'SHell32.dll';{清空回收站}//调用EmptyRecycle();functionEmptyRecycle():boolean; begin Result:=true; try ifApplication.MessageBox('确定要清空回收站吗？','提示',MB_YESNO)=ID_YESthen SHEmptyRecycleBinA(Ap 阅读全文

posted @ 2012-07-26 08:50 XE2011 阅读(264) 评论(0) 推荐(0)

清空IE记录()

摘要： //============================================================================== {*******************************************************} {} {清空IE记录} {} {版权所有(C)2012testStudio} {} {最后修改2012年7月23日13:4... 阅读全文

posted @ 2012-07-26 08:49 XE2011 阅读(195) 评论(0) 推荐(0)

Testudo

每天要进步一点点。

公告