（2）建立combobox窗口，并基于treeview的位置将它放置到合理的地方；
（3）将combobox的字体设置为和整个窗体的字体相同（这一步是必要的，否则显示的效果会很难看）；
（4）为treeview的窗口风格添加tvs_showselalways位，从而在焦点移动到combobox的时候，仍然可以明显的观察到treeview中究竟选中了哪个项目；
（5）将窗口中的其他控件依次下移，从而为combobox腾出必要的空间；
（6）将窗口本身的高度也略微放大，从而适应添加combobox以后的大小。
下一步就是向combobox中增加一些表项，否则的话它就是一个鸡肋。我决定添加两种项目：（1）系统中的某些特殊路径，这些路径可以通过shgetspecialfolderlocation获得；（2）通常的文件路径。为了让代码简洁一些，我增加了一个辅助函数：
procedure insertcomboitem(hcombo:hwnd; const text:string; data:dword);
var
nindex : integer;
begin
