Çalışan bir programı kapatmanız gerekebilir. Örneğin Excel'e veri bastığınızda EXCEL.EXE genelde açık kalır ve sistemde gereksiz ram kullanımına sebebiyet verir. Aşağıdaki kod ile EXCEL.EXE'yi işleminiz sonunda terminate ederek kapatabilirsiniz.
strProcess kısmına istediğiniz herhangi bir exe dosyasını da yazabilirsiniz...
Private Sub Command1_Click() Set colProcessList = Nothing strProcess = "excel.exe" Set colProcessList = GetObject( "Winmgmts:" ).ExecQuery( "Select * from Win32_Process Where Name ='" & strProcess & "'" ) For Each objprocess In colProcessList objprocess.Terminate Next Set colProcessList = Nothing End Sub |
Hiç yorum yok:
Yorum Gönder