今天广州发起了一次大规模的抵制日货，抗议日本加入常任理事国的大游行，从花园酒店至太平洋电脑城路段有10多万人参加了此次游行，规模壮大。
留上一笔～
全局热键：
Id := GlobalAddAtom('MyHotKey') - $C000;
注：Id的合法取之范围是0x0000到0xBFFF之间， GlobalAddAtom函数得到的值在0xC000到
0xFFFF之间，所以减掉0xC000来满足调用要求。
原理：
一旦热键设置成功，在程序应用过程中如果有相应的键被按下，Windows系统都会给你
的应用程序发送一个消息WM_HOTKEY，不管你的应用程序是否为当前活动的。其中WM_HOTKEY
消息的格式为：
idHotKey = (int) wParam; // 该参数在设置系统级的热键有用,一般不予使用
fuModifiers = (UINT) LOWORD(lParam); //热键的辅助按键
uVirtKey = (UINT) HIWORD(lParam); //热键的键值
与THotKey控件的结合使用：
type
TForm1 = class(TForm)
HotKey1: THotKey;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
procedure WMHotKey(var Msg:TMessage);message WM_HOTKEY;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
var
Key, Shift: Word;
Id: Integer;
procedure ShortCutToKey(ShortCut: TShortCut; var Key: Word; var Shift: TShiftState);
begin
Key := ShortCut and not (scShift + scCtrl + scAlt);
Shift := [];
if ShortCut and scShift <> 0 then Include(Shift, ssShift);
if ShortCut and scCtrl <> 0 then Include(Shift, ssCtrl);
if ShortCut and scAlt <> 0 then Include(Shift, ssAlt);
end;
function ShiftStateToWord(TShift: TShiftState): Word;
begin
Result := 0;
if ssShift in TShift then Result := MOD_SHIFT;
if ssCtrl in TShift then Result := Result or MOD_CONTROL;
if ssAlt in TShift then Result:= Result or MOD_ALT;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
T: TShiftState;
begin
Id := GlobalAddAtom('MyHotKey') - $C000;
ShortCutToKey(HotKey1.HotKey, Key, T);
Shift := ShiftStateToWord(T);
RegisterHotKey(Handle, Id, Shift, Key);
end;
procedure TForm1.WMHotKey(var Msg: TMessage);
begin
if (Msg.LparamLo = Shift) AND (Msg.LParamHi = Key) then
ShowMessage('This is HotKey');
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
UnRegisterHotKey(Handle, Id);
GlobalDeleteAtom(Id);
end;
end.
感觉THotKey控件还是很好用的嘛．
SMTP协议的命令和应答
2004-8-2 20:08:50 来源：中国协议分析网
从前面的通讯模型可以看出SMTP协议在发送SMTP和接收SMTP之间的会话是靠发送SMTP的 SMTP命令和接收SMTP反馈的应答来完成的。在通讯链路建立后，发送SMTP发送MAIL命令指令邮件发送者，若接收SMTP此时可以接收邮件则作出OK的应答，然后发送SMTP继续发出RCPT命令以确认邮件是否收到，如果接收到就作出OK的应答，否则就发出拒绝接收应答，但这并不会对整个邮件操作造成影响。双方如此反复多次，直至邮件处理完毕。SMTP协议共包含10个SMTP命令，列表如下：
SMTP命令 命令说明
HELLO ＜domain＞ ＜CRLF＞ 识别发送方到接收SMTP的一个HELLO命令
MAIL FROM:＜reverse-path＞＜CRLF＞ ＜reverse-path＞为发送者地址。此命令告诉接收方一个新邮件发送的开始，并对所有的状态和缓冲区进行初始化。此命令开始一个邮件传输处理，最终完成将邮件数据传送到一个或多个邮箱中。
RCPT TO:＜forward-path＞＜CRLF＞ ＜forward-path＞标识各个邮件接收者的地址
DATA ＜CRLF＞
接收SMTP将把其后的行为看作邮件数据去处理，以＜CRLF＞.＜CRLF＞标识数据的结尾。
REST ＜CRLF＞ 退出/复位当前的邮件传输
NOOP ＜CRLF＞ 要求接收SMTP仅做OK应答。（用于测试）
QUIT ＜CRLF＞ 要求接收SMTP返回一个OK应答并关闭传输。
VRFY ＜string＞ ＜CRLF＞ 验证指定的邮箱是否存在，由于安全因素，服务器多禁止此命令。
EXPN ＜string＞ ＜CRLF＞ 验证给定的邮箱列表是否存在，扩充邮箱列表，也常禁止使用。
HELP ＜CRLF＞ 查询服务器支持什么命令
注：＜CRLF＞为回车、换行，ASCII码分别为13、10（十进制）。
SMTP协议的每一个命令都会返回一个应答码，应答码的每一个数字都是有特定含义的，如第一位数字为2时表示命令成功；为5表失败；3表没有完成。一些较复杂的邮件程序利用该特点，首先检查应答码的首数字，并根据其值来决定下一步的动作。下面将SMTP的应答码列表如下：
应答码 说明
501 参数格式错误
502 命令不可实现
503 错误的命令序列
504 命令参数不可实现
211 系统状态或系统帮助响应
214 帮助信息
220 ＜domain＞服务就绪
221 ＜domain＞服务关闭
421 ＜domain＞服务未就绪，关闭传输信道
250 要求的邮件操作完成
251 用户非本地，将转发向＜forward-path＞
450 要求的邮件操作未完成，邮箱不可用
550 要求的邮件操作未完成，邮箱不可用
451 放弃要求的操作；处理过程中出错
551 用户非本地，请尝试＜forward-path＞
452 系统存储不足，要求的操作未执行
552 过量的存储分配，要求的操作未执行
553 邮箱名不可用，要求的操作未执行
354 开始邮件输入，以"."结束
554 操作失败
哈哈，今天根据上面的协议偶也用WinSock单元封装了一个邮件发送类，还算可以吧．不过偶在命令行下发邮件时，老是出现验证不通过现象．不知道什么原因了，用户名和密码都经过base64编码了，输入到命令行时真累啊！
今天晚上又当了一回老板，哈哈！别误会，是为了补过自己11.5号的生日。大学四年中的最后一个生日，希望能迎来一种新的生活！
软件设计师考试
上午9：00～11：30
下午2：00～04：30
说真的，觉得这种考试没多大意思。无非就是照着以前的题目去背，然后加上新的大纲。无趣！不过也就是因为它，突然强烈的发现自己原来不再适合去考试了。
PS：今天去见了FS那家伙，终于拿到了Windows 核心编程。哈哈！其实FS长的还是蛮可爱的^_^
看了一下午的《Delphi对象模型》有一个问题：
A := TA.Create;在内存中创建的对象的头4个字节到底指向哪？
在《参透Delphi》一书中说是指向：VMT。
在《Delphi对象模型》中说：
在Delphi中，类表现为内存中一张只读的表，表中存放着指向该类的虚方法的指针以及其他许多信息。
创建的对象的头4个字节存放的是一个类引用(Class reference)就是指向该表的一个指针，而该表的头4个字节又是一个指向VMT的指针。
我觉得应该是指向ＶＭＴ的，做过测试也表明了：）
{Dialog 单元}
unit Unit1;
interface
uses
Forms, Classes, Controls, StdCtrls;
type
TForm1 = class(TForm)
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
end.
{Console Application}
program Test;
{$APPTYPE CONSOLE}
uses
Windows,
Messages,
Forms,
Unit1 in 'Unit1.pas' {Form1};
var
hInput : THandle;
inRec : TInputRecord;
dwCount : DWORD;
begin
{Create a Form in the usual way. The Forms unit ensures that
the Application object is around to "own" the form.}
Write('Creating the first Dialog Box...');
Form1 := TForm1.Create(Application);
Form1.Show;
Writeln('done.');
Writeln('Press 1, 2 or 3 to change the dialog box. Press Ctrl+ C to exit');
{Handle the Console input till the user cancels}
hInput := GetStdHandle(STD_INPUT_HANDLE);
{GetStdHandle - Returns handle for Standard input/output device}
while True do begin
{Avoid blocking on user input, so the forms have a chance
to operate as normal. If we had a message queue present, this
would be a normal message dispatch loop.}
Application.ProcessMessages;
if WaitForSingleObject(hInput,0) = WAIT_OBJECT_0 then begin
ReadConsoleInput(hInput, inRec, 1, dwCount);
if (inRec.EventType = KEY_EVENT) and inRec.Event.KeyEvent.bKeyDown then begin
case inRec.Event.KeyEvent.AsciiChar of
'1' : begin
Writeln('->1');
Form1.RadioButton1.Checked := True;
end;
'2' : begin
Writeln('->2');
Form1.RadioButton2.Checked := True;
end;
'3' : begin
Writeln('->3');
Form1.RadioButton3.Checked := True;
end;
end;
end;
end;
end;
end.
From www.delphi3000.com