Vsun-CSDN博客

原创 delphi对复杂泛型排序学习笔记

procedure TForm1.Button1Click(Sender: TObject);type TPerson = record Name: String; Age: Integer; end;var List: TList; Comparer: TComparer; OutList, TPerson1, TPerson2, TPe

2012-12-15 22:34:05 1372

原创控制toolbutton的状态

procedure TForm1.ToolButton1Click(Sender: TObject);begin // TToolButton(Sender).Down := not odd(TToolButton(Sender).Tag); // TToolButton(Sender).Tag := TToolButton(Sender).Tag + 1; TToolBut

2012-12-15 22:18:58 961

原创在TBitBtn钮上单击鼠标，然后放开鼠标，按钮能保持按下状态，再次单击，能恢复成弹起状态?

论坛上看到能人提这个问题，就试着做了做，重载了TBitBtnunit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Form

2011-10-16 22:03:50 870

前面，分别介绍了读取和设置中断入口地址的方法。在编程的实际过程中，若要修改某个具体的中断处理程序时，一般需按下面几步来完成：1)、读取指定中断的中断处理程序入口地址，并把它保存在存储单元内；2)、把用户编写的程序段设置为指定中断的新处理程序；3)、在用户程序结束之前(或不需要新的处理程序时)，把步骤1保存的入口地址恢复成处理该中断的入口地址。程序员按以上三步来编程，可保证：在其程序运行过程中，该指

2010-05-18 10:11:00 2638

原创解除进程疑惑 rundll32的作用及应用方法

Rundll32.exe是什么？顾名思意，“执行32位的DLL文件”。它的作用是执行DLL文件中的内部函数，这样在进程当中，只会有Rundll32.exe，而不会有DLL后门的进程，这样，就实现了进程上的隐藏。如果看到系统中有多个Rundll32.exe，不必惊慌，这证明用Rundll32.exe启动了多少个的DLL文件。当然，这些Rundll32.exe执行的DLL文件是什么，我们都可以从系统自

2008-03-06 14:51:00 806

转载 RSS2.0标准

RSS 是一种 XML 方言，因此RSS的规范也必须遵循XML的相关规范。在RSS文档中﹐它的根元素是,并包含一个表示其版本的version属性﹐如﹕整个RSS 档由包含在中的一个元素及其子元素组成。除了频道内容本身之外，还以(项,在RSS2.0版本中可以提供任意多个,但在0.9x版本中只能提供15个)的形式包含表示频道元数据(metadata)的元素。项通常是频道的主要部分，包含经常变化

2006-03-23 08:25:00 1436

转载 SQL学习

sp_addlinkedsrvlogin创建或更新本地 Microsoft® SQL Server™ 实例上的登录与链接服务器上远程登录之间的映射。语法sp_addlinkedsrvlogin [ @rmtsrvname = ] rmtsrvname [ , [ @useself = ] useself ] [ , [ @locallogin = ] locall

2006-03-10 14:55:00 1371

转载 VCL开发时实现按任意键继续

昨天群里有人问起了这个问题，一下子自己也意识到，这是个有意思的问题，所以就开始想了想。在DOS程序下都可以很容易实现，可是在VCL状态下呢，找了找资料Delphi自身不提共这样的功能，所有，只好自己写吧，应该很容易吧。反正From上有FormKeyPress等键盘事件处理过程呢。啊，慢着，记得前段时间不知道学习什么程序时，如果光标处在可编辑控件时，这些按键消息是不会传给From的啊，那F

2006-03-09 15:10:00 1702

转载 Delphi - 关于钩子函数HOOK(来自别人的BLOG）

本身我书上也有这样的教程，并且更详细更多，但这个更容易读懂，所以摘下来了。 Delphi - 关于钩子函数HOOK (1)基本概念钩子(Hook)，是Windows消息处理机制的一个平台,应用程序可以在上面设置子程以监视指定窗口的某种消息，而且所监视的窗口可以是其他进程所创建的

2006-03-09 08:44:00 5680

原创一定要讲给孩子们的20个小故事

1. 断箭——不相信自己的意志,永远也做不成将军.　　春秋战国时代,一位父亲和他的儿子出征打战.父亲已做了将军,儿子还只是马前卒.又一阵号角吹响,战鼓雷鸣了,父亲庄严地托起一个箭囊,其中插着一只箭.父亲郑重对儿子说:"这是家袭宝箭,配带身边,力量无穷,但千万不可抽出来."　　那是一个极其精美的箭囊,厚牛皮打制,镶着幽幽泛光的铜边儿,再看露出的箭尾.一眼便能认定用上等的孔雀羽毛制作.儿子喜上眉梢,贪

2006-01-11 16:26:00 1256

转载谈谈Unicode编码，简要解释UCS、UTF、BMP、BOM等名词

这是一篇程序员写给程序员的趣味读物。所谓趣味是指可以比较轻松地了解一些原来不清楚的概念，增进知识，类似于打RPG游戏的升级。整理这篇文章的动机是两个问题：问题一：使用Windows记事本的“另存为”，可以在GBK、Unicode、Unicode big endian和UTF-8这几种编码方式间相互转换。同样是txt文件，Windows是怎样识别编码方式的呢？我很早前就发现Unicode、Unic

2005-12-29 14:51:00 1321

转载 Delphi中的WideString类型学习

运行以下代码，便可以发现WideString的好处。var S: string;begin S := Test测试; ShowMessage(IntToStr(Length(S))); //返回的值为 8 ShowMessage(IntToStr(Length(WideString(S)))); //返回的值为 6 ShowMessage(Copy(S,4,2)); //返回的是

2005-11-18 12:45:00 6658 1

转载 Delphi与Excel的编程学习

昨天下午，群里有个朋友问了这么一个问题。问题：如何用Delphi来对Excel中某个单元格中的部分字符进行格式化。此类的资料几乎在网上绝种，反正我是没有找到，MSDN，各大论坛都是没有找到，从昨天下午找这类资料一直到现在(不包括睡觉3小时，打游戏8小时,看电影4.5小时,HOHO,看得偶真得把这该死的游戏放一放了)，就是没有找到一要点儿关于此问题的资料，无意中，进了百度的VBA贴吧，看到了

2005-11-17 11:36:00 2242

转载 Delphi中的动态数组!

var MyBuff1:array of string; //动态一维数组 MyBuff2:Array of Array String; //动态二维数组begin SetLength(MyBuff1,5); SetLength(MyBuff2,5,5);end;

2005-11-04 16:41:00 2469

转载在线播放器代码大全

在线播放器代码大全来源：http://www.siuke.com/bbs/read.php?tid=2251&fpage=1&toread=11.avi格式 2.mpg格式 3.rm格式 rtsp://203.207.131.35/vod/dawan-a.rm";>4.wmv格式http://activex.microsoft.com/activex/controls/mplayer/en/n

2005-09-28 14:11:00 2188

转载 Try 的用法

procedure TForm1.Button1Click(Sender: TObject);var SqlBak: string;begin //备份Sql语句 SqlBak := ADOQuery1.SQL.Text; try with ADOQuery1.SQL do begin Clear; Add(insert test values(张三

2005-09-23 11:28:00 1614

转载动态指定事件过程(比较精典)

默认情况下，Delphi的事件处理函数必须是一个类成员，不过可以通过以下的办法骗过系统，使用普通过程处理事件：procedure Test(dummy: Integer; Sender: TObject);begin ShowMessage(Hello, World!);end;procedure TForm1.FormCreate(Sender: TObject);var M : TMe

2005-09-23 10:20:00 1511

原创唐僧在如来面前吐真言(经典)

唐僧西天取得真经100年之后的一天，唐僧到如来家里做客。如来为了检验他这100年来修炼程度，席间谈话如下：　　众所周知，你当年的成功，离不开你的三个得力徒弟，悟空，八戒，沙僧。那么你本人最喜欢哪个徒弟呢？唐僧给的答案多少有些出乎如来的意料，那就是：八戒。　　"八戒最大的优点就是可爱。"唐僧满面笑容的说道，"有他就少不了笑声。有很多人误以为他懒惰，其实他并不懒惰。每次他打扫马厩或者收拾包裹，都是

2005-07-19 12:04:00 1193

原创从CSDN转来的文章，还可以!

IT方面的论坛太多了，有综合，有专业，有行业，在各个论坛里混了几年，体会颇深，以前是论坛哪里人多，往哪里去，新浪论坛，网易是经常去的，人多啊，好几十万，去了以后才发现没有意思，没有共同的语言，于是逛专业论坛，行业论坛，终于找到了共同语言，总结一下论坛的经验：人不在多，有仙则灵，贴不在多，有精则行，逛了大半辈子，一个IT人发展方向一定要除了技术外，业务，理论，思想一个都不能少，于是我推荐如下这些

2005-07-15 14:05:00 1155

转载调出 Internet 选项

WinExec(RunDLL32.exe Shell32.dll,Control_RunDLL InetCpl.cpl,,0, SW_SHOWNORMAL);

2005-07-10 12:39:00 1276

转载 Delphi 嵌入汇编学习

Function H32ToLow(Sdigit:LongWord):LongWord; Asm MOV EAX,Sdigit BSWAP EAX Mov Sdigit,AX End; Function H16ToLow(Sdigit:Word):Word; Asm MOV AX,Sdigit ROR AX,8 Mov Sdigit,AX End; Function

2005-07-07 15:00:00 1443

转载 Delphi调节音量

一、调节全部音量　　1．先在窗体中添加一个trackbar控件，可通过改变它的位置来调节音量，在trackbar1的属性中，我们把Max属性修改成255，改成这个值是为了便于进行二进制的音量调节操作。　　2．为了调用一个Windows函数，在uses子句里加上Mmsystem。　　3．为trackbar1的Onchange事件编写如下代码：　　procedure Tform1.TrackBar1c

2005-07-04 18:41:00 2351

转载在Delphi中使用ZLib的最新版本

ZLib(http://www.zlib.net)是现在使用最广泛的一套开源的通用无损压缩代码集了。它是LZ77 ((Lempel-Ziv 1977)的一个变种分支。它的代码是线程安全的，数据格式可以参见RFCs(Request for Comments) 1950 到1952(http://www.ietf.org/rfc/rfc1950.txt (zlib format), rfc1951.

2005-06-30 15:01:00 8238

转载 Delphi--Stream和Variant的转化

网上广为流传的两个函数，确实好用。记录一下procedure VariantToStream (const v : OleVariant; Stream : TMemoryStream); var p : pointer; begin Stream.Position := 0; Stream.Size := VarArrayHighBound (v, 1) - VarArrayLowB

2005-06-28 10:04:00 2077

转载 SQL学习笔记!

SELECT *FROM [TABLENAME]WHERE (ID IN (SELECT TOP [页容量] ID FROM [TABLENAME] WHERE ID IN (SELECT TOP 页容量*页数 ID FROM [TABLENAME]) ORDER

2005-06-13 19:10:00 1268

转载 Delphi中的类和对象--转自CSDN

谈谈Delphi中的类和对象1.登不了大雅之堂地理解几个概念说到类和对象，我们不能不提及这样几个概念：类，对象，实例。就我个人觉得可以这样来理解：对象指的是泛称，自然界的任何实体都可以看成一个对象；而类则是以这些对象某些特征而分成的一系列的种类；实例则是特指属于某一个类的一个对象。好啦，这些大道理我就不用多说了。不如来一个“背道而驰”的作法，我们用Delphicode 来阐述这些外国人提出的

2005-06-10 09:17:00 1340

转载 delphi压宿Access数据库

uses dao97,dao2000;procedure CompactMdbDatabase(srcDbname,dstDbname,oldpwd,newpwd:string;bAccess97:boolean=true);var idbEngine:_dbEngine;begin if oldpwd if newpwd if bAccess97 then begin idbe

2005-04-25 22:10:00 1231

转载弹出数库联接窗口!

PromptDataSource(ParentHandle: THandle; InitialString: WideString): WideString;此函数就可以弹出数据库的联接窗口，可以让用户选择连接的数据库类型级数据库此函数在 ADODB 中

2005-04-25 11:40:00 1394

转载 Delphi中将文件流的数据写入动态数组

varmyfile:TfileStream;mybuf:array of Pchar;beginmyfile:=TfileStream.Create(d:/a.txt,fmOpenReadWrite);setlength(mybuf,myfile.size);myfile.ReadBuffer(mybuf[0],myfile.Size);//delete(String(mybuf),1,myf

2005-04-22 19:56:00 2638

转载 Memo控件光标定位过程

procedure CursorPosition(Control: TMemo; col, row: integer);var Pos: integer;begin //检查行数是否超过了实际行数! 超过时即选最后一行 if Col>Control.Lines.Count then Col:=SendMessage(Control.Handle, EM_GETLINECOUNT, 0, 0)

2005-04-18 21:33:00 1384

转载 delphi 函数手册

名称类型说明 ageIndex 属性页索引 Pages 属性页 ParamCount 函数返回在命令行上传递给程序的参数数量 ParamStr 函数返回指定的命令行参数 Pen 属性画刷设置 Pi 函数返回圆周率Pi Picture 属性显示图象 PictureClosed 属性设置Closed位图 PictureLeaf 属性设置Leaf位图 PictureMinus 属性

2005-04-17 02:48:00 1214

转载 Delphi常用函数应用

得到WINDOWS的SYSTEM路径: 方法: var MySysPath : PCHAR ; begin GetMem(MySysPath,255); GetSystemDirectory(MySysPath,255);

2005-04-17 02:15:00 1296

转载二进制转十进制

var s :string; i, j : integer; n : integer; begin s := 01100001; j := length(s); n := 0; for i := 1 to j do begin n := n + strtoint(s[i]) shl (j -i);

2005-04-16 20:20:00 1071

转载在exe文件中嵌入文件并释放

以前有不少文章也是关于这个问题的，不过这些老文章里讲述的方法通常让你需要做较多的工作，而其实并不需要这么工作，因为在Delphi5中的更加简便的方法。首先，我想给你介绍一下Delphi5自带的一个演示程序。这个程序叫"Resource Explorer"，你可以在"Delphi5"目录下找到，这个程序的功能，也许你已经猜到了，就是浏览资源(Resource)。这是程序一个小巧而方便的工具，它可

2005-04-14 13:49:00 2365

原创很经典的十五句话，从别人的blog上看来的!

1，记住该记住的，忘记该忘记的。改变能改变的，接受不能改变的　　　　2，能冲刷一切的除了眼泪，就是时间，以时间来推移感情，时间越长，冲突越淡，仿佛不断稀释的茶　　　　3，怨言是上天得至人类最大的供物，也是人类祷告中最真诚的部分　　　　4，智慧的代价是矛盾。这是人生对人生观开的玩笑。　　　　5，世上的姑娘总以为自己是骄傲的公主(除了少数极丑和少数极聪明的姑娘例外) 　　　　6，如果敌人让你生

2005-04-14 02:40:00 1062

转载 Delphi之数组

Delphi之数组Object Pascal中可以建立丰富的数据类型。数组毫无疑问也是众多自定义数据类型中的一种。TypeTA = array[0..9] of Integer;...varA : TA;和下面这段代码通常效果是相同的（不同的地方在类型篇再说）varA : Array [0..9] of Integer;这相当于C中的in

2005-04-13 11:50:00 1484

转载 DELPHI的编译指令

DELPHI的编译指令{$IFDEF WIN32} -- 这可不是批注喔! 对于Delphi来说﹐左右大括号之间的内容是批注﹐然而「{$」(左括号后紧接着货币符号)对于Compiler(编译器)而言并不是批注﹐而是写给Compiler看的特别指示。应用时机与场合 Delphi中有许许多多的Compiler Directives(编译器指令)﹐这些编译指令对于我们的程序发展有何影响呢? 它们又能帮

2005-04-13 11:44:00 1402

转载 delphi中使用API时的一点注意之处

我们知道，很多情况下，Windows API函数都需要一个缓冲区，例如以获取临时目录的API GetTempPath为例，这个函数需要一个Buffer用来存放返回的目录名称，而很多人代码(包括许多高手和Borland的专家)是这样写的：function GetTempDirectory: String;var TempDir: array[0..255] of Char;begin GetTe

2005-04-12 13:46:00 1217

转载 DBGrid 应用全书

2005-04-10 21:19:00 1468

转载 delphi 编码转换 unicode gbk big5

以下代码在DELPHI 7上调试通过，主要使用了api函数中MultiByteToWidechar function UnicodeEncode(Str:string;CodePage:integer):WideString;var Len:integer;begin Len:=Length(Str)+1; SetLength(Result,Len); Len:=MultiByteToWi

2005-04-09 04:15:00 1756

空空如也

空空如也