修改已运行程序或已打开文件夹的标题以及图标。程序中无任何插件，运行时无任何限制。

文件下载地址：http://www.ucomo.com/DownLoad.ashx?f=nW6LV1o8MVqonTxOM2jEuDi0jTf8yJHwarCBMKjiTY4HNUKeWbcgt1XyaHuviOHeD1zAcZqqJW8=

从文件中提取图标：ExtractIconEx(PChar(OpenDialog1.FileName), i, Large, Small, 1);

设置标题图标：SendMessage(i, WM_SETICON, ICON_SMALL, icon);

设置标题文字：SetWindowText(i, PChar(Edit1.Text));