2002年01月_ypyRock的专栏_ypyRock

09月 01月

原创取得自从开机到现在CPU运行的周期数，超毫秒级的精度

取得自从开机到现在CPU运行的周期数，超毫秒级的精度function Ticker : DWord; register;begin asm push EAX push EDX db $0f,$31 mov Result, EAX pop EDX pop EAX end;end;pro

2002-01-17 10:19:00 1205

原创取得某一dll所有输出函数名

取得某一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;

2002-01-17 10:19:00 1336

原创用winspool取得本机安装的打印机的详细信息

用winspool取得本机安装的打印机的详细信息在Delphi 6 Professional version on Windows 2000 Professional环境下测试过窗体的名字为"FPrint"，有TMemo 和 TCombobox 两个控件unit unit1; interface uses Windows, Messages, SysUtils, Variant

2002-01-11 17:35:00 1760

原创全透明窗体（效果比较好）

全透明窗体（效果比较好）uses里加上ExtCtrlsprocedure tform1.setformtransparent;var I: Integer; FullRgn, ClientRgn, ControlRgn: THandle; Margin, MarginX, MarginY, X, Y: Integer; W,H,S :Integer; bX,bY :

2002-01-11 17:34:00 1225

原创检测系统是不是windows xp

下面的代码可以检查所用的系统是不是windows xpuses Registry; ... function IsWinXP: Boolean; begin Result := False; if Win32Platform = VER_PLATFORM_WIN32_NT then with TRegistry.Create do try RootKey :

2002-01-11 09:39:00 1211

原创取得的Outlook目录并在TTreeView里显示出来

outlook对象提供了一个MAPI命名空间可以访问其文件夹集合，每个文件夹都有一个唯一的字符型标识符，可以将其作为数据保存在TTreeNode的EntryID属性里。例程如下,uses里加上ComObj。 procedure LoadFolder(ParentNode: TTreeNode; Folder: OleVariant); var i: Integer; node: T

2002-01-07 10:16:00 1116

原创 Self-Delete程序之Delphi版本，终于搞定了。 (转载)

//转贴者：以前看过陆麟先生翻译过一篇这样的文章，是c版本的，我用delphi改写了没成功，今天去清华bbs转悠看见了这篇delphi版本的，特贴出来发信人: Litoad (Rick), 信区: Delphi 标题: Self-Delete程序之Delphi版本，终于搞定了。 (转载) 发信站: BBS 水木清华站 (Mon Jun 4 20:51:55 2001)

2002-01-05 18:21:00 1677 1

原创 delphi6 问题2

如果将一个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

2002-01-02 15:05:00 1029