在Windows中，为了方便文件或者文件夹的访问，我们常常为某些文件或者文件夹建立快捷方式（shortcut）。同样，在Internet Explorer中，我们也可以为自己喜爱的网址建立Internet快捷方式（Internet Shortcut）。只要点击快捷方式，Internet Explorer就会启动，并联接到相应的网站。事实上，除了Inte……继续阅读 » 搞代码 7年前 (2018-08-09) 211浏览 0评论0个赞
Delphi功能强大，用Delphi写软件，可以大大缩短软件的开发周期。本文介绍怎样用Delphi编写点对点传文件程序。 ——————————————……继续阅读 » 搞代码 7年前 (2018-08-09) 262浏览 0评论0个赞
在windows中的很多场合下编程（例如工业控制、游戏）中需要比较精确的记时器，本文讨论的是在Delphi下实现记时器的若干方法以及它们的精度控制问题。 在delphi中最常用的是timer控件，它的设置和使用都非常方便，理论上它的记时精度可以达到1ms(毫秒)。但是众所周知的，实际上timer在记时间隔小于50ms之下是精度是十分差的。它只适用于……继续阅读 » 搞代码 7年前 (2018-08-09) 200浏览 0评论0个赞
在用Delphi制作Windows程序的窗体时，窗体的边界有四种选择：对话框式（bsDialog）， 单边固定式（bsSingle），双边可变式（bsSizeable），无边界式（bsNone）。当设置为 bsNone时，窗体也就没有标题条，很显然，程序运行以后就无法移动窗体了。事实上，无边界 窗体是很有用的，例如，象Word里面的浮动式工具……继续阅读 » 搞代码 7年前 (2018-08-09) 163浏览 0评论0个赞
陈旭波 “邮件特快专递”这个词现在已经是被广大的网民所熟知了，它就好比是网络上的EMS，能够直接把邮件送到对方的邮箱中，邮件发送完毕后，对方就可以立刻收到。Foxmail在其最新的4.0版本中也特别新增了该功能，作为一名编程爱好者，你是不是也想知道如何编程实现该功能呢？那就随本文一起揭开“邮件特快专递”的神秘面纱： 一、实现原理 在Outloo……继续阅读 » 搞代码 7年前 (2018-08-09) 247浏览 0评论0个赞
program Project1; uses Windows; procedure DeleteSelf; var http://www.gaodaima.com/?p=65848程序删除自身_Delphi hModule: THandle; buff: array[0..255] of Char; hKernel32: T……继续阅读 » 搞代码 7年前 (2018-08-09) 179浏览 0评论0个赞
unit Unit1; interface uses Windows, SysUtils, Classes, Forms, ShellAPI, Controls, StdCtrls; type TForm1 = class(TForm) GroupBo……继续阅读 » 搞代码 7年前 (2018-08-09) 136浏览 0评论0个赞
作者：昆明 阎磊 uses registry; var Reg1: TRegistry; begin Reg1:=TRegistry.Create; Reg1.RootKey := HKEY_LOCAL_MACHINE; Reg1.OpenKey(‘/SOFTWARE/Microsoft/Internet Explorer/Extensi……继续阅读 » 搞代码 7年前 (2018-08-09) 211浏览 0评论0个赞
所谓动态菜单是指菜单项随着程序的操作变化而变化。现在，我们用Delphi来实现这一功能，具体步骤如下： 1．首先，确定动态菜单的数据来源，即要确定动态菜单标题是来自Windows的系统注册表，还是来自一个数据库，或者是来自一个子目录，主要由程序的功能而定。这里假设主窗口名为MainForm，上面已有主菜单，其动态菜单的数据源是一个String（……继续阅读 » 搞代码 7年前 (2018-08-09) 230浏览 0评论0个赞
Windows 95 和 Windows NT 4.0包含一个令人兴奋的特性：任务栏。这个通常位于区域任务条右面的区域能包含小的图标，这些图标能引出大的应用程序或者菜单。本篇文章主要讨论如何使用Delphi建立这样的应用程序。 在开始之前，请看下面的需要的接口方面的内容： 从技术方面来说，一个任务栏应用程序非常象普通的应用程序，它有一个消息循环，相……继续阅读 » 搞代码 7年前 (2018-08-09) 169浏览 0评论0个赞
