最近在看编译原理方面的东西，状态机是很重要的部分。之前遇到过一个问题，用这个问题让我深刻的理解了状态机。当年写了这篇文章，但是看起来这次更新忘记上传了。现在补上这篇文章。具体的问题是这样的：
“我不是计算机专业毕业的，也没有研究过离散数学（听说状态机属于离散数学）。前几天刚好有机会听别人讲这方面的问题，于是针对这个题目研究了一下。记录与此。
一．问题
请画出车库门控制器的 FSM(finite state machine)。车库门的功能如下：
1. 开启车库门
2. 关闭车库门
3. 车库门进行中（正在开启或关闭中）停止
4. 当车库门是处于第 3 点的状态时，往（停止前）[......]
下面这段程序能够实现将你选中的邮件以MSG格式保存到一个目录中，并且生成一个包含邮件内容的TXT文件。举例来说：你在Outlook中选中200封邮件，然后指定 c:\m\ 作为存储目录。运行之后你就会发现，m目录中出现 0 1 2 3....这样的目录，其中是以MSG格式保存的每封邮件，并且每个目录下还有其中邮件TXT格式的内容。程序是以20MB为限，当一个目录中的邮件大于20MB时自动创建另外的目录。之所以选择20MB是因为通常的Mail系统所支持的附件的上限是这个数值。因此，你可以将生成的TXT作为正文，压缩之后的目录作为附件发送到你的邮件服务器上。比较推荐的是 QQ Mail，容量足够大[......]
021 62966751
021 62966729[......]
继续前一篇提到的问题。仍然是根据天杀的建议更专业一点的方法是通过判断当前进程的父进程来得知是如何运行的。比如，双击运行父进程就是Explore.exe，命令行运行，父进程就是 cmd.exe 。
代码如下：
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils,
windows,
Tlhelp32,
PsApi;
//检查自己的进程的父进程
procedure CheckParentProc;
var //检查自己的进程的父进程
Pn: TProcesseNtry32;
sHandle:THandle;
H,hMod:Hwnd;
Found:Boolean;
Buff[......]
前几天在写console程序的时候忽然想起来“如何判断当前程序是直接运行还是从CMD窗口中运行”的问题，网上搜索了一下，并无明确结果，为此我请教了一下天杀，他给我出了2个办法。第一个办法是通过GetStartupInfo得到当前窗口的 Title，从下图可以看到直接运行的时候是只有文件名，如果从cmd下面运行会有完整的路径和文件名
例程：
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils,
windows;
var
Info:STARTUPINFO;
begin
GetStartupInfo(Info);
writeln(Info[......]
检查当前可执行文件是否为64位的工具
很多时候我们经常发现拿到手的某个EXE或者EFI文件无法执行，出现的错误信息也很少，无法得知是因为文件损坏还是这个程序只能在64位Windows下运行。
因此编写了一个简单的工具用来检查EXE或者EFI程序是否是64位的。
用法很简单：直接拖拽到cc64.exe 上或者在命令行下用 cc64 文件名来运行。
原理上是分析PE结构，Machine Types 字段，有如下定义
Constant Value Description
IMAGE_FILE_MACHINE_UNKNOWN 0x0 The contents of this field ar[......]
使用下面的程序，可以实现将选中的邮件以MSG的格式批量保存到指定的目录下。每个文件会以收到的时间命名。
Function DateToString(d As Date) As String
Dim s As String
s = Format([d], "yyyymmddhhnnss")
DateToString = s
End Function
Sub SaveSelMails()
Dim objItem As Object
Dim strPath As String
Dim strFilename As String
'Exit if you don't choose any fil[......]
需要在 Outlook 下通过VBA打开一个选择目录的对话框，刚开始搜索到的解决方案类似如下代码
Dim msDialog As Office.FileDialog
Set msDialog = Application.FileDialog(msoFileDialogFilePicker)
msDialog.Show
但是经过很多次实验，Outlook 2010中根本没有 Application.FileDialog 这样的属性方法。这条路是无法行通的！！！
最后的解决方案是如下代码
Private Type BROWSEINFO
hO[......]
将Outlook中多个邮件的内容保存在一个 TXT 文件中。运行后需要手工输入一个文件名。
Sub SaveBodytoText()
Dim objItem As Object
Dim strFile As String
'Exit if you don't choose any files
If ActiveExplorer.Selection.Count = 0 Then Exit Sub
strFile = InputBox("Please enter the full path and file name for the merged[......]
之前研究过Memtest86+的编译，但是没有搞清楚为什么我自己编译出来的DOS可执行程序版本的始终无法运行，与之相对，编译出来的ISO版本或者软盘版都是正常的。经过一番研究，终于找到了问题的原因。在编译之前，需要修改mt86+_loader.asm中的一个定义：
%define fullsize (164504 + buffer - exeh)
; 164504 is the size of memtest86+ V4.20, adjust as needed!
其中这个164504 应该是你编译一次之后memtest.bin文件的大小。这个文件的大小会跟着你使用的gcc编译器版本不同或[......]