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;

[Olli]

Zitat von ProgrammerJoe:

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

Auf allen Windows-NT-Systemen, wohlgemerkt. Im Kernel wird im Prozeßobjekt der Name eben nur mit sovielen Zeichen *und* nur in ANSI gespeichert. Daher ist es besser den Namen mit der PSAPI zu ermitteln, weil die ToolHelp-API auf der Native-API aufsetzt, welche die Daten des Prozeßobjektes "einfach" nur kopiert. Soweit ich weiß macht die PSAPI das anders, nämlich durch Kopieren der Info aus dem Prozeß selbst (CreateRemoteThread & Co.).