Processのリストを表示する。

最近、VBAでプロセスを列挙する必要があったので、Prism(というか.Net)でやってみた

以下、コード(ボタンを押すとリストボックスにプロセスリストを表示する。）

view plainprint?

1. method MainForm.button1_Click(sender: System.Object; e: System.EventArgs);  
2. var  
3. ProcessList : array of  System.Diagnostics.Process;  
4. begin  
5.   
6. ProcessList := System.Diagnostics.Process.GetProcesses();  
7.   
8. for each ps : System.Diagnostics.Process in ProcessList do  
9. begin  
10. listbox1.Items.Add(ps.ProcessName);  
11. end;  
12. end;  

method MainForm.button1_Click(sender: System.Object; e: System.EventArgs);
var
ProcessList : array of  System.Diagnostics.Process;
begin

ProcessList := System.Diagnostics.Process.GetProcesses();

for each ps : System.Diagnostics.Process in ProcessList do
begin
listbox1.Items.Add(ps.ProcessName);
end;
end;

簡単すぎて涙が出てきた。Enum系のCallbackを使用する場合の
煩雑さがなくてよいです。

追記

Delphi Win32版で書いてみました。NT4.0をサポートしないといけない場合は、
やっぱり結構大変ですね。