Changer la Priorite d'un process

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 [:)]

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.

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...

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

Michel [:)]

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é.

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 [:)]

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);

Michel [:)]

Désolé mais cele ne marche pas

Michel [:)]