(******************************************************************************
* copyright (c) by 姚佩云 2004 【程序编程相关:Delphi中资源文件使用详解 】 【推荐阅读:我写的换肤的类.应用于播放器中. 】* all right reserved 【扩展信息:Socket API实现Trace Ro】 * email : i_rock_1001@163.com www.jynx.com.cn * date : * new develop : 2004-4-8 * description : * 这是一个禁用.启用网卡的例子,实际上通过shell可以控制整个界面,参考的网上资料 * 需要先引用 microsoft shell controls and automation(shell32.dll)对应delphi声明 shell32_tlb.pas * export : * getnetlinklist * excnetlinkmenu * 首发大富翁(delphibbs.com)blog">www.delphibbs.com)blog,转载请保留 ******************************************************************************)unit unit1;
interface
uses
windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs,shell32_tlb, stdctrls, menus;type
tform1 = class(tform) button1: tbutton; combobox1: tcombobox; button2: tbutton; button3: tbutton; procedure button1click(sender: tobject); procedure button2click(sender: tobject); ... 下一页