WSAAsyncSelect模型Delphi简单实现
TCP连接建立与关闭
相信各位读者现在对於 Winsock 的定义、系统环境，以及一些 Winsock Stack及 Winsock 应用程式，都有基本的认识了。接下来笔者希望能分几期为各位读者介绍一下简单的 Winsock 网路应用程式设计。我们将以 Winsock 1.1 规格所定义的 46 个应用程式介面（API）为基础，逐步来建立一对 TCP socket 主从架构（Client / Server）的程式。在这两个程式中，Server 将使用 Winsock 提供的「非同步」（asynchronous）函式来建立 socket 连结、关闭、及资料收送等等；而 Client 则采类似传统 UNIX 的「阻拦式」（blocking）。由於我们的重点并不在於 MS Windows SDK 的程式设计，所以我们将使用最简便的方式来显示讯息；有关 MS Windows 程式的技巧，请各位读者自行研究相关的书籍及文章。
今天我们先要看一下主从架构 TCP socket 的建立连结（connect）及关闭（close）。以前笔者曾简单地介绍过主从架构的概念，现在我们再以生活上更浅显的例子来说明一下，读者稍後也较容易能明白笔者的叙述。我们可以假设 Server 就像是电信局所提供的一些服务，比如「104 查号台」或「112 障碍台」。
（1）电信局先建立好了一个电话总机，这就像是呼叫 socket() 函式开启了一个 socket。
（2）接著电信局将这个总机的号码定为 104，就如同我们呼叫 bind() 函式，将 Server 的这个 socket 指定（bind）在某一个 port。当然电信局必须让用户知道这个号码；而我们的 Client 程式同样也要知道 Server 所用的 port，待会才有办法与之连接。
（3）电信局的 104 查号台底下会有一些自动服务的分机，但是它的数量是有限的，所以有时你会拨不通这个号码（忙线）。同样地，我们在建立一个 TCP 的Server socket 时，也会呼叫 listen() 函式来监听等待；listen() 的第二个参数即是 waiting queue 的数目，通常数值是由 1 到 5。（事实上这两者还是有点不一样。）
（4）用户知道了电信局的这个 104 查号服务，他就可以利用某个电话来拨号连接这个服务了。这就是我们 Client 程式开启一个相同的 TCP socket，然後呼叫 connect() 函式去连接 Server 指定的那个 port。当然了，和电话一样，如果 waiting queue 满了、与 Server 间线路不通、或是 Server 没提供此项服务时，你的连接就会失败。
（5）电信局查号台的总机接受了这通查询的电话後，它会转到另一个分机做服务，而总机本身则再回到等待的状态。Server 的 listening socket 亦是一样，当你呼叫了 accept(
相关文档：
Event事件用法与Mutex差不多，但它可以使用：SetEvent（启动运行）ResetEvent（暂停运行）、PulseEvent（执行一次后立即暂停）。
先看一下创建函数：CreateEvent(
......
Delphi的VCL框架在创建应用时TApplication是一个自动创建的隐藏窗口，其它创建的窗口是自动以该窗口为窗口，这就导致创始的主窗口在任务栏的系统菜单只有三项，只要在主窗口的Create事件中将系统菜单用Application的系统菜单替换，并将SysCommand消息转发到主窗口就正常了。
unit Unit1;
interface
uses
Windows ......
在多CPU或多核CPU中，会随机的获得不同的序列号.这就为我们根据CPU序列号来制作注册机带来了很大的麻烦。
Windows 2000/XP允许设置进程和线程的关系。换句话说，可以控制哪个 CPU 能够运行某些线程。这称为Affinity Mask。Windows提供了设置相似性的函数SetProcessAffinityMask ，使用它可 ......
最近需要安装第三方组件，在网络上找到一些资料转过来看看
由于组件提供的方式不同，所以安装的方法也是不一样的，下面就目前常见的各种形式的组件的安装方法介绍一下。
1 只有一个DCU文件的组件。DCU文件是编译好的单元文件，这样的组件是作者不想把源码公� ......
虽然用盗版是件很不光彩的事情,但是这个软件目前实在是买不起.呵,折磨了数月,而今天却不经意间成功了. 实在是难掩心中快感.
这所谓的破解过程相当简单
百度搜索一下
Delphi.Distiller.v1.85
解压后运行,点到DELPHI2010页面,>Tweat>再勾上Remove Delphi 2010 Updata....,再点击Clear All Embarcadero...
接着就OK ......
