delphi Dns ve İp adresleri girme

[mrmarman]

o satırı sil çalışır. delphi 2007 ile eklenmiş bir satırdır.

[kaan_karabey]

o satırı sil çalışır. delphi 2007 ile eklenmiş bir satırdır.

Sorun düzeldi peki burda sadece bluetooht görünüyor diğer ag kartlarını nasıl gösterecem

[mrmarman]

registry açıp başvurulan yere bir bakıver. orada senin ağ kartı nasıl isimlendiriliyor bakıp kodda ilgili yere yaz.


EK : WMI ile aşağıdaki kodu kullanarak öğrenmeyi dene... Dilersen yine bu metod ile hiç registry bulaşmadan ayarlamaları yapabilirsin ama önce öğrenmek için bu linki incele...

Kod: Tümünü seç

Uses ActiveX, ComObj;

Function NetworkBaglantilar_WMI: String;
const
  WbemUser            ='';
  WbemPassword        ='';
  WbemComputer        ='localhost';
  wbemFlagForwardOnly = $00000020;
var
  FSWbemLocator : OLEVariant;
  FWMIService   : OLEVariant;
  FWbemObjectSet: OLEVariant;
  FWbemObject   : OLEVariant;
  oEnum         : IEnumvariant;
  iValue        : LongWord;
  strCihaz : String;
begin;
  FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
  FWMIService   := FSWbemLocator.ConnectServer(WbemComputer, 'root\CIMV2', WbemUser, WbemPassword);
  FWbemObjectSet:= FWMIService.ExecQuery('SELECT * FROM Win32_NetworkAdapter','WQL',wbemFlagForwardOnly);
  oEnum         := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant;
  while oEnum.Next(1, FWbemObject, iValue) = 0 do
  begin
    strCihaz := String(FWbemObject.Caption);
    System.Delete( strCihaz, 1, Pos(']', strCihaz) );

    Result := Result + Trim(strCihaz) + #13;
    FWbemObject:=Unassigned;
  end;
end;

Kullanımı :

Kod: Tümünü seç

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  ComboBox1.Items.Text := NetworkBaglantilar_WMI;
  ComboBox1.ItemIndex  := 0;
end;

[kaan_karabey]

Arkadaşlar burda gereksiz şeylerde çıktı benim bilgisayarımda sadece şunların görünmesini istiyorum orada diğerlerini nasıl silebiliriz.



RAD Studio Kullanılmıştır.

[kaan_karabey]

Yardımcı Olabilecek Yok mu Arkadaşlar

[SimaWB]

WMI kullanacaksanız bolca MSDN'e başvurmak zorundasınız. Kullandığınız kodda Win32_NetworkAdapter sınıfını kullanıyorsunuz. Öncelikle bunu araştırmalısınız. Hangi özellikleri işinize yarayabilir bir bakmalısınız. Tahminim bu sınıfın AdapterType yada AdapterTypeID özelliği sizin işiniz görecektir.
ExecQuery içerisinde kullandığınız WQL cümlesine WHERE koşulu ekleyerek sadece sizin belirttiğiniz koşula uyanları listeletebilirsiniz.
Örneğin;
SELECT * FROM Win32_NetworkAdapter WHERE AdapterTypeID=0

[kaan_karabey]

WMI kullanacaksanız bolca MSDN'e başvurmak zorundasınız. Kullandığınız kodda Win32_NetworkAdapter sınıfını kullanıyorsunuz. Öncelikle bunu araştırmalısınız. Hangi özellikleri işinize yarayabilir bir bakmalısınız. Tahminim bu sınıfın AdapterType yada AdapterTypeID özelliği sizin işiniz görecektir.
ExecQuery içerisinde kullandığınız WQL cümlesine WHERE koşulu ekleyerek sadece sizin belirttiğiniz koşula uyanları listeletebilirsiniz.
Örneğin;
SELECT * FROM Win32_NetworkAdapter WHERE AdapterTypeID=0

Teşekkür Ederim Sorun çözülmüştür.