Vista: Ein Programm mit Benutzerrechten starten

[ProgrammerJoe]

Zitat:

Delphi-Quellcode:

  function GetProcessID(Exename: string): DWORD;
  var
    hProcSnap: THandle;
    pe32: TProcessEntry32;
  begin
    result := 0;
    hProcSnap := CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);
    if hProcSnap <> INVALID_HANDLE_VALUE then
    begin
      pe32.dwSize := SizeOf(ProcessEntry32);
      if Process32First(hProcSnap, pe32) = true then
      begin
        while Process32Next(hProcSnap, pe32) = true do
        begin
          if pos(UpperCase(Exename),Uppercase( pe32.szExeFile)) <> 0 then
            result := pe32.th32ProcessID;
        end;
      end;
      CloseHandle(hProcSnap);
    end;
  end;

An mehreren Stellen im Forum geistert immer wieder dieser Codeschnipsel durchs Forum, wenn es darum geht, die Prozess-ID anhand des exe-Namens zu ermitteln (z.B. Suche nach hProcSnap).

Dazu habe ich zwei Fragen:

1. Die Funktion verwendet eine kopfgesteuerte und keine fußgesteuerte Schleife. Das heißt, der erste Prozeß wird nie erfaßt. Ist das irgendein Systemprozeß, den man nicht haben will? Ist das Absicht? Habe ich irgendetwas nicht verstanden, oder ist das schlicht ein Bug?

2. Es wäre sinnvoll, im Erfolgsfall aus der Schleife auch auszusteigen. Ich würde die Funktion daher so schreiben:

Delphi-Quellcode:

  function GetProcessID(Exename: string): DWORD;
  var
    hProcSnap: THandle;
    pe32: TProcessEntry32;
  begin
    result := 0;
    hProcSnap := CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);
    if hProcSnap <> INVALID_HANDLE_VALUE then begin
      pe32.dwSize := SizeOf(ProcessEntry32);
      if Process32First(hProcSnap, pe32) = true then begin
        repeat
          if pos(UpperCase(Exename),Uppercase( pe32.szExeFile)) <> 0 then begin
            result := pe32.th32ProcessID;
            break;
          end;
        until Process32Next(hProcSnap, pe32) = false;
      end;
      CloseHandle(hProcSnap);
    end;
  end;

Spricht irgendetwas gegen diese Version?