LYSoft

原创 LYSoft出品之QQ去广告+本地会员外挂原理 (QQ2009版本)

LYSoft出品之QQ去广告+本地会员外挂原理 (QQ2009版本)  不经意又到了09年4月17了,此文发布已经大半年了,QQ2009正式版刚好推出以前的QQ2009Beta版本,偶就懒的动了,正式版嘛,还要看看的 QQ2009本地会员原理:(by LYSoft Liu Yang) PE Explorer分析看了,新的QQ2009采用COM结构,以前的本地VI

原创 LYSoft之QQ去广告+本地会员外挂原理

LYSoft出品之QQ去广告+本地会员原理 (QQ2007,QQ2008和QQ2009适用) QQExt采用自动代码分析,支持QQ2007QQ2008,并支持QQ程序没架构改动下的一切新版下载 LYSoft QQExtQQ 2009即将支持 LYSoft出品之QQ去广告+本地会员外挂原理 (QQ2007,QQ 2008和QQ2009版本) [color=LimeGr

原创 Max internel clock speed about LPC901

 LPC901是NXP的8 Pins 8位单片机,有6个IO,128 Bytes RAM, 1K Flash,便宜得很,才3快多当使用内部RC振荡器的时候,通常主频就是7.x MHz,速度不够快这其实是可以通过修改TRIM实现12MHz的频率而无需使用外部晶振的0就最快,大于0就逐渐慢下来的// set RC CLK speed to about 12MHz-, 5:0 = 0 max speed

原创 移植uCOS到STR9的一些心得

玩STR9一段时间的,我用的是STR912FW44,属于STR91x系列中,档次较高的那个,有512K Flash和96K SRAM,96MHz的主频,足以全面取代普通单片机的.比较有趣的是STR9的指令集是兼容ARM7的,所以无怪乎称为ARM7的加强版.玩ARM9也不难的,都是Firmware调用,有点类似API,比起单片机直接操作寄存器方便多的.不过ARM9的资源就是多呢,玩着就是功能强大,有

原创 LY RTOS for WinAVR

/* LY RTOS a lightweight micro RTOS for WinAVR - GCC for ATMEL AVR micro controller build 2008.5.28 copyrights by LYSoft(C) Liu Yang http://G4Soft.net*/ // you cannot remove this for your

原创 Fix EEPROM access error for WinAVR

原创 解决Delphi的剪贴板的AsText方法乱码的问题

Wrong character in ClipBoard.AsText??In Delphi, use ClipBoard unit, a common method "ClipBoard.AsText" is doing a wrong way when using non-English character. How to fix it? Look into the source code,

原创 LYSoft站点改版

LYSoft站点改版 Please remember the domain name of LYSoft G4Soft http://www.G4Soft.net

原创 屏幕截图完美解决方案 --- LYSoft Liu Yang

可以截取layered窗口(包括透明窗口)的代码:procedure CaptureScreen(AFileName: string);const  CAPTUREBLT = $40000000;var  hdcScreen: HDC;  hdcCompatible: HDC;  bmp: TBitmap;  hbmScreen: HBITMAP;begin  hdcScreen := Cre

原创 屏闭2000/XP/2003系统的Ctrl+Alt+Del热键

元旦,哪里也没去送你一个代码吧,LY可不是轻易给人写代码的下面的方法适合任何Windows NT平台(4.0以上)(至少目前的WinNT都能支持)NT4,2000,XP,2003全部OK的,而且没有窗口闪烁,呵呵,编译后的DLL才16K,好用得很的别问我怎么Inject DLL到EXE呀,嘻嘻:)元旦快乐,新年新气象~~~library SASWinHook;{  SASWinHook  copy

原创 BORLAND第三方组件安装方法

不是由BORLAND提供的组件叫第三方组件：安装方法：就目前常见的各种形式的组件的安装方法介绍一下。  1  只有一个DCU文件的组件。DCU文件是编译好的单元文件，这样的组件是作者不想把源码公布。一般来说，作者必须说明此组件适合Delphi的哪种版本，如果版本不对，在安装时就会出现错误。也正是因为没有源码，给使用者带来了不便，那就是一旦Delphi版本升级，此组件就不能再使用了，当然有的作者给出

原创 怎么样知道硬盘上有哪几个分区或者指定的分区是在哪一个硬盘上

希望能得到这样的结果   磁盘  1  的分区  1  :  C  磁盘  1  的分区  2  :  D  磁盘  1  的分区  3  :  E  磁盘  1  的分区  4  :  F  磁盘  2  的分区  1  :  G  磁盘  2  的分区  2  :  I  磁盘  2  的分区  3  :  J  磁盘  2  的分区  4  :  K   ------------------

原创 win2000/xp/2003下不能关闭程序的方法

只针对2000以上系统,9X的就别问我了,4年没搞了:)   一般有4种方法:   1)DLL挂靠方法  程序改写为DLL结构,挂靠Explorer.exe上运行  好处：没进程实体，普通进程查看无效  缺点：可以通过代码叫Explorer.exe  Unload你的Dll，呵呵，还有Explorer出错时，会重新启用，那个时候需要重新挂靠你的DLL  改进：用Debug权限挂靠WinLogon.

原创 TMethod的妙用:解决动态创建的组件的事件赋值问题 by LYSoft LiuYang

program Test;uses  Windows,  SysUtils,  ExtCtrls,  Classes,  Forms;var  timer1:TTimer; Method:TMethod;procedure Timer1Timer(Sender: TObject);begin  MessageBox(0, aa, bb, 0);end;begin   tim

原创 用Delphi在2000和XP／2003下从Ring3进入Ring0的无驱动解决方法by LYSoft LiuYang

这段代码很有意义的父亲纪念版，它是在我一生人中最痛苦的时期所开发的。唉，一切都成为永恒的怀念...... 注意：需要JEDI Win32 API（JWA）库支持另外，该方法不适用于PAE模式（WinXP SP2配备AMD64或EMT64处理器的系统），而且还不能支持Win2003 SP1 uses  Windows, Dialogs, SysUtils, NTDDK,  JwaWinNT, Jwa

原创 Delphi6/7 中XML 文档的应用

Delphi6/7 中XML 文档的应用 XML文档是新一代的Web数据格式。它可以用树的形式储存一切数据。下面介绍一下TXMLDocument控件的一些用法：已定义：XMLDoc: TXMLDocument;EncoderMIME: TIdEncoderMIME;DecoderMIME: TIdDecoderMIME;xn:IXMLNode;f:TFileSt

原创 制作动态效果的Form

 How to make animateform .  do this esay,you need only one API.unit AnimateForm_Unit;interfaceuses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  StdCtrls;type

原创 计算出用字符串表示的数学表达式的值

// built by Liu Yang 2002.1.8library Expression;uses Dialogs, Math, SysUtils;Const  Symbol_Mod=M;  Symbol_Div=D;  Symbol_Shl=L;  Symbol_Shr=R;  Symbol_Or=O;   Symbol_Xor=X;  Symbol_A

原创 转换一批.bmp 文件为 .jpg

 转换一批.bmp 文件为 .jpgunit BMP2JPG_Unit;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls ,jpeg, ComCtrls, filectrl, Menus;type  TForm1

原创 查找一个特定的EXE是否在内存中运行

unit Find_Unit;interfaceuses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  StdCtrls, TLHelp32, ComCtrls;type  TFindForm = class(TForm)    Button1: TButton;    Edit1