Ändern einer Prozess Priorität funktioniert nicht (NT4)

[glunzl]

Hallo!

Ich bastel mit gerade eine Prozedur, die mir die Prio eines übergeben Prozessnamen auf HOCH stellt. Dazu habe ich viel Stoff im Forum gefunden. Zum testen nehme ich "notepad.exe"
Das Programm läuft unter NT4.
Ablauf der Funktion:
- Es wir eine ProzessID-Liste erstellt -> EnumProcesses
- dann mit pos der Prozessname gesucht
- wenn gefunden die Prio abgefragt und bei anders als HOCH auf HOCH gesetzt.

Nun mein Problem: Wenn ich erst notepad.exe starte und dann mein Programm, klappt alles. Starte ich erst mein Programm und dann notepad.exe, dann findet die Prozedur notepad.exe nicht. Da mir in der Prozessliste der Prozessnamen meines Programmes ausgegeben wird, gehe ich davon aus, das die aktuell ist. Wo versteckt sich nun der Prozess???

Delphi-Quellcode:

// ProcessName wird im OnFormCreate Ereignis aus einer INI-Datei gelesen und zugewiesen.


procedure TForm1.CheckNSet() ;
type   TPIDList = Array of DWORD ;
var
  ProcessList  : TPIDList ;
  dwReturn     : DWORD;
  PidProcesses : PDWORD;
  PidWork      : PDWORD;
  BufferSize   : Cardinal;
  Needed       : DWORD;
  cntProcesses : Cardinal;
  i,  Prio     : Cardinal;
  Handle       : THandle;
  Path : Array [0..300] of Char ;
  FoundProcess : boolean ;
begin
  Needed := 0;
  BufferSize := 1024;
  GetMem(PidProcesses, BufferSize);
  // make sure memory is allocated
  if Assigned(PidProcesses) then
    begin
      FoundProcess := false ;
      try
        // enumerate the processes
        if EnumProcesses(PidProcesses, BufferSize, Needed) then
        begin
          dwReturn := 0;
          cntProcesses := Needed div sizeof(DWORD) - 1;
          PidWork := PidProcesses;
          setlength(ProcessList, cntProcesses);
          // walk the processes
          if Debug.Checked then Memo1.Lines.Add(DateTimeToStr(Now) + ': Hole Prozessliste ...') ;
          for i := 0 to cntProcesses - 1 do
            begin
              ProcessList[i] := PidWork^;
              // hier Processnamen suchen
              Handle := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, True, ProcessList[i]);
              GetModuleFileNameEx(Handle,0,Path,300) ;
              if Debug.Checked then Memo1.Lines.Add(DateTimeToStr(Now) + ': Prozess ' + IntToStr(i) + ': ' + Path) ;
              if pos(ProcessName,Path) <> 0 then
                begin
                  if Debug.Checked then
                    begin
                      FoundProcess := true ;
                      Memo1.Lines.Add(DateTimeToStr(Now) + ': ' + ProcessName + ' in Prozessliste gefunden') ;
                      Memo1.Lines.Add(DateTimeToStr(Now) + ': ' + Path) ;
                    end ;
                  Prio := GetPriorityClass(Handle)  ;
                  if Prio = $00000080 then Memo1.Lines.Add(DateTimeToStr(Now) + ': ' + ProcessName + ' mit Priorität = HOCH gefunden') ; // HIGH_PRIORITY_CLASS
                  if Prio = $00000040 then Memo1.Lines.Add(DateTimeToStr(Now) + ': ' + ProcessName + ' mit Priorität = LEERLAUF gefunden') ;  // IDLE_PRIORITY_CLASS
                  if Prio = $00000020 then Memo1.Lines.Add(DateTimeToStr(Now) + ': ' + ProcessName + ' mit Priorität = NORMAL gefunden') ;    // NORMAL_PRIORITY_CLASS
                  if Prio = $00000100 then Memo1.Lines.Add(DateTimeToStr(Now) + ': ' + ProcessName + ' mit Priorität = ECHTZEIT gefunden') ;  // REALTIME_PRIORITY_CLASS
                  // Wenn Prio nicht hoch, dann Prio auf HOCH setzen
                  if Prio <> $00000080 then
                    begin
                      if SetPriorityClass(Handle,(HIGH_PRIORITY_CLASS )) = Null
                      then Memo1.Lines.Add(DateTimeToStr(Now) + ': Fehler beim setzen der Priorität!')
                      else Memo1.Lines.Add(DateTimeToStr(Now) + ': Priorität gesetzt!')
                    end ;
                end ;
              Inc(PidWork);
            end;
            if not FoundProcess then Memo1.Lines.Add(DateTimeToStr(Now) + ': ' + ProcessName + ' nicht gefunden') ;
        end
      finally
        // clean up no matter what happend
        FreeMem(PidProcesses, BufferSize);
      end;
    end;
end ;

// Edit1: Code angepasst.

[Sepp]

Hallo glunzl

Wo setzt Du den Prozessnamen zum Vergleich
Die Übegabe ist sProcName im Code vergleichst Du aber ProcessName.

Ich habe die Stelle nicht in Deinem Code gefunden.
aProcName wird nicht verwendet sagt eine Suche in Deinem Codeausschnitt.


Grüße

[glunzl]

Hallo!

Leider ein kleiner Fehler. Ich wollte den Prozessnamen der Procedur übergeben, allerdings habe ich dann den Prozessnamen Global deklariert und den im OnForm1Create Ereignis zugewiesen.
Ich habe den Code oben angepasst.
MG

[Luckie]

Werte doch mal hier

Delphi-Quellcode:

then Memo1.Lines.Add(DateTimeToStr(Now) + ': Fehler beim setzen der Priorität!')

GetLastError aus, anstatt deine nichtssagende Fehlermeldung ins Memo zu schreiben.