ComboBox a Uygulama listesi oluşturmak

[k0081]

Merhaba arkadaşlar;

Command buton kullanarak Combobox a o anda çalışan programları isimlerini nasıl listeleyebilirim ?

Örnegin;
Excel , Word , hesap makinesi ve paint açık diyelim. bunları combobox a çalışan exe isimleri ile listelemek istiyorum...

* Windows diğer çalışan alt programlarına gerek yok...

Yardımcı arkadaşa şimdiden teşekkürler..

 

[NBATMAN]

Merhaba,

aşağıdaki kodu dener misiniz?

Private Sub CommandButton1_Click()
Dim oServ As Object
Dim cProc As Variant
Dim oProc As Object
ComboBox1.Clear
Set oServ = GetObject("winmgmts:")
Set cProc = oServ.ExecQuery("Select * from Win32_Process")

For Each oProc In cProc
If oProc.Name = "EXCEL.EXE" Then
ComboBox1.AddItem ("EXCEL")
End If
If oProc.Name = "WINWORD.EXE" Then
ComboBox1.AddItem ("WORD")
End If
If oProc.Name = "mspaint.exe" Then
ComboBox1.AddItem ("PAINT")
End If
If oProc.Name = "calc.exe" Then
ComboBox1.AddItem ("HESAP MAKİNESİ")
End If
Next
End Sub

 

[k0081]

NBATMAN;

Hocam kısmen oldu. Fakat ben excel - word - paint i örnek olarak yazmıştım. Combobox a o anda açık hangi program varsa onu listeleteceğiz.. Teşekkürler.

 

[Korhan Ayhan]

Linki inceleyin.

http://www.vbaexpress.com/forum/showthread.php?36677-list-all-running-programs&

 

[k0081]

Korhan Ayhan

Teşekkürler hocam., inceliyorum.
***********************************
Sn. NBATMAN ın vermiş olduğu kodlarda, değişiklik yaparak Tümünü Listeye aldım.. Bu şekilde çözmüş bulunmaktayım.

Yardımcı arkadaşlara çok teşekkür ediyorum., İyi forumlar.

Private Sub CommandButton1_Click()
Dim oServ As Object
Dim cProc As Variant
Dim oProc As Object
ComboBox1.Clear
Set oServ = GetObject("winmgmts:")
Set cProc = oServ.ExecQuery("Select * from Win32_Process")
For Each oProc In cProc
ComboBox1.AddItem (oProc.Name)
Next
End Sub