以下、コード(ボタンを押すとリストボックスにプロセスリストを表示する。)
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をサポートしないといけない場合は、
やっぱり結構大変ですね。
0 件のコメント:
コメントを投稿