- 博客(198)
- 资源 (23)
- 收藏
- 关注
原创 SQL SERVER中扩展存储过程大全
--获得MS SQL的版本号 execute master..sp_msgetversion --得到硬盘文件信息 --参数说明:目录名,目录深度,是否显示文件 execute master..xp_dirtree c: execute master..xp_dirtree c:,1 execute master..xp_dirtree c:,1,1 --列出服务器上安装的所有
2008-10-28 19:00:00 1117
转载 RichEdit控件 SDK 参考手册
RichEdit控件 SDK 参考手册 摘要: 本文对Rich Edit控件底层消息机制进行了讲解,以期读者对Windows平台下的Rich Edit控件有一个更深入的认识,同时对于使用Win32 SDK进行开发的人员具有一定参考价值。因为文章的初衷是引领VB程序员通过Win32 API调用来扩展VB下的Rich Edit控件的功能,所以对于每个消息的详细说明和注意事项未作过多说明,感兴趣
2008-10-23 22:30:00 2869 1
转载 让BDS2007(Delphi2007&C++Builder2007)编译出一个个性的文件名,而不是以Project的名称来命名
在BDS2007当中调用的是MSBuild来完成最终的编译,而其实MSBuild支持来指定文件名,但是BDS2007却对它“视而不见”,虽然你可以手工去编辑Delphi/CB的project源文件,来指定一个,但是编译是可以生成一个际定的文件名,却无法在IDE当中通过Run或F9来执行,并且也无法在IDE当中完成改名。不过,很有意思的是,在工程选项的Application当中,却可以指定文件的
2008-10-17 19:31:00 1024
转载 Delphi编写windows外壳扩展
Delphi编写windows外壳扩展 对于操作系统原理比较了解的朋友都会知道,一个完备的操作系统都会提供了一个外壳(shell),以方便普通的用户使用操作系统提供的各种功能。windows(在这里指的是windows 95/windows nt4.0以上版本的操作系统)的外壳不但提供了方便美观的gui图形界面,而且还提供了强大的外壳扩展功能,大家可能在很多软件中看到这些外壳扩展了。
2008-10-17 12:18:00 1240
转载 精彩SQL收藏
模糊表名的联合查询..create table tz2008_1_1(id int,name varchar(50))insert into tz2008_1_1 select 1,acreate table tz2008_1_2(id int,name varchar(50))insert into tz2008_1_2 select 2,bcreate table t
2008-10-15 23:41:00 1588
原创 文件(夹)复制、删除、重命名
//------------------------------------------------------------------------------ // 删除目录 //------------------------------------------------------------------------------ function DelDirect
2008-10-15 22:46:00 1479
转载 行列转换的SQL
/*标题:普通行列转换(version 2.0)作者:爱新觉罗.毓华 时间:2008-03-09地点:广东深圳说明:普通行列转换(version 1.0)仅针对sql server 2000提供静态和动态写法,version 2.0增加sql server 2005的有关写法。问题:假设有张学生成绩表(tb)如下:姓名 课程 分数张三 语文 74张三 数学 83张三 物理 93李四 语文 74李四
2008-10-15 19:53:00 1291
转载 小写金额转换为大写
function MoneyToUpper(const NumBer: Double): string;var StrNumber, AUpperNum, AMoneyUnit: string; UpperNum: array[0..9] of string; MoneyUnit: array[1..16] of string; I: Integer; AZer
2008-10-15 19:30:00 904
转载 检测隐藏进程
许多用户都有过用Windows自带的任务管理器查看所有进程的经验,并且很多人都认为在任务管理器中隐藏进程是不可能的。而实际上,进程隐藏是再简单不过的事情了。有许多可用的方法和参考源码可以达到进程隐藏的目的。令我惊奇的是只有很少一部分的木马使用了这种技术。估计1000个木马中仅有1个是进程隐藏的。我认为木马的作者太懒了,因为隐藏进程需要进行的额外工作仅仅是对源代码的拷贝-粘贴。所以我们应该期待即将到
2008-10-15 13:11:00 5487 2
转载 Delphi操作Excel大全
Delphi 控制Excel(一) 使用动态创建的方法首先创建 Excel 对象,使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( Excel.Application );1) 显示当前窗口:ExcelApp.Visible := True;2) 更改 Excel 标题栏:ExcelApp.Caption := 应用程序
2008-10-13 11:13:00 1352 2
转载 Delphi写Sql2000扩展存储过程的例子
Delphi写Sql2000扩展存储过程的例子library project1;uses Windows, SysUtils, MSODSApi;...{$R *.res}Function GetParamStr(pSrvProc: SRV_PROC; Index : integer; Var Param : String ) : integer;
2008-10-11 22:00:00 1549 2
转载 探索Delphi类与对象的内存结构
探索Delphi类与对象的内存结构 初次接触DELPHI对它提供的RAD快速编程模式颇感神奇,随手拖放及格控件设定些属性一个应用程序就诞生了,我正是被这种特性所吸引。随着深入
2008-10-11 13:32:00 1280
转载 Delphi的原子世界
DELPHI的原子世界在使用Delphi开发软件的过程中,我们就像草原上一群快乐牛羊,无忧无虑地享受着Object Pascal语言为我们带来的阳光和各种VCL控件提供的丰富的水草。抬头望望无边无际蔚蓝的天空,低头品尝大地上茂密的青草,谁会去想宇宙有多大,比分子和原子更小的东西是什么?那是哲学家的事。而哲学家此时正坐在高高的山顶上,仰望宇宙星云变换,凝视地上小虫的爬行,蓦然回头,对我们这群吃草
2008-10-11 13:12:00 1144
原创 获取进程列表、名称、路径
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, TLHelp32, psapi;type TForm1 = class(TForm) Button1:
2008-10-08 20:19:00 2456
原创 在DBGRID里添加行序号
// 1. create new blank field in dbgrid // 2. rename the title with No // 3. put this code in OnDrawColumncell // 4. Now your Grid has a row number procedure TForm1.DBGrid1DrawColum
2008-10-08 08:50:00 3572
转载 有教育意义的故事
1、土拨鼠哪去了在教育教学过程中,常遇到这样的情况,学生因为痴迷于电脑、电视、小说等往往放松了学业,忘记了最初的追求目标,针对这种情况,教师不妨给他们叫这样一个故事:有三只猎狗追一只土拨鼠,土拨鼠钻进了一个树洞。这个树洞只有一个出口,可不一会儿,从树洞里钻出了一只白色的兔子,兔子飞快的向前奔跑,三只猎狗围追堵截,兔子急了,"噌"的一下爬上了另一颗大树。兔子在树上,仓惶中没有站稳,一下子掉了下来,砸
2008-10-08 08:44:00 7481
原创 彻底删除_desktop.ini
win目录下,有个rundl132.exe的文件 你所有硬盘的目下有个_Desktop.ini的隐藏文件 如果有的话,你就是中毒了(Worm.Viking.cx Worm.Viking.af Worm.Viking.bo)。什么杀毒软件都没有用的!!! 现在这个病毒已经出现相当多的变种。我查阅了很多资料和网站了,瑞星,金山,卡巴,奈何不了的!教你彻底删除_desktop.ini 该病毒会在每个
2008-10-08 08:40:00 10047 1
原创 DLL函数写法 让我很受教育
通常我会这样写:function Test(Str,RValue: PChar): Integer; stdcall;var S:String; begin S:=This is Test+Str; StrPCopy(RValue,S); Result:= Length(S); end; 今天看了CSDN上叫僵哥的一番话,很受教育,如下:
2008-10-07 20:18:00 1142
转载 Delphi 正则表达式起步
在 Delphi 中使用正则表达式, 目前 PerlRegEx 应该是首选, 准备彻底而细致地研究它.官方网站: http://www.regular-expressions.info/delphi.html直接下载: http://www.regular-expressions.info/download/TPerlRegEx.zip安装方法:1、先把解压的 TPerlRegE
2008-10-07 00:09:00 3154
转载 Delphi 正则表达式(TRegExpr)
首先介绍的是这个单元的主角:TRegExpr类,这个类包括很多成员,这里仅简单的介绍一下一般匹配的过程。下面是一段在文本中提取邮件地址的代码:Procedure GetName(TextToCheck:String;aList:TStringList);VarmyExpr: TRegExpr;beginmyExpr := TRegExpr.Create;TrymyExpr.Expressi
2008-10-06 23:45:00 3747 1
转载 实现自动按键的方法 驱动级模拟(硬件模拟)
有些游戏直接用au3里面的模拟点击/按键都是无效的,包括qq2007也是无法实现,下面是一个解决方法,具体实现方法(vb的),想改成au3的,还没成功,有兴趣的朋友也来试试.驱动级模拟 如果上面的方法你都试过了,可是你发现目标程序却仍然顽固的不接受你模拟的消息,寒~~~~~~~~~还好,我还剩下最后一招,这就是驱动级模拟:直接读写键盘的硬件端口! 有一些使用DirectX接口的
2008-10-06 21:35:00 10549 3
转载 Delphi中array of const应用
Delphi的Format函数大家都用得很多,第二个参数用着确实很方便。最近在数据库开发应用中需要自己创建一个带array of const参数的函数,对于常用的类型String,Integer,Pointer处理都没什么问题,但当用到Widestring类型时却出错,摸索了一上午,感觉获益良多。现在将问题、解决问题的思路、分析方法等一一道来,希望对诸君有所启发就达到了我写这篇文章的目的了!
2008-10-05 14:21:00 3112
原创 向指定HWND发送字符串
procedure SendKeys(focushld: hwnd; sSend: string);var i: integer; ch: byte;begin if focushld = 0 then Exit; i := 1; while i do begin ch := byte(sSend[i]); if Win
2008-10-04 14:57:00 1085
转载 Delphi2009新特性的介绍
集中在Unicode,以及一些新的URL上,我试图从一些不同的角度察看一下Delphi2009都有些什么东西.IDE:粗看起来Delphi2009的IDE较之Delphi2007并没有什么特别的增强。主要的UI元素也没有大的变化。最显著的变化就是Project Manager和Tool Palette。Class Explorer只是针对本工程的,并不会随着Editor中文件的变化而变化,新增的V
2008-10-04 09:14:00 2865 1
原创 判断中英文的函数
function ByteType(const S: string; Index: Integer): TMbcsByteType; 函数返回值可以判断一个字符串中,某个Char是单个字母,还是双字节的前一位或后一位。 返回值: mbSingleByte 单字母 mbLeadByte 双字节第一位 mbTrailByte 双字节第二位 proced
2008-10-03 18:20:00 1499
转载 Windows消息
Windows消息汇总WM_NULL = $0000; WM_CREATE = $0001; 应用程序创建一个窗口 WM_DESTROY = $0002; 一个窗口被销毁 WM_MOVE = $0003; 移动一个窗口 WM_SIZE = $0005; 改变一个窗口的大小 WM_ACTIVATE = $0006; 一个窗口被激活或失去激活状态; WM_SETFOCUS = $0007; 获得焦
2008-10-03 16:47:00 692 1
转载 关于钩子函数的讲解
这是win32汇编语言中关于钩子函数的讲解,是丛windows的底层讲的,对于c,vb,delphi语言,原理都相同,只是语法的问题。 WINDOWS钩子函数 本文中我们将要学习WINDOWS钩子函数的使用方法。WINDOWS钩子函数的功能非常强大,有了它您可以探测其它进程并且改变其它进程的行为。 理论: WINDOWS的钩子函数可以认为是WINDOWS的主要特性之一。利用它们,您可
2008-10-03 16:44:00 1368
转载 Delphi - 关于钩子函数HOOK (二)
用DELPHI编制钩子函数Windows消息管理机构提供了能使应用程序访问控制消息流所谓的钩子(HOOK)机制。钩子有多种,分别用于捕获某一特定类型或某一范围的消息。如:键盘消息,鼠标消息等。我们这里仅以键盘钩子的使用为例,讨论在DELPHI下怎样编写DLL程序和怎样在自己的程序中安装使用键盘钩子函数,并讨论了不同程序使用同一DLL文件时怎样共享数据。一、 钩子过滤函数的编写说明由于钩子过滤函数必
2008-10-03 16:39:00 1220
转载 Delphi - 关于钩子函数HOOK (一)
基本概念钩子(Hook),是Windows消息处理机制的一个平台,应用程序可以在上面设置子程以监视指定窗口的某种消息,而且所监视的窗口可以是其他进程所创建的。当消息到达后,在目标窗口处理函数之前处理它。钩子机制允许应用程序截获处理window消息或特定事件。钩子实际上是一个处理消息的程序段,通过系统调用,把它挂入系统。每当特定的消息发出,在没有到达目的窗口前,钩子程序就先捕获该消息,亦即钩子函数先
2008-10-03 16:37:00 1188
转载 用跨进程子类化技术实现对其它进程消息的拦载
大家都知道每个窗口都有默认的窗口函数来进行对窗口消息的处理. 而子类化技术就是替换窗口的窗口函数为自己定义的函数的技术.例如下面的代码:var Form1: TForm1; OldWndProc: Pointer;implementation{$R *.dfm}function NewWndProc(hHwnd, Msg, wParam, lParam: LongWORD): Lon
2008-10-03 13:25:00 1235
转载 浅谈Delphi中进程间的数据共享
DLL是创建Windows应用程序,实现代码重用的重要手段。那么当我们需要在进程间共享数据时,怎样做才能快捷方便地实现呢?在32位应用系统中,每个应用程序会将DLL映射到自己的地址空间,同时DLL中的数据也就随之被映射了。这样,每个应用程序都有自己的数据实例,在一个应用程序中修改DLL中的全局变量,不会影响其它的应用程序。DLL的使用似乎与我们的目的相背离,那么如何才能实现我们想要的东东呢?这
2008-10-03 13:20:00 863
转载 利用内存映射文件在两个进程间共享数据
private hMapFile: THandle; MapFilePointer: Pointer; public { Public declarations } end;var Form1: TForm1;implementation{$R *.DFM}procedure TForm1.FormCreate(Sende
2008-10-03 13:04:00 1980
转载 从内存中加载并运行exe
{配合anskya的AnyWhereFileToPas效果不错}{ ******************************************************* }{ * 从内存中加载并运行exe * }{ ***********************************************
2008-10-02 14:42:00 2036
转载 字符串排序等算法
15,1,5,10,13,14,50,4,55,8,67,68,69,3,12,57,70,74 字符串,排序后再把连续数字用-连接在一起,结果为:1,3-5,8,10,12-15,50,55,57,67-70,74function NumberSort(List: TStringList; Index1, Index2: Integer): Integer;
2008-09-25 14:13:00 1238
原创 字符串与16进制互转
//字符串转为16进制 function StrToHex(AStr: String): String;var i : Integer;begin Result := ; for i := 1 to Length(AStr) do Result := Result + IntToHex(ord(AStr[i]), 2);end;//16进
2008-09-25 11:37:00 1084
原创 ACCESS SQL语法参考
ACCESS SQL语法参考=================一. 基础概念可以使用的数据类型如下:1. TEXT:文本型(指定长度时),备注型(不指定长度时);2. CHAR,NCHAR,VARCHAR,NVARCHAR:文本型,可以指定长度,否则默认值为255!3. BYTE,TINYINT:数字-字节,不要指定长度和精度,否则会报错!
2008-09-20 13:30:00 1978 1
原创 通过读文件方式获得收藏夹中URL
{*******************************************************}{ }{ 通过读文件方式获得收藏夹中URL }{
2008-09-11 13:21:00 964
原创 GDI+用PNG图片做半透明异型窗口
{*******************************************************}{ }{ GDI+用PNG图片做半透明异型窗口 }{
2008-09-11 08:23:00 4386
C#身份信息动态生成源代码(winform面向对象、多线程、数据存储等)
2018-10-09
SQL练习题和答案(难度★★★☆☆)
2018-03-06
Excel公式大全操作应用实例(史上最全)
2018-03-06
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人