DÉCOURVIR LES "BACKGROUND IO PRIORITY" DE VISTA Background, io, vista, thread, process, Source N°45046

Information sur la source

Catégorie :Système

Classé sous : Background, io, vista, thread, process Niveau : Débutant Date de création : 13/12/2007 Vu / téléchargé: 2 751 / 54

Auteur : Willi

Site perso

Ecrire un message privé

Ce membre participe au partage de revenus publicitaires

Note :
Aucune note

Commentaire sur cette source (0)

Ajouter un commentaire et/ou une note

Description

Décrouvrez ici une des nombreuses nouveautés apparue avec Vista, permettant de définir une priorité sur les IO de notre process ou thread courant. (utile pour les anti-virus, l'indexation, etc...)

Cette classe propose des méthodes afin de modifier la priorité IO pour process et/ou thread. 2 méthodes sont là également pour indiquer si un process/thread n'est pas déjà en priorité faible sur les IO.

Cela est vraiment simple à mettre en place, d'ou la simplicité de ce code. Microsoft à vraiment simplifier la chose merci aux équipes Windows ;)

Source

Version C# de ce code disponible !

Imports System.Runtime.InteropServices
''' <summary>
''' Classe fournissant des méthodes permettant changer les priorités IO pour le process et thread courant.
''' </summary>
''' <remarks>Vista ou 2008 Server requit.</remarks>
Public Class IOPriority
Const THREAD_MODE_BACKGROUND_BEGIN As Integer = &H10000
Const THREAD_MODE_BACKGROUND_END As Integer = &H20000
Const PROCESS_MODE_BACKGROUND_BEGIN As Integer = &H100000
Const PROCESS_MODE_BACKGROUND_END As Integer = &H200000
Public Const ERROR_THREAD_MODE_ALREADY_BACKGROUND As Integer = &H400
Public Const ERROR_THREAD_MODE_NOT_BACKGROUND As Integer = &H401
Public Const ERROR_PROCESS_MODE_ALREADY_BACKGROUND As Integer = &H402
Public Const ERROR_PROCESS_MODE_NOT_BACKGROUND As Integer = &H403
Public Const ERROR_FAILED_TO_ENTER_BACKGROUND_MODE As Integer = -1
''' <summary>
''' Indique si le thread courant est en priorité faible sur les IO.
''' </summary>
''' <returns>True si priorité faible.False sinon.</returns>
Public Shared Function IsThreadBackgroundMode() As Integer
Dim iret As Integer = False
Dim bIOBckMode As Boolean = SetThreadBackgroundMode(True)
If (bIOBckMode) Then
SetThreadBackgroundMode(False)
iret = ERROR_THREAD_MODE_NOT_BACKGROUND
Else
If Marshal.GetLastWin32Error() = ERROR_THREAD_MODE_ALREADY_BACKGROUND Then
iret = ERROR_THREAD_MODE_ALREADY_BACKGROUND
Else
iret = ERROR_FAILED_TO_ENTER_BACKGROUND_MODE
End If
End If
Return iret
End Function
''' <summary>
''' Indique si le process courant est en priorité faible sur les IO.
''' </summary>
''' <returns>True si priorité faible.False sinon.</returns>
Public Shared Function IsProcessBackgroundMode() As Integer
Dim iret As Integer = False
Dim bIOBckMode As Boolean = SetProcessBackgroundMode(True)
If (bIOBckMode) Then
SetProcessBackgroundMode(False)
iret = ERROR_PROCESS_MODE_NOT_BACKGROUND
Else
If Marshal.GetLastWin32Error() = ERROR_PROCESS_MODE_ALREADY_BACKGROUND Then
iret = ERROR_PROCESS_MODE_ALREADY_BACKGROUND
Else
iret = ERROR_FAILED_TO_ENTER_BACKGROUND_MODE
End If
End If
Return iret
End Function
''' <summary>
''' Définit la priorité du process courant sur les IO.
''' </summary>
''' <param name="enable">True pour passer le process en priorité faible sur les IO. False pour restaurer une priorité normal sur les IO.</param>
''' <returns>True si changement réussi.False en cas d'échec.</returns>
Public Shared Function SetProcessBackgroundMode(ByVal enable As Boolean) As Boolean
If CheckOsVersion() Then
Dim bret As Boolean = False
Dim hProcess As IntPtr = Process.GetCurrentProcess().Handle
If enable Then
bret = NativeMethods.SetPriorityClass(hProcess, PROCESS_MODE_BACKGROUND_BEGIN)
Else
bret = NativeMethods.SetPriorityClass(hProcess, PROCESS_MODE_BACKGROUND_END)
End If
Return bret
Else
Throw New Exception("Not supported by this Windows version.")
End If
End Function
''' <summary>
''' Définit la priorité du thread courant sur les IO.
''' </summary>
''' <param name="enable">True pour passer le thread en priorité faible sur les IO. False pour restaurer une priorité normal sur les IO.</param>
''' <returns>True si changement réussi.False en cas d'échec.</returns>
Public Shared Function SetThreadBackgroundMode(ByVal enable As Boolean) As Boolean
If CheckOsVersion() Then
Dim bret As Boolean = False
Dim hThread As IntPtr = IntPtr.Zero
Try
hThread = ThreadHelper.GetCurentThread()
If enable Then
bret = NativeMethods.SetThreadPriority(hThread, THREAD_MODE_BACKGROUND_BEGIN)
Else
bret = NativeMethods.SetThreadPriority(hThread, THREAD_MODE_BACKGROUND_END)
End If
Catch ex As Exception
Finally
ThreadHelper.CloseHandle(hThread)
End Try
Return bret
Else
Throw New Exception("Not supported by this Windows version.")
End If
End Function
''' <summary>
''' Vérifie la version de Windows (Vista ou 2008 Server).
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Private Shared Function CheckOsVersion() As Boolean
If Environment.OSVersion.Version.Major >= 6 Then
Return True
Else
Return False
End If
End Function
End Class

Imports System.Runtime.InteropServices

''' <summary>
''' Classe fournissant des méthodes permettant changer les priorités IO pour le process et thread courant.
''' </summary>
''' <remarks>Vista ou 2008 Server requit.</remarks>
Public Class IOPriority

    Const THREAD_MODE_BACKGROUND_BEGIN As Integer = &H10000
    Const THREAD_MODE_BACKGROUND_END As Integer = &H20000
    Const PROCESS_MODE_BACKGROUND_BEGIN As Integer = &H100000
    Const PROCESS_MODE_BACKGROUND_END As Integer = &H200000

    Public Const ERROR_THREAD_MODE_ALREADY_BACKGROUND As Integer = &H400
    Public Const ERROR_THREAD_MODE_NOT_BACKGROUND As Integer = &H401
    Public Const ERROR_PROCESS_MODE_ALREADY_BACKGROUND As Integer = &H402
    Public Const ERROR_PROCESS_MODE_NOT_BACKGROUND As Integer = &H403
    Public Const ERROR_FAILED_TO_ENTER_BACKGROUND_MODE As Integer = -1


    ''' <summary>
    ''' Indique si le thread courant est en priorité faible sur les IO.
    ''' </summary>
    ''' <returns><b>True</b> si priorité faible.<b>False</b> sinon.</returns>
    Public Shared Function IsThreadBackgroundMode() As Integer

        Dim iret As Integer = False

        Dim bIOBckMode As Boolean = SetThreadBackgroundMode(True)

        If (bIOBckMode) Then
            SetThreadBackgroundMode(False)
            iret = ERROR_THREAD_MODE_NOT_BACKGROUND
        Else

            If Marshal.GetLastWin32Error() = ERROR_THREAD_MODE_ALREADY_BACKGROUND Then
                iret = ERROR_THREAD_MODE_ALREADY_BACKGROUND
            Else
                iret = ERROR_FAILED_TO_ENTER_BACKGROUND_MODE
            End If

        End If

        Return iret

    End Function

    ''' <summary>
    ''' Indique si le process courant est en priorité faible sur les IO.
    ''' </summary>
    ''' <returns><b>True</b> si priorité faible.<b>False</b> sinon.</returns>
    Public Shared Function IsProcessBackgroundMode() As Integer

        Dim iret As Integer = False

        Dim bIOBckMode As Boolean = SetProcessBackgroundMode(True)

        If (bIOBckMode) Then
            SetProcessBackgroundMode(False)
            iret = ERROR_PROCESS_MODE_NOT_BACKGROUND
        Else

            If Marshal.GetLastWin32Error() = ERROR_PROCESS_MODE_ALREADY_BACKGROUND Then
                iret = ERROR_PROCESS_MODE_ALREADY_BACKGROUND
            Else
                iret = ERROR_FAILED_TO_ENTER_BACKGROUND_MODE
            End If

        End If

        Return iret

    End Function

    ''' <summary>
    ''' Définit la priorité du process courant sur les IO.
    ''' </summary>
    ''' <param name="enable"><b>True</b> pour passer le process en priorité faible sur les IO. <b>False</b> pour restaurer une priorité normal sur les IO.</param>
    ''' <returns><b>True</b> si changement réussi.<b>False</b> en cas d'échec.</returns>
    Public Shared Function SetProcessBackgroundMode(ByVal enable As Boolean) As Boolean

        If CheckOsVersion() Then

            Dim bret As Boolean = False
            Dim hProcess As IntPtr = Process.GetCurrentProcess().Handle

            If enable Then
                bret = NativeMethods.SetPriorityClass(hProcess, PROCESS_MODE_BACKGROUND_BEGIN)
            Else
                bret = NativeMethods.SetPriorityClass(hProcess, PROCESS_MODE_BACKGROUND_END)
            End If

            Return bret

        Else

            Throw New Exception("Not supported by this Windows version.")

        End If

    End Function

    ''' <summary>
    ''' Définit la priorité du thread courant sur les IO.
    ''' </summary>
    ''' <param name="enable"><b>True</b> pour passer le thread en priorité faible sur les IO. <b>False</b> pour restaurer une priorité normal sur les IO.</param>
    ''' <returns><b>True</b> si changement réussi.<b>False</b> en cas d'échec.</returns>
    Public Shared Function SetThreadBackgroundMode(ByVal enable As Boolean) As Boolean

        If CheckOsVersion() Then

            Dim bret As Boolean = False
            Dim hThread As IntPtr = IntPtr.Zero

            Try

                hThread = ThreadHelper.GetCurentThread()

                If enable Then
                    bret = NativeMethods.SetThreadPriority(hThread, THREAD_MODE_BACKGROUND_BEGIN)
                Else
                    bret = NativeMethods.SetThreadPriority(hThread, THREAD_MODE_BACKGROUND_END)
                End If

            Catch ex As Exception

            Finally
                ThreadHelper.CloseHandle(hThread)
            End Try

            Return bret

        Else

            Throw New Exception("Not supported by this Windows version.")

        End If

    End Function

    ''' <summary>
    ''' Vérifie la version de Windows (Vista ou 2008 Server).
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Private Shared Function CheckOsVersion() As Boolean

        If Environment.OSVersion.Version.Major >= 6 Then
            Return True
        Else
            Return False
        End If

    End Function

End Class

Conclusion

Supporté par Vista et 2008 Server uniquement.

Commentaires, notes comme d'habitudes...:)
Merci.

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

IoPriority
- IoPriority
  - My Project
    - Application.Designer.vb 440 octets
    - Application.myapp481 octets
    - AssemblyInfo.vb 1 173 octets
    - Resources.Designer.vb 2 798 octets
    - Resources.resx 5 612 octets
    - Settings.Designer.vb 3 040 octets
    - Settings.settings279 octets
  - IOPriority.vb 5 159 octets
  - IoPriority.vbproj 4 612 octets
  - IoPriority.vbproj.user 74 octets
  - NativeMethods.vb 700 octets
  - ThreadHelper.vb 532 octets
- IO_Vista.sln 927 octets
- IO_Vista.suo36 864 octets

Télécharger le zip

Sources du même auteur

Toutes les sources de Willi

Sources de la même categorie

Toutes les sources de la catégorie Système

Sources en rapport avec celle ci

Commentaires

Aucun commentaire pour le moment.

Ajouter un commentaire

Discussions en rapport avec ce code source

Process thread mémory... par nicolas12

running process en vista par mortha

Pourcentage d'un processus thread ou process CPU par DavidT

BackGround MSFlexGrid par gilardh

Ouvrir un process par metos

détection process en cours sur windows terminal server par paco67

Comment savoir si un Thread est tjs en cours d'exécution par Onclick

pbm avec API Create thread (NT) par venomp

Process /Service par rmlp

Besoin d'aide sur la manipulation de process par PurpleSkunk