请问怎么实现?给出源代码,详细点,谢谢~!
解决方案 »
- 保存文件,覆盖时的循环提示
- 如何实现:当文本框输入长度达到6时,执行过程 edit2Exit
- 有关 api 函数 FindFirstChangeNotification 怎么样应用 ?
- 急急急!!如何动态更改DBChart中X,Y坐标轴的内容
- 关于socket,很简单.
- 如何判断鼠标是否离开image,或不让鼠标离开image?
- 为什么编译器不认识TControl.caption?????
- 100分赠送,等你来拿!!!!
- 如何设置form1的默认值?
- MDI 主窗体背景 + Win98 SE 的问题
- ADO + SQL Server数据库的数据存取问题.在线等...
- 如何不通过OnCalcFields给fkCalculated字段付值
procedure TForm1.ShowProperties(Index: Integer);
begin//Anzeige löschen
ValueListEditor1.Strings.Clear;//Informationen aus NetworkAdapter
ValueListEditor1.InsertRow('AdapterType',
NetworkAdapter.Win32_NetworkAdapterCollection.Items[Index].AdapterType,
true);
ValueListEditor1.InsertRow('Availability',
NetworkAdapter.Win32_NetworkAdapterCollection.Items[Index].Availability,
true);
ValueListEditor1.InsertRow('Caption',
NetworkAdapter.Win32_NetworkAdapterCollection.Items[Index].Caption, true);
ValueListEditor1.InsertRow('Description',
NetworkAdapter.Win32_NetworkAdapterCollection.Items[Index].Description,
true);
ValueListEditor1.InsertRow('Manufacturer',
NetworkAdapter.Win32_NetworkAdapterCollection.Items[Index].Manufacturer,
true);
ValueListEditor1.InsertRow('NetConnectionStatus',
NetworkAdapter.Win32_NetworkAdapterCollection.Items[Index].NetConnectionStatus, true);
ValueListEditor1.InsertRow('StatusInfo',
NetworkAdapter.Win32_NetworkAdapterCollection.Items[Index].StatusInfo,
true);//Informationen aus NetworkAdapterCfg
ValueListEditor1.InsertRow('IPAddress',
NetworkAdapterCfg.Win32_NetworkAdapterConfigurationCollection.Items[Index].IPAddress,
true);
ValueListEditor1.InsertRow('IPSubnet',
NetworkAdapterCfg.Win32_NetworkAdapterConfigurationCollection.Items[Index].IPSubnet,
true);
ValueListEditor1.InsertRow('DHCPEnabled',
NetworkAdapterCfg.Win32_NetworkAdapterConfigurationCollection.Items[Index].DHCPEnabled,
true);
ValueListEditor1.InsertRow('DHCPLeaseExpires',
NetworkAdapterCfg.Win32_NetworkAdapterConfigurationCollection.Items[Index].DHCPLeaseExpires,
true);
ValueListEditor1.InsertRow('DefaultIPGateway',
NetworkAdapterCfg.Win32_NetworkAdapterConfigurationCollection.Items[Index].DefaultIPGateway,
true);
ValueListEditor1.InsertRow('MACAddress',
NetworkAdapterCfg.Win32_NetworkAdapterConfigurationCollection.Items[Index].MACAddress,
true);end; 不过这个控件需要60多美圆!!
PostMessage(HWND_BROADCAST, WM_SETTINGCHANGE, NULL, NULL);
[ 新 ip ] [ 掩码 ] [ 网关 ] 2000的DNS可以用
netsh interface ip set dns "本地连接" static 192.9.201.1
你直接用wiexec调吧