Two Worlds 2

[iNvIcTUs oRCuS]

Tag...

Ich hab mir noch mal meinen Sourcecode angeschaut, noch mal Stück für Stück durchgegangen...
Man, man , man... Wie kann man nur so blind sein...

Mein Code zum filtern der richtigen Basis Adresse einer DLL ist ja dieser...
[code=Delphi]
SnapMod:= CreateToolhelp32Snapshot(TH32CS_Snapmodule, ProcID);
ModuleEntry.dwSize := Sizeof(ModuleEntry);
FindDLLBase:= Module32First (SnapMod, ModuleEntry);
while FindDLLBase do begin
if (CompareText(Moduleentry.szModule, DLLName)=0) then
DLLBaseAddy:= ModuleEntry.modBaseAddr;
FindDLLBase:= Module32Next(SnapMod, ModuleEntry);
end;
CloseHandle(SnapMod);[/code]

Malucs Codeabschnitt sieht ja folgendermaßen aus...
[code=Delphi]if lstrcmpi(ModuleEntry32.szModule, lpname)=0 then[/code]

Und mein Codeabschnitt ist ja folgender...
[code=Delphi]if (CompareText(Moduleentry.szModule, DLLName)=0) then[/code]

Na fällt da was auf??? Richtig die beiden Klammern... Klammer Auf vor "CompareText" und Klammer Zu nach der "=0".
Und diese 2 Klammern sind der Übeltäter... :rolleyes:
So funktionierts dann auch mit meiner Variante über CompareText.

grEEtZ sILeNt heLLsCrEAm