在delphi中选project import type library命令,在对话框中选import microsoft shell controls and automation类型库,点install后,在delphi的activex控件板上就多了tshellfolderitem,tshelllinkobject,tshellfolderview,tshell,tsearchcommand等几个组件
【程序编程相关:Socket API实现Trace Ro】const 【推荐阅读:Delphi中资源文件使用详解 】
【扩展信息:Ojbect Pascal动态数组浅说 】 discverb = 禁用(&b); connverb = 启用(&a);function tform1.disableethernet(const ethname,state: string): boolean;
var cpfolder: folder; nwfolder: folder; nverbs: folderitemverbs; i,j,k: integer; aitem: tlistitem; begin result := false; cpfolder := form1.shell1.namespace(3); if cpfolder <> nil then begin for i := 0 to cpfolder.items.count-1 do begin if cpfolder.items.item(i).name = 网络与拨号连接 then begin ... 下一页