软件学习之旅（1）

我是计算机专业毕业的，不过感觉自己很失败的，几年了，一无所成。

今天，在此写博客，要好好学习了，学习不怕晚，哪怕是IT，呵呵。我要以乐观的精神学习！

今天学习第一课：获取系统的进程列表。

这是一个小功能，主要是获得任务管理器里的程序列表，但是在实现上还是有一些细节，在此写出来，大家和我一起研讨一下，有什么不对的地方尽管指出，有什么需要补充的地方更是不尽感激，总而言之，就是希望大家一起进步！

这里，先用Delphi实现： 

新建一个工程，放上一个Memo，一个button。

包含一个文件：TLHelp32

 在按钮单击事件里添加如下代码：

var

    myHandle: THandle;

    lppe: tagPROCESSENTRY32;

begin

    myHandle := CreateToolHelpSnapShot(TH32CS_SNAPPROCESS, 0);

    Process32First(myHandle, lppe);

    while Process32Next(myHandle, lppe) do

    begin

       memo1.lines.add(lppe.szExeFile);

    end;

end;