Vista: Ein Programm mit Benutzerrechten starten

[ProgrammerJoe]

noch ein Hinweis, wenn jemand diesen Code verwenden möchte:

Auf manchen Systemen, wie ich zum Beispiel heute im Terminalserver festgestellt habe, werden zum Beispiel bei den Prozessnamen ab dem 15. Zeichen alle weiteren abgeschnitten, daher würde es sich empfehlen, Suchpattern und Suchort in der pos()-Funktion zu vertauschen und aus folgender Zeile:

if pos(UpperCase(Exename),Uppercase(pe32.szExeFile)) <> 0 then begin folgendes zu machen:

if pos(Uppercase(pe32.szExeFile), UpperCase(Exename)) <> 0 then begin Demnach müßte der Code so lauten:

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(pe32.szExeFile), UpperCase(Exename)) <> 0 then begin
            result := pe32.th32ProcessID;
            break;
          end;
        until Process32Next(hProcSnap, pe32) = false;
      end;
      CloseHandle(hProcSnap);
    end;
  end;