Warum Project1.exe al sProzess in Großbuchstaben?

[PASST]

Auf die Idee bin ich auch gekommen. Ich weiß aber nicht wie ich das im Code-Bsp für GetProcessID umsetzen kann.

Delphi-Quellcode:

function TForm1.GetProcessID(sProcName: String): Integer;
var
  hProcSnap: THandle;
  pe32: TProcessEntry32;
begin
  result := -1;
  hProcSnap := CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);
  if hProcSnap = INVALID_HANDLE_VALUE then exit;

  pe32.dwSize := SizeOf(ProcessEntry32);

  { wenn es geklappt hat }
  if Process32First(hProcSnap, pe32) = true then
    { und los geht's: Prozess suchen }
    while Process32Next(hProcSnap, pe32) = true do
    begin
      if pos(sProcName, pe32.szExeFile) <> 0 then
      { if pos(uppercase(sProcName), uppercase(pe32.szExeFile)) <> 0 then }
        result := pe32.th32ProcessID;
    end;
  CloseHandle(hProcSnap);
end;

Wäre das von mir eingefügte Uppercase so machbar?

Gruß
Peter