Delphi - 随笔分类 - fyen

treeview只展开一个同级节点

摘要：procedure TFormCustomerPage.cxTreeView1Expanded(Sender: TObject; Node: TTreeNode);var ANode: TTreeNode;begin inherited; ANode := Node.Parent; if ANode = nil then ANode := TTreeView(Sender).Items[0]; if ANode <> nil then begin TTreeView(Sender).Items.BeginUpdate; try if ANode = Node.Parent then 阅读全文

posted @ 2011-05-18 22:17 fyen 阅读(2052) 评论(0) 推荐(0)

Delphi让你的程序通过XP防火墙

摘要：procedure TForm1.Button1Click(Sender: TObject);var FwMgr,Profile,FwApp: variant;begin FwMgr := CreateOLEObject('HNetCfg.FwMgr'); Profile := FwMgr.LocalPolicy.CurrentProfile; FwApp := CreateOLEObject('HNetCfg.FwAuthorizedApplication'); FwApp.Name :='我的测试'; //显示名字 FwApp.Process 阅读全文

posted @ 2011-04-03 23:44 fyen 阅读(589) 评论(0) 推荐(0)

RC文件生成版本信息的问题

摘要：RC文件内容如下：1VERSIONINFOFILEVERSION1,0,0,1PRODUCTVERSION1,0,0,1FILEOSVOS__WINDOWS32FILETYPEVFT_APPBEGINBLOCK"StringFileInfo"BEGINBLOCK"080404b0"BEGINVALUE"FileDescription","a应用程序\0"VALUE"FileVersion","1,0,0,1\0"VALUE"InternalName",&q 阅读全文

posted @ 2011-03-11 00:29 fyen 阅读(1655) 评论(0) 推荐(0)

随笔分类 - Delphi