自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(13)
  • 论坛 (28)
  • 收藏
  • 关注

原创 get CPU id (很全的)

//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];     

2002-09-19 09:24:00 1627

原创 取得自从开机到现在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 1210

原创 取得某一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 1346

原创 用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 1775

原创 全透明窗体(效果比较好)

全透明窗体(效果比较好)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 1246

原创 检测系统是不是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 1218

原创 取得的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 1118

原创 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 1684 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 1034

原创 delphi6 问题1

在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;解

2001-12-30 15:31:00 989

原创 delphi6 问题3

一个很怪的现象,试试下面代码1.在form上放一个TRichEdit2.放一个TLabel3.放一个TButton4.在Button1的onlick事件里写下面的代码并执行procedure TForm1.Button1Click(Sender: TObject);begin Label1.Parent := RichEdit1; Label1.Top := 20;

2001-12-30 15:31:00 1026

原创 如何访问一个进程的内存空间

           如何访问一个进程的内存空间    在WIN32中,每个应用程序都可“看见”4GB的线性地址空间,其中最开始的4MB和最后的2GB由操作系统保留,剩下不足2GB的空间用于应用程序私有空间。具体分配如下:0xFFFFFFFF-0xC0000000的1GB用于VxD、存储器管理和文件系统;0xBFFFFFFF-0x80000000的1GB用于共享的WIN32 DLL、存储器映射文件

2001-09-27 11:29:00 2378

原创 delphi里播放flash

                       delphi里播放flash    在flash大行其道的今天,是否想过在你的程序里也加入几幅flash炫一炫?我们就来试试,前提是你要装有flash播放软件(你的IE能显示flash),IE之所以能显示flash是安装了一个swflash.ocx控件,由Macromedia, Inc.提供,我们也用它了,win98在$Windows/System/M

2001-09-27 11:25:00 1474

空空如也

alphax(多喝了三五杯):进来讨论一下如何动态计算汇编指令的长度

发表于 2004-04-21 最后回复 2004-05-09

内嵌汇编如何使用 fword ptr ?

发表于 2004-02-25 最后回复 2004-04-21

一段nt下不用驱动进入ring0层的C代码,寻高手转成Delphi

发表于 2004-02-10 最后回复 2004-02-27

使用NtMapViewOfSection函数总是返回C0000018,why?

发表于 2004-02-16 最后回复 2004-02-17

addr 与 @ 操作不同吗??? 与汇编有关 请高手出招

发表于 2003-12-23 最后回复 2003-12-24

输出到哪里了??

发表于 2003-06-13 最后回复 2003-06-13

如何编程实现查找网上邻居-属性设置 里的连接名??

发表于 2003-05-14 最后回复 2003-05-17

如何确定一个函数在内存里起始和结束地址呢?

发表于 2003-05-13 最后回复 2003-05-13

请问 C的定义“WORD offset:12;”怎么转换成delphi的?

发表于 2003-05-12 最后回复 2003-05-12

悄悄问:a|=b 什么意思??? q

发表于 2003-05-09 最后回复 2003-05-09

没有类名 怎么用findwindow?

发表于 2002-12-26 最后回复 2002-12-26

【不解】微软搞的什么鬼?(WindowFromPoint)

发表于 2002-11-10 最后回复 2002-11-18

【不解】微软搞的什么鬼?

发表于 2002-11-10 最后回复 2002-11-15

送分题

发表于 2002-04-15 最后回复 2002-04-16

在Delphi里如何使用RegExp object??

发表于 2001-07-12 最后回复 2002-04-15

请问有没有提供win98下的telnet服务的软件?

发表于 2002-01-05 最后回复 2002-01-11

如何在win98下安装telnet服务?

发表于 2002-01-06 最后回复 2002-01-08

不要说我笨

发表于 2001-12-10 最后回复 2001-12-11

动态创建窗体时如何传递参数?

发表于 2001-10-04 最后回复 2001-11-09

超酷控件

发表于 2001-08-24 最后回复 2001-08-24

高手问的问题 :)

发表于 2001-08-05 最后回复 2001-08-06

ComboBox问题??

发表于 2001-07-16 最后回复 2001-07-17

类的引用

发表于 2001-07-12 最后回复 2001-07-13

修改DELPHI自带控件的问题。

发表于 2001-07-11 最后回复 2001-07-12

CPU降温原理???高手们可否讨论一下。

发表于 2001-06-27 最后回复 2001-07-11

软件发布:电视墙

发表于 2001-06-25 最后回复 2001-06-25

软件发布:虚拟盘

发表于 2001-06-07 最后回复 2001-06-07

关于JMAIL的一个问题。。。。。。

发表于 2000-10-11 最后回复 2000-10-11

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人 TA的粉丝

提示
确定要删除当前文章?
取消 删除