[CODE title="Timer'a Eklenicek Kodlar"] Public Sub RefreshMemory()
Try
GC.Collect()
GC.WaitForPendingFinalizers()
If (Environment.OSVersion.Platform = PlatformID.Win32NT) Then
SetProcessWorkingSetSize(Process.GetCurrentProcess().Handle, -1, -1)
Dim myProcesses As Process() = Process.GetProcessesByName("ApplicationName")
Dim myProcess As Process
'Dim ProcessInfo As Process
For Each myProcess In myProcesses
SetProcessWorkingSetSize(myProcess.Handle, -1, -1)
Next myProcess
End If
Catch ex As Exception
End Try
End Sub[/CODE]
Kullanmak için : RefreshMemory() yazmanız yeterli.
(Timer'a atamanızı öneririm , fazla bellek kullanımı hatası alanlar kodu kullanarak hatayı çözebilirsiniz.)
Try
GC.Collect()
GC.WaitForPendingFinalizers()
If (Environment.OSVersion.Platform = PlatformID.Win32NT) Then
SetProcessWorkingSetSize(Process.GetCurrentProcess().Handle, -1, -1)
Dim myProcesses As Process() = Process.GetProcessesByName("ApplicationName")
Dim myProcess As Process
'Dim ProcessInfo As Process
For Each myProcess In myProcesses
SetProcessWorkingSetSize(myProcess.Handle, -1, -1)
Next myProcess
End If
Catch ex As Exception
End Try
End Sub[/CODE]
Kullanmak için : RefreshMemory() yazmanız yeterli.
(Timer'a atamanızı öneririm , fazla bellek kullanımı hatası alanlar kodu kullanarak hatayı çözebilirsiniz.)