- 博客(43)
- 收藏
- 关注
RSS订阅原创 让你的程序只运行一次
一次有趣的探索document.title="一次有趣的探索 - "+document.title我们的程序有时候只允许运行一次，并且最好的情况是，如果程序第二次运行，就激活原来的程序。网上有很多的方法实现程序只运行一次，但对于激活原来的窗口却都不怎么好。 关键就在于激活原来的程序，一般的做法是在工程开始时，打开互斥量对象，如果打不开表示程序还没有运行，创建
2006-02-19 11:17:00
1493
1
原创 转动的椭圆，看起来像原子符号。如果是三个的话是以前央视标志
Rotated EllipsesDecember 2005There is no native Windows function to draw ellipses at rotated angles, so every programmer has to do the drawing themselves. It took me a while to find some decent code o
2005-12-31 17:25:00
1601
原创 给你一份PDF文档，知道它有多少页
PDF Page Count AlgorithmDecember 2004Its not often that you cant find coding examples on the internet to do basic programming tasks, so I was surprised when I couldnt find code to determine the pag
2005-12-31 17:20:00
1273
原创 两层还是三层？
下面的这些东西是我转贴的。至于搞三层，我曾经用ASTA实现过，但是我一般用的是两层。也许对于小系统来说就比较好，但大系统的话，我看还是够怆。我应该研究这方面的东西如JAVA的一些应用服务器，以及DEPHI如何和它们通信；或。NET的一些解决办法。毕竟企业级应用才是王道。紧跟时代潮流才能前进。——————————————————————————————————————————下面的东西都是转贴的，包
2005-12-31 15:21:00
2283
原创 如何解决 DHtmlEdit 提示"不支持此接口" (DELPHI)
Having found the DHTMLEdit looked ideal solution except this "Unknowninterface"Think I have a potential solution (not as nice as I would like due toissues overriding interfaces :s)Here is what I have
2005-12-28 14:27:00
2244
转载 厚着脸皮转贴：十年MFC经历认识的Microsoft技术 by 孙辉
http://blog.csdn.net/sunhui/archive/2005/03/15/319551.aspx BLOG出处http://dev.csdn.net/develop/article/65/65546.shtm 文档中心出处 十年MFC经历认识的Microsoft技术【原创】孙辉 自从2005年3月8日下午16时“十年MFC经历认识的Microsoft技术”以帖子的方式发表于
2005-03-19 20:53:00
1178
原创 我做GHOST2000的全过程－真实体验版
来源：http://www.jujumao.com 作者：sandra_zhu 此帖对于那些做Ghost的老鸟来说根本不屑一顾，但对于象我这样的新手来说，咱们可以进行经验交流。 昨天我做成了一张我所需要的Ghost2k，这也是我在这个论坛潜水近一个月的成果。以下我具体讲讲我的制作流程。 首先就是看那篇《GhostXP全攻略》，这个是基础，不得不看。但是那篇是针对XP而言的，虽然它上面说2K
2004-12-27 17:21:00
1933
原创 Rundll32.exe 转自5iuu.com
winexec(Pchar(StrCommand),sw_Show); 其中"StrCommand"代表以下命令之一(使用Windows中的运行不要加引号)： "rundll32 shell32,Control_RunDLL" - 运行控制面板 "rundll32 shell32,OpenAs_RunDLL" - 打开"打开方式"窗口 "rundll32 shell32,ShellAboutA
2004-12-27 17:17:00
1254
原创 Delphi中TApplication类的巧用
Delphi是一种面向对象的编程语言，由于它采用完全集成OOP的优点，因此使它成为目前十分流行的Windows开发工具。在Delphi包含的众多类中，TApplication是一个有着十分重要作用的类。TApplication类是用于描述Delphi编制的应用程序的一个类。通过对这个类的灵活应用可以编制许多有特点的程序。下面我们就举几个这方面的例子。 ---- 1 检测当前Windows程序是否
2004-12-16 09:50:00
820
1
原创 每天都要搜宝：将应用程序11M内存占用，降至500K！
下面的过程放到一个Timer中，每隔一段时间执行一次，如5秒。{************************************* Clear Memory* From Muse2008************************************}procedure ClearMemory;begin if Win32Platform = VER_PLATFORM
2004-12-16 09:42:00
728
原创 制作像MSN、QQ那样的消息提示框
摘 自 http://blog.csdn.net/nhconch/archive/2004/12/04/204816.aspx 微软的每一个产品，无论功能还是界面设计都会带给我们一定的惊喜，比如OfficeXP、Office2003、Messenger的界面设计，早已成为众多软件竞相模仿的对象，就拿Messenger来说，我就见过好几套网络视频会议的软件都借鉴了它的界面风格。 前段时间因为
2004-12-09 17:30:00
1010
原创 自绘ListBox的两种效果
转自http://blog.csdn.net/nhconch/archive/2004/12/05/205127.aspx 本文利用Listbox自绘实现了两种特殊效果，其中第两种风格来自C++ Builder 研究 www.ccrun.com，老妖用BCB实现了，现在把它转换成Delphi代码。演示图片：//-----------------------------------------
2004-12-09 17:30:00
884
1
原创 如何减小应用程序(EXE)的大小?
转贴自 http://blog.csdn.net/visli/archive/2004/12/02/202246.aspx如何减小应用程序(EXE)的大小?一般来说，由Delphi生成的EXE文件，要比其由它编程语言生成的体积大一些。这主要是由于使用VCL的原因（当然，VCL是有许多优点的！）以下是减小EXE文件大小的几种途径：01) 使用加壳工具（如 UPX，ASPack 等）02) 使
2004-12-09 10:35:00
996
原创 使用 Sysprep 自动部署 Windows 2000
使用 Sysprep 自动部署 Windows 2000操作系统 白皮书 摘要 本文档讨论如何使用简单实用程序 Sysprep 在硬盘上准备要复制和自定义的系统，以便在具有兼容配置的多台计算机上快速部署 Microsoft® Windows® 2000 操作系统。本白皮书考虑到了该实用程序 1.1 版中的更改，这些更改是对操作系统 CD 上 1.0 版的更新。 引言 Mic
2004-12-06 14:24:00
2839
原创 SQL Server日期计算
标题 SQL Server日期计算 选择自 DigJim 的 Blog 关键字 数据库,SQL SERVER,DATEDIFF,DATEADD出处 http://www.databasejournal.com/features/mssql/article.php/3076421 通常，你需要获得当前日期和计算一些其他的日期，例如，你的
2004-12-04 16:39:00
1111
原创 如何同时对多个表或列操作
通过使用这个存储过程，你就可以方便的对数据库中具有一定规则的或者全部表，对这里的字段进行各种操作，具体看示例！CREATE PROCEDURE SP_execSQLonDB (@TABLENAME VARCHAR(50), --表名条件 @COLUMNNAME VARCHAR(50), --字段条件 @SQL NVARCHAR(4000),
2004-12-04 16:38:00
874
原创 让数据库产生一张详细的日历表
也许有了这张表，你的工作会轻松很多！CREATE TABLE [dbo].[time_dimension] ( [time_id] [int] IDENTITY (1, 1) NOT NULL , [the_date] [datetime] NULL , [the_day] [nvarchar] (15) NULL , [the_month] [nvarchar]
2004-12-04 16:37:00
991
原创 98与2K共享问题(IPX及其它）
5。98机子用//主机名/共享目录 或是//10.xx.xx.xx/共享目录 访问20006， 最正确的方法（微软faq推荐）2000做成wins服务器，9x客户机添加wins服务器地址。绝对ok 关于WIN98访问WIN2K共享时慢的解决方法整个网络客户机为WIN98，服务器为WIN2K，在服务器上设置一个共享，然后客户机通过网上邻居来搜索访问这个共享资源，或者是
2004-12-03 10:13:00
1030
原创 ［网上邻居/网络共享/双机互连］问题集锦
第一部分：使用网上邻居步骤，如果你的网上邻居有问题，请参看以下步骤（同样适用于打印机的共享）： 1.1.网线。双机互连不使用HUB或交换机，用交叉线连接两机；如果使用HUB或者交换机，均用直连线连接至HUB或交换机，保证交换机、网卡状态灯正常。 1.2.IP协议。WIN98及以后的机器在安装时会默认安装TCP/IP协议，WIN95需要另 外安装。在网上邻居－>属性（WIN9X/Me）或
2004-12-03 09:45:00
2931
原创 跟日期有关的两条经典SQL语句
1.用一条语句得出某日期所在月份的最大天数？ SELECT DAY(DATEADD(dd, -DAY(2004-02-13), DATEADD(mm, 1, 2004-02-13))) AS Day Number 2.少记录变成多条记录问题 有表tbl 日期 收入 支出 2004-02-11 00:00:00 60 45 2004-03-01
2004-11-30 17:21:00
660
原创 编程打开特殊的系统窗口(如控制面板)
我们可以通过执行下面的一些命令，来打开一些特殊的系统窗口，下面的一些参数可能在WIN2000下无效，自己可以试一试。我在XP上试过。 命令列: rundll32.exe shell32.dll,Control_RunDLL 功能: 显示控制面板 命令列: rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1 功能: 显示“控制面板－
2004-11-30 17:19:00
621
原创 Delphi 组件撰写常问问题 选择自 cwxiao888 的 Blog
1.1 此份文件的目的为何？ 这份文件的目的是为了解答有关撰写 Delphi组件时常见或文件上找不到的问题。我曾经花了一段很长的时间来了解探索 TDataLink 类别，这让我觉得应该将撰写组件时常遇到的问题及经验心得写下来，分享给大家。不过我并不能保证写在这份文件里头的解答完全正确。如果你对其中的任何问题有更好的解决方法，或认为有什么信息适合放在这份文件里的话，请告知作者。有任何错误或缺漏也欢迎
2004-11-29 11:13:00
624
原创 Delphi的消息处理 选择自 cwxiao888 的 Blog
消息，就是指Windows发出的一个通知，告诉应用程序某个事情发生了。例如，单击鼠标、改变窗口尺寸、按下键盘上的一个键都会使Windows发送一个消息给应用程序。消息本身是作为一个记录传递给应用程序的，这个记录中包含了消息的类型以及其他信息。例如，对于单击鼠标所产生的消息来说，这个记录中包含了单击鼠标时的坐标。这个记录类型叫做TMsg，它在Windows单元中是这样声明的：type
2004-11-29 11:12:00
606
原创 开发笔记：DELPHI中的拖动开发（1）（2）
DELPHI中拖放的操作 拖放(DragDrop)是Windows提供的一种快捷的操作方式。作为基于Windows的开发工具，Delphi同样支持拖放操作，而且开发应用系统的拖放功能十分方便，真正体现了Delphi 的强大功能和方便性。 Delphi提供的所有控件(Control，即能获得输入焦点的部件)都支持拖放操作，并有相应的拖放属性、拖放事件和拖放方法。下面我们先介绍控件的拖放支持
2004-11-28 16:18:00
897
原创 几个Delphi小技巧
几个Delphi小技巧1、判断Num Lock、Caps Lock、Scroll Lock指示灯状态 以Num Lock为例： function IsNumLockOn() : boolean; begin Result := (GetKeyState(VK_NUMLOCK) and $01) end; 如果灯亮则返回True，不亮返回False。 VK_NUMLOCK 替换成
2004-11-28 11:00:00
658
转载 zt:SQL语句导入导出大全
zt:SQL语句导入导出大全 /******* 导出到excelEXEC master..xp_cmdshell bcp SettleDB.dbo.shanghu out c:/temp1.xls -c -q -S"GNETDATA/GNETDATA" -U"sa" -P""/*********** 导入ExcelSELECT * FROM OpenDataSource( M
2004-10-10 11:22:00
814
1
原创 看到最简单的用非Form的控件拖动Form
http://blog.codelphi.com/nil/articles/1483.aspx看到最简单的用非Form的控件拖动Form 只要在onMouseDown事件里加入 ReleaseCapture; ((Sender as TControl).Owner as TForm).Perform(WM_SYSCOMMAND, $F012, 0);
2004-10-10 11:17:00
687
原创 在sqlserver中存储多媒体数据
二、怎样处理多媒体数据 1．多媒体数据的存储 多媒体信息包括图像、声音和视频等，它们都是以二进制数据集合的形式存在的，在本系统中处理的对象是图像。SQL Server提供了Image数据类型来存储可变长度二进制数据（大小范围为0~2GB）。但Image字段并不能将多媒体数据直接装入，必须经过一些中间步骤才能将数据存进去。下面以图像数据的存储为例，给大家介绍怎样在Delphi中实现这些中间步骤。
2004-09-26 14:28:00
2235
2
原创 PI小数点后一百万位
PI小数点后一百万位 小时候可以背到一百五十位的样子，看来还是不行from http://3.141592653589793238462643383279502884197169399375105820974944592.com/Pi to one MILLION decimal places3.14159265358979323846264338327950288419716939
2004-08-27 15:19:00
929
原创 调用DLL文件中的FORM
调用DLL文件中的FORM 作者：e梦缘好久发表文章了！！！ 调用DLL文件中的FORM,具体实现过程如下：library Project1;uses SysUtils, Classes,Forms,windows,dialogs, Unit1 in Unit1.pas {Form1};{$R *.res}function showf
2004-08-26 17:48:00
776
原创 程序间参数传递 Copydata
风花雪月 e梦情缘网络代号:wnhoo or sos_admin网名:e梦缘Mail:[email protected]功能：第一次執行的時候…會開啟project1.exe第二次執行的時候…不開啟project1.exe(因程式已執行)…但会将參數會丟給已執行的project1.exe第3次執行的時候…不開啟project1.exe(因程式已執行)…但会将參數會丟給已執行的project1.e
2004-08-26 17:45:00
754
原创 如何获取外部EXE窗口的handle
这是我在一个论坛的讨论稿，我想这些情况在实践程序设计过程中会常碰到，所以就将这些讨论资料写了下来：作者：e梦缘？请问用什么方法可以运行一个外部的EXE并返回它的Handle？WinExec 返回不是该EXE的HandleShellExecute, ShellExecuteEx 也不是CreateProcess 返回的是 Process Handle到底要如何才可以返回和 GetWind
2004-08-26 17:39:00
1344
1
原创 超强存储过程！原作，版权所有！精悍！！！
在开发数据库应用程序中，我们经常需要表示多层次关系的数据，譬如：MRP中的BOM，多级别的组织结构，多级的角色关系…… 在数据库中描述这种关系时，我们通常使用父节点指向的方式来设计表结构，譬如对部门的表结构定义如下： CREATE TABLE TDepartment ( ParentNo varchar(25), /* 上级部门编号，如果为NULL则表示当前记录为顶级部门。
2004-08-26 17:14:00
1299
2
原创 2004年Delphi Informant杂志读者选择奖
出处：http://www.delphizine.com/newsletterarticle/2004/08/di200408jc_l/di200408jc_l.asp版权：属原作者所有，转载请注明出处！翻译：lucentoff 2004年Delphi Informant杂志读者选择奖（Delphi Informant Magazine Readers Choice Aw
2004-08-21 17:03:00
742
原创 自动注册activex控件
编写Delphi应用程序时，经常会遇到一些ActiveX控件[注：扩展名为OCX的控件或DLL的类型库]，它们为应用程序的开发提供了简单的操作途径。然而，这些程序在发布的同时，面临ActiveX控件注册问题。 解决途径：一、用安装程序制作打包文件，往往会给增加程序本身的大小，系统重装时，则必须重新安装它；二、用程序本身进行代码编写函数的形式处理它。使用方法分为两种：一、直接把可视化的
2004-08-11 10:38:00
1689
1
原创 SQL Server开发的二十一条军规
如果你正在负责一个基于SQL Server的项目，或者你刚刚接触SQL Server，你都有可能要面临一些数据库性能的问题，这篇文章会为你提供一些有用的指导（其中大多数也可以用于其它的DBMS）。 在这里，我不打算介绍使用SQL Server的窍门，也不能提供一个包治百病的方案，我所做的是总结一些经验----关于如何形成一个好的设计。这些经验来自我过去几年中经受的教训，一直来，我看到许多同样
2004-08-04 17:10:00
980
原创 Delphi制作图形化的ComboBox
从Delphi5开始，Delphi集成开发环境中的Object Inspector就使用了图形化的风格来显示某些属性。比如Cursors、Colors、Fonts和Image List等等属性就是这种类型。第一次看到这样的效果，的确令人感到神奇，各种字体的名称可以直接以这种字体的样式显示出来，在选择字体的时候真是很方便。这种效果是如何实现的呢，其实就是使用了组件的“自绘”（Ower-drawing
2004-08-04 16:16:00
1060
原创 利用Delphi编程控制摄像头
http://soft.yesky.com/SoftChannel/72342371928440832/20040726/1834794.shtml你的电脑有没有摄像头？看到别人用QQ玩视屏你会不会去想怎么实现的？这里介绍使用DELPHI使用MS的AVICAP32.DLL就可轻松的实现对摄像头编程，如果再加上你的网络编程水平，实现一个视屏聊天就不成什么问题了。看看下面代码的代码：
2004-08-04 16:06:00
1395
原创 Delphi中为RichEdit加入链接
随着网络的深入应用，各种软件都增加了一些网络功能，常用的文本编辑器也出现了这样的一种功能，当你把一个网址输入完毕后，网址由黑色变成了带下划线的宝蓝色，点击之后，你的缺省Web浏览器将会被启动，显示出该URL所标识的网站内容；而如果你输入的是“mailto:[email protected]”那么你的缺省电子邮件程序将被打开，这样你就能通过一个使用文本编辑器来发送电子邮件了。
2004-08-04 15:51:00
912
原创 代码创建形式规范 1.0 (for delphi) shunzimm [原作]
本规范的目的：给自己的代码一个统一而标准的外观，增强可读性，可理解性，可维护性本规范的原则：名称反映含义,形式反映结构 1、单元风格2、各区风格3、语句风格4、命名规则 参考：borland官方object pascal风格指南 delphi5程序员指南编码标准 1、单元风格 {*******************************************
2004-07-30 13:06:00
593
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人