Yerel Ağ Bağlantısı

[sltokar]

İyi günler
Forum Aramamda bu konuyla ilgili 1 yazı buldum ondada başka bir program kullanılması isteniyor. Benim istediğim bunun kod ile olması.
Soruma gelince Yerel Ağ Bağlantısını istediğim zaman devre Dışı bırakmak ve istediğim zamanda etkinleştirmek istiyorum bunun için nasıl bir kod kullanabilirim.

Saygılarımla...

[ikutluay]

size pm yolladım

[SimaWB]

Kod: Tümünü seç

ShellExecute(0, nil, 'cmd.exe', 'netsh interface set interface "Yerel Ağ Bağlantısının Adı" DISABLED', nil, SW_HIDE);
ShellExecute(0, nil, 'cmd.exe', netsh interface set interface "Yerel Ağ Bağlantısının Adı" ENABLED', nil, SW_HIDE);

No: Denenmemiştir.

[sltokar]

Sayın SimaWB
öncelikle cevabınız için teşekkürler, ben verdiğiniz kodu bir butonun içine koyarak bir deneme yaptım ama olmadı

[SimaWB]

Kod: Tümünü seç

WinExec('C:\WINDOWS\system32\cmd.exe /C netsh interface set interface "Yerel Ağ Bağlantısı" DISABLED', SW_HIDE);
WinExec('C:\WINDOWS\system32\cmd.exe /C netsh interface set interface "Yerel Ağ Bağlantısı" ENABLED', SW_HIDE);

Not: Denenmiştir

[sltokar]

Sayın SimaWB
Cevabınız için teşekkürler
Dediğiniz gibi kod win 7 de düzgün bir şekilde çalışıyor, ancak win xpde çalışmıyor nedeni ne olabilir acaba..

[greenegitim]

ipconfig/release
ipconfig/renew
denemek lazım

[pakv]

deneyen varmı arkadaşlar ?

[SimaWB]

Ben yukarıda yazdığım cevapta da belirttiğim gibi WinExec ile olan yöntemi denemiştim
Ama bence en iyi çözüm WMI kullanmak.
http://theroadtodelphi.wordpress.com/20 ... networking