Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : Changer la Priorite d'un process [ Archives / API ] (michelroc)

jeudi 23 mars 2006 à 19:32:29 | Changer la Priorite d'un process

michelroc

Membre Club
Bonjour,
Begin
      ShellExecute(form1.Handle, 'Open', 'NOTEPAD.EXE', 0, 0, SW_SHOW);
      SetpriorityClass(getcurrentprocess,REALTIME_PRIORITY_CLASS);
      SetThreadPriority(getcurrentThread,THREAD_PRIORITY_TIME_CRITICAL);
End;

Le but été de changer la priorité de NOTEPAD.EXE ca ne marche pas
Ca change la priorite de mon *.exe

Comment faire ?
Merci.

Michel [:)]

vendredi 24 mars 2006 à 17:44:18 | Re : Changer la Priorite d'un process

rt15

Membre Club Administrateur CodeS-SourceS
Regarde peut être ce source : http://www.delphifr.com/codes/ZHLT-LAUNCHER_11671.aspx Quand tu dis getcurrentprocess et getcurrentThread, je dirais que tu parle de ton appli. Il faut certainement que tu utilise les mêmes fonctions, mais avec d'autres paramètres.

lundi 27 mars 2006 à 19:09:25 | Re : Changer la Priorite d'un process

Matt 261

Membre Club
Salut,
je pense que c'est parceque tu dit ça :
ShellExecute(form1.Handle, 'Open', 'NOTEPAD.EXE', 0, 0, SW_SHOW);

Et que tu récupère le Handle de ta Form plutôt que celui de notepad (arrêtez moi si je dit des bétises)

@+ Matt



La paresse est la mère du génie...

samedi 1 avril 2006 à 16:19:34 | Re : Changer la Priorite d'un process

michelroc

Membre Club
En fait je ne sais pas recuperer le handle du NOTEPAD.EXE
Merci si tu sais comment faire.
A+

Michel [:)]

mardi 4 avril 2006 à 10:04:15 | Re : Changer la Priorite d'un process

rt15

Membre Club Administrateur CodeS-SourceS
Voilou un bout de code qui récupère le hnadle de processus de notepad, dans le cas ou celui-ci est lancé par l'appli, et dans le cas ou il est lancé extérieurement. Le handle est ensuite utilisé pour tuer le processus. //Penser à mettre TlHelp32 dans la clause uses de l'unité //______________________________________________________________________________ procedure TfrmMain.btnCreateClick(Sender: TObject); var uStartUpInfo: TStartupInfo; uProcessInfo: TProcessInformation; begin //On met des 0 dans la structure d'info de démarrage FillChar(uStartUpInfo, SizeOf(TStartupInfo), 0); CreateProcess(nil, 'notepad.exe', nil, nil, True, 0, nil, nil, uStartUpInfo, uProcessInfo); //On laisse l'appli vivante 3 secondes Sleep(3000); TerminateProcess(uProcessInfo.hProcess, 0); end; //______________________________________________________________________________ procedure TfrmMain.btnKillNotepadClick(Sender: TObject); var //Info sur un processus uProcessInfo: TProcessEntry32; hHandle: THandle; begin //Il faut indiqué la taille de la structure dans la structure avant de l'utiliser uProcessInfo.dwSize:= SizeOf(TProcessEntry32); //Création d'un snapshot des processus en cours d'excution hHandle:= CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0); //Récupéation des infos du premier processus snapshoté Process32First(hHandle, uProcessInfo); //On boucle sur les processus repeat //Si c'est notre homme if CompareText(uProcessInfo.szExeFile, 'notepad.exe') = 0 then begin //On demande un handle permettant de le supprimer hHandle:= OpenProcess(PROCESS_ALL_ACCESS, False, uProcessInfo.th32ProcessID); //On lui dit chut, avec le code d'erreur 0 TerminateProcess(hHandle, 0); Break; end; until not Process32Next(hHandle, uProcessInfo); end; //______________________________________________________________________________ A noter que TProcessInformation contient aussi le handle du thread principal si tu as besoin de changer sa priorité.

mardi 4 avril 2006 à 17:46:15 | Re : Changer la Priorite d'un process

michelroc

Membre Club

J'ai ecris ce program mais cela ne fonctionne pas ça ne change pas la priorite
je pense que l'erreur est sur ces 2 lignes

*******************************************************
SetpriorityClass(hHandle,REALTIME_PRIORITY_CLASS);
SetThreadPriority(hHandle,THREAD_PRIORITY_TIME_CRITICAL);
*******************************************************

Program Priorite_Exe_RM;

{$APPTYPE CONSOLE}
{$APPTYPE GUI}      
uses
  SysUtils, Dialogs, QDialogs, Windows, TlHelp32  ;

Var I : Integer;
    P0, P1, P2 : String;

    uStartUpInfo: TStartupInfo;
    uProcessInfo: TProcessInformation;

    uProcessInfo1: TProcessEntry32;
    hHandle: THandle;
begin
  { TODO -oUser -cConsole Main : placez le code ici }
  P0:= ParamStr(0);
  P1:= ParamStr(1);
  P2:= ParamStr(2);


  //ShowMessage(P0+#13#10+
  //            P1+#13#10+
  //            P2);
  // Lance l'excutable P1 ****************************************************************
  FillChar(uStartUpInfo, SizeOf(TStartupInfo), 0);
  CreateProcess(nil, PChar(P1), nil, nil, True, 0, nil, nil, uStartUpInfo, uProcessInfo);

  // Change la Priorite de l'executable
****************************************************************
  uProcessInfo1.dwSize:= SizeOf(TProcessEntry32);
  hHandle:= CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0);
  Process32First(hHandle, uProcessInfo1);
  //On boucle sur les processus
  repeat
    if CompareText(uProcessInfo1.szExeFile, PChar(P1)) = 0 then
     begin
      SetpriorityClass(hHandle,REALTIME_PRIORITY_CLASS);
      SetThreadPriority(hHandle,THREAD_PRIORITY_TIME_CRITICAL);
     // ShowMessage(uProcessInfo1.szExeFile);

    end;
  until not Process32Next(hHandle, uProcessInfo1);
end.
*********************************************************


Merci  A+

Michel [:)]


mardi 4 avril 2006 à 17:59:04 | Re : Changer la Priorite d'un process

rt15

Membre Club Administrateur CodeS-SourceS
Oups... Si c'est toi qui crée le processus, tu n'as pas besoin de le rechercher par la suite. Et le pb dans ton code là c'est au moins que tu appelle tes deux fonctions avec hHandle qui pointe sur le snap des processus... Je ne sais pas ce quel type de handle tes deux fonctions prennent en argument, mais ça devrait putôt ressembler à ceci : FillChar(uStartUpInfo, SizeOf(TStartupInfo), 0); CreateProcess(nil, PChar(P1), nil, nil, True, 0, nil, nil, uStartUpInfo, uProcessInfo); SetThreadPriority(uProcessInfo.hTrhead,THREAD_PRIORITY_TIME_CRITICAL);

mardi 4 avril 2006 à 18:18:02 | Re : Changer la Priorite d'un process
mardi 4 avril 2006 à 18:34:25 | Re : Changer la Priorite d'un process

michelroc

Membre Club
Désolé mais cele ne marche pas

Michel [:)]

mercredi 5 avril 2006 à 13:23:39 | Re : Changer la Priorite d'un process

rt15

Membre Club Administrateur CodeS-SourceS
Réponse acceptée !
Ah bon. par contre ça, ça marche : //______________________________________________________________________________ procedure TfrmMain.btnPriorityClick(Sender: TObject); var uStartUpInfo: TStartupInfo; uProcessInfo: TProcessInformation; begin //On met des 0 dans la structure d'info de démarrage FillChar(uStartUpInfo, SizeOf(TStartupInfo), 0); //On lance le processus avec une haute priorité CreateProcess(nil, 'notepad.exe', nil, nil, True, REALTIME_PRIORITY_CLASS, nil, nil, uStartUpInfo, uProcessInfo); //On change la priorité du thread principal SetThreadPriority(uProcessInfo.hThread, THREAD_PRIORITY_TIME_CRITICAL); end; //______________________________________________________________________________ Je fais le boulot de SetpriorityClass dans CreateProcess. Deux trois petites explication sur les processus et thread... Un trhead est un morceau de code qui est en train de s'executer sur le processeur (Ou du moins qui attend sont tour). Un processus est un ensemble de thread qui s'execute dans le même espace mémoire. Le processeur execute les thread un par un successivement, et c'est windows, qui en fonction de la priorité, laisse un trhead s'executer plus ou moins souvent et plus ou moins longtemps. La priorité d'un trhead est définie par sa priorité + celle de son processus. Autrement dit, pour avoir un thread qui est privilégié par windows, il faut mettre sa priorité au max, ainsi que celle de son processus. Le revers de trops augmenter la priorité d'un thread, c'est que celui-ci risque de géner les thread système, et poser des problèmes aux niveau des mémoires cache et de la souris par exemple.


1 2

Cette discussion est classé dans : exe, changer, process, priorite, notepad


Répondre à ce message

Sujets en rapport avec ce message

Changer l'icone de mon exe [ par OcHre ] Salut, je voudrais savoir si il est possible de changer l'icone de mon exe (aprés compilation). J'ai essayé ceci mais sans succés: Application.Icon.As Nom de l'exe à la compilation [ par Guillemouze ] Salut à tous, je voulais juste savoir si il est possible de changer le nom de l'exe à la compilation, grace à une directive de compilation.j'ai reussi Icone exe [ par ptitsoleil ] Bonjour à tous,je tiens déjà à préciser que je débute en Delphi pour des raisons professionnelles.J'ai trouvé comment changer une icone d'un exe manue pas de fichier exe dans mail-bomber [ par azerty38240 ] bonsoir,je voudrais savoir comment faire apparaitre le fichier exécutable de mail-bomber que vous proposer de telecharger.merci à tous et bonne soirée Process group [ par User8 ] Bonjour tout le monde, Je rencontre actuellement un problème pour la suppression de processus. Je serai donc fort intéressé par un petit coup de main. Changer taille tab TMemo [ par christophedlr ] Bonjour,Je voudrais dans un TMemo changer la taille d'une tabulation.J'ai vu un morceau de code sur developpez.com indiquant un message Windows à envo generer un exe delphi [ par nadiacompte ] bonjour tout le mondej'ai une trés urgente quesion:comment générer un exécutable avec delphi 7 tel qu'on peut etre l'installer sur une machine ne cont puis je changer la forme d1 Tbutton [ par roukho ] bj j amerai bien savoir si on peut changer la forme d un Tbutton (rond au lieu de carré) Changer l'apparence des noms des fichiers (couleur du texte) [ par smailyyy ] Bonjour à tous ! Y a une application qui sert à changer la couleur des noms des fichier ou des dossiers (le nom du fichier en couleur). svp je veux bi


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :

Comparez les prix Nouvelle version


HTC Magic

Entre 429€ et 429€


Photothèque Nouveau !



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,296 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.