Ich hätte da ein paar Fragen bzw. Anmerkungen zu deinem Code

zusammenfalten · markieren

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 // <--- Hier (1)
      begin
        if pos(Exename, pe32.szExeFile) <> 0 then // <--- Hier (2)
          result := pe32.th32ProcessID;
      end;
    end;
    CloseHandle(hProcSnap);
  end;
end;

...

zu (1): überspringst du bei der While-Schleife nicht den ersten Eintrag der mit Process32First gefunden wurde? Beim Aufruf von Process32Next, müsste doch der Wert den dir Process32First geliefert hat gleich wieder verloren gehen, oder?
Ok, ich hab die Hilfe für die 2 Funktionen noch nicht gelesen, aber sieht verdächtig aus.

zu (2): wäre es nicht sicherer die Strings in pos vorher in Upper/LowerCase umzuwandeln? weil so ist es ein Unterschied ob du nach 'notepad.exe' oder 'NoTePaD.eXe' suchst, oder?

Ich habe deinen Source nicht ausprobiert, falls alles so funktioniert ... sorry für die Anmerkungen, und Schande über mich.

Zitat von rantanplan99:

Ich hätte da ein paar Fragen bzw. Anmerkungen zu deinem Code

zu (2): wäre es nicht sicherer die Strings in pos vorher in Upper/LowerCase umzuwandeln? weil so ist es ein Unterschied ob du nach 'notepad.exe' oder 'NoTePaD.eXe' suchst, oder?

Hoi,

Groß/Kleinschreibung wird von Pos() nicht berücksichtigt, also ist das schon so O.K.

mfG
mirage228

Zu eins: Stimmt, den Überspringe ich. Das macht aber nichts, da der erste Prozess der Leerlauf ist. Die Routine kommt aus einem Programm, wo ich den Leerlaufprozess nicht brauchen konnte.

Zitat von mirage228:

Groß/Kleinschreibung wird von Pos() nicht berücksichtigt, also ist das schon so O.K.

Groß-/Kleinschreibung macht schon einen Unterschied. So wird zum Beispiel der Text 'Hilfe' im Wort 'Delphihilfe' durch Pos nicht gefunden.

......

[ot]

Zitat von Delphi-Hilfe:

Die Groß/Kleinschreibung wird von Pos nicht berücksichtigt.

..Trotzdem hat skura recht:

Zitat von sakura:

Groß-/Kleinschreibung macht schon einen Unterschied. So wird zum Beispiel der Text 'Hilfe' im Wort 'Delphihilfe' durch Pos nicht gefunden.

Lügt die Hilfe? oder wie oder wat?
[/ot]
Gruß
Stephan

Keine Ahnung, aber die Originalhilfe schreibt:

Delphi englisch

Pos searches for Substr within S and returns an integer value that is the index of the first character of Substr within S. Pos is case-sensitive.

......

Und ich glaube, es wurde schon des öfteren festgestellt, das die Hilfe an dieser Stelle falsch ist. Kann es leider nicht ausprobieren, da ich weg muss. Bis nachher dann.