清除程序中目前無使用的工作區記憶體 (WorkingSet)
無引數
無傳回值
Private Sub Command1_Click() Dim pi As New cProcess pi.Start "C:\Windows\system32\calc.exe" ' do something pi.EmptyWorkSet ' do something pi.WaitForIdle 5000 ' do something pi.WaitForExit 5000 Debug.Print "Waitting second=" & pi.WaitMilliseconds / 1000 ' do something Debug.Print "ProcessId=" & pi.Id Debug.Print "hProcess=" & pi.Handle Debug.Print "hWnd=" & pi.MainWindowHandle ' do something pi.CloseMainWindow If Not pi.HasExited Then pi.Kill Debug.Print pi.ExitCode End Sub
例如 .Net 程式一開啟可能記憶體使用量為 30 MB,使用後降至 10 MB,Outlook 長期使用記憶體使用量為 250 MB,使用後降至 30 MB 等。
Visual Basic 4 以後 | 需同時引用modWindow模組 | cProcess.bas
|