OK... ich habe das Problem gelöst.
Es war ein kleiner aber gemeiner Fehler in der GetProcessID. Drauf gekommen bin ich dadurch, dass ich ein funktionierendes Programm, dass GetProcessID einsetzt mit meinem aktuellen verglichen hab. Ersteres verwendete eine komplette
Unit von Luckie, die er auf seiner Homepage zum Download anbietet, das zweite nur die GetProcessID-Methode, die ich vor einiger Zeit in meine nützliche-Methoden-
Unit hinein kopiert habe.
Der Fehler an sich war folgender:
Delphi-Quellcode:
function GetProcessID(const ProcName: string; var ID: DWORD): DWORD;
(...)
begin
dw := 0;
hProcSnap := CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);
if hProcSnap <> 0 then // <-- in der kopierten Variante stand hier "="
begin
(...)
Das Hooken der
DLL funktioniert nun endlich und ich kann mich darum kümmern meine Firewall zum Laufen zu bringen
(ich bin also vollauf zufrieden
)