<?xml version="1.0" encoding="utf-8" ?><rss version="2.0"><channel><title><![CDATA[ypyRock的专栏]]></title><description><![CDATA[]]></description><link>https://blog.youkuaiyun.com/ypyRock</link><language>zh-cn</language><generator>https://blog.youkuaiyun.com/</generator><copyright><![CDATA[Copyright &copy; ypyRock]]></copyright><item><title><![CDATA[get CPU id (很全的)]]></title><link>https://blog.youkuaiyun.com/ypyRock/article/details/5048</link><guid>https://blog.youkuaiyun.com/ypyRock/article/details/5048</guid><author>ypyRock</author><pubDate>Thu, 19 Sep 2002 09:24:00 +0800</pubDate><description><![CDATA[//This unit can be used to detect the cpu model.unit CpuId; interface uses Windows, Mmsystem, Sysutils, Math, Dialogs; type     TCpuRec=record        Name:string[128];        Vendor:string[12];     ]]></description><category></category></item><item><title><![CDATA[取得某一dll所有输出函数名]]></title><link>https://blog.youkuaiyun.com/ypyRock/article/details/5047</link><guid>https://blog.youkuaiyun.com/ypyRock/article/details/5047</guid><author>ypyRock</author><pubDate>Thu, 17 Jan 2002 10:19:00 +0800</pubDate><description><![CDATA[取得某一dll所有输出函数名在uses里加上ImageHlpprocedure ListDLLFunctions(DLLName: String; List: TStrings);type  chararr = array [0..$FFFFFF] of Char;  var  H: THandle;  I,  fc: integer;  st: string;  arr: Pointer; ]]></description><category></category></item><item><title><![CDATA[取得自从开机到现在CPU运行的周期数，超毫秒级的精度]]></title><link>https://blog.youkuaiyun.com/ypyRock/article/details/5046</link><guid>https://blog.youkuaiyun.com/ypyRock/article/details/5046</guid><author>ypyRock</author><pubDate>Thu, 17 Jan 2002 10:19:00 +0800</pubDate><description><![CDATA[取得自从开机到现在CPU运行的周期数，超毫秒级的精度function Ticker : DWord; register;begin  asm          push EAX          push EDX          db $0f,$31          mov Result, EAX          pop EDX          pop EAX  end;end;pro]]></description><category></category></item><item><title><![CDATA[用winspool取得本机安装的打印机的详细信息]]></title><link>https://blog.youkuaiyun.com/ypyRock/article/details/5044</link><guid>https://blog.youkuaiyun.com/ypyRock/article/details/5044</guid><author>ypyRock</author><pubDate>Fri, 11 Jan 2002 17:35:00 +0800</pubDate><description><![CDATA[用winspool取得本机安装的打印机的详细信息在Delphi 6 Professional version on Windows 2000 Professional环境下测试过窗体的名字为"FPrint"，有TMemo 和 TCombobox 两个控件unit unit1; interface uses   Windows, Messages, SysUtils, Variant]]></description><category></category></item><item><title><![CDATA[全透明窗体（效果比较好）]]></title><link>https://blog.youkuaiyun.com/ypyRock/article/details/5045</link><guid>https://blog.youkuaiyun.com/ypyRock/article/details/5045</guid><author>ypyRock</author><pubDate>Fri, 11 Jan 2002 17:34:00 +0800</pubDate><description><![CDATA[全透明窗体（效果比较好）uses里加上ExtCtrlsprocedure tform1.setformtransparent;var  I: Integer;  FullRgn,  ClientRgn,  ControlRgn: THandle;  Margin,   MarginX,   MarginY,   X,   Y: Integer;  W,H,S :Integer;   bX,bY :]]></description><category></category></item><item><title><![CDATA[检测系统是不是windows xp]]></title><link>https://blog.youkuaiyun.com/ypyRock/article/details/5043</link><guid>https://blog.youkuaiyun.com/ypyRock/article/details/5043</guid><author>ypyRock</author><pubDate>Fri, 11 Jan 2002 09:39:00 +0800</pubDate><description><![CDATA[下面的代码可以检查所用的系统是不是windows xpuses Registry; ... function IsWinXP: Boolean; begin   Result := False;   if Win32Platform = VER_PLATFORM_WIN32_NT then     with TRegistry.Create do     try       RootKey :]]></description><category></category></item><item><title><![CDATA[取得的Outlook目录并在TTreeView里显示出来]]></title><link>https://blog.youkuaiyun.com/ypyRock/article/details/5041</link><guid>https://blog.youkuaiyun.com/ypyRock/article/details/5041</guid><author>ypyRock</author><pubDate>Mon, 07 Jan 2002 10:16:00 +0800</pubDate><description><![CDATA[outlook对象提供了一个MAPI命名空间可以访问其文件夹集合，每个文件夹都有一个唯一的字符型标识符，可以将其作为数据保存在TTreeNode的EntryID属性里。例程如下,uses里加上ComObj。  procedure LoadFolder(ParentNode: TTreeNode; Folder: OleVariant);  var    i: Integer;    node: T]]></description><category></category></item><item><title><![CDATA[Self-Delete程序之Delphi版本，终于搞定了。 (转载)]]></title><link>https://blog.youkuaiyun.com/ypyRock/article/details/5042</link><guid>https://blog.youkuaiyun.com/ypyRock/article/details/5042</guid><author>ypyRock</author><pubDate>Sat, 05 Jan 2002 18:21:00 +0800</pubDate><description><![CDATA[//转贴者：以前看过陆麟先生翻译过一篇这样的文章，是c版本的，我用delphi改写了没成功，今天去清华bbs转悠看见了这篇delphi版本的，特贴出来发信人: Litoad (Rick), 信区: Delphi 标  题: Self-Delete程序之Delphi版本，终于搞定了。 (转载) 发信站: BBS 水木清华站 (Mon Jun  4 20:51:55 2001)   ]]></description><category></category></item><item><title><![CDATA[delphi6 问题2]]></title><link>https://blog.youkuaiyun.com/ypyRock/article/details/5039</link><guid>https://blog.youkuaiyun.com/ypyRock/article/details/5039</guid><author>ypyRock</author><pubDate>Wed, 02 Jan 2002 15:05:00 +0800</pubDate><description><![CDATA[如果将一个int64类型的变量作为一个需要浮点数为参数的函数的参数（如：ln,sin等）会报告类型不匹配，而不会自动进行转换，如下例var  X: Int64;  Y: Extended;begin  X := 1;  Y := Ln(X);end;解决办法：给参数加上0.0var  X: Int64;  Y: Extended;begin  X := 1;  Y := Ln(X+0.0);end]]></description><category></category></item><item><title><![CDATA[delphi6 问题3]]></title><link>https://blog.youkuaiyun.com/ypyRock/article/details/5040</link><guid>https://blog.youkuaiyun.com/ypyRock/article/details/5040</guid><author>ypyRock</author><pubDate>Sun, 30 Dec 2001 15:31:00 +0800</pubDate><description><![CDATA[一个很怪的现象，试试下面代码1.在form上放一个TRichEdit2.放一个TLabel3.放一个TButton4.在Button1的onlick事件里写下面的代码并执行procedure TForm1.Button1Click(Sender: TObject);begin  Label1.Parent := RichEdit1;  Label1.Top := 20;]]></description><category></category></item><item><title><![CDATA[delphi6 问题1]]></title><link>https://blog.youkuaiyun.com/ypyRock/article/details/5038</link><guid>https://blog.youkuaiyun.com/ypyRock/article/details/5038</guid><author>ypyRock</author><pubDate>Sun, 30 Dec 2001 15:31:00 +0800</pubDate><description><![CDATA[在delphi里可以内嵌汇编语言直接访问一些寄存器如EAX,而在delphi6里执行下面代码会跳不出循环procedure Delphi6EAXBug; // loops forever with Delphi 6var  i: integer;begin  for i := 0 to 15 do    asm      mov eax,2    end;end;解]]></description><category></category></item><item><title><![CDATA[如何访问一个进程的内存空间]]></title><link>https://blog.youkuaiyun.com/ypyRock/article/details/5037</link><guid>https://blog.youkuaiyun.com/ypyRock/article/details/5037</guid><author>ypyRock</author><pubDate>Thu, 27 Sep 2001 11:29:00 +0800</pubDate><description><![CDATA[           如何访问一个进程的内存空间    在WIN32中，每个应用程序都可“看见”4GB的线性地址空间，其中最开始的4MB和最后的2GB由操作系统保留，剩下不足2GB的空间用于应用程序私有空间。具体分配如下：0xFFFFFFFF-0xC0000000的1GB用于VxD、存储器管理和文件系统；0xBFFFFFFF-0x80000000的1GB用于共享的WIN32 DLL、存储器映射文件]]></description><category></category></item><item><title><![CDATA[delphi里播放flash]]></title><link>https://blog.youkuaiyun.com/ypyRock/article/details/5036</link><guid>https://blog.youkuaiyun.com/ypyRock/article/details/5036</guid><author>ypyRock</author><pubDate>Thu, 27 Sep 2001 11:25:00 +0800</pubDate><description><![CDATA[                       delphi里播放flash    在flash大行其道的今天，是否想过在你的程序里也加入几幅flash炫一炫？我们就来试试，前提是你要装有flash播放软件（你的IE能显示flash），IE之所以能显示flash是安装了一个swflash.ocx控件，由Macromedia, Inc.提供，我们也用它了，win98在$Windows/System/M]]></description><category></category></item></channel></rss>