Thread: ./Facemash computer! Anyone See My Error????

Hey all,

Im wondering why this isnt working? pos seems to be fine, chrome is running...

Code:

procedure GetProcessList(ListOfProcesses, Dumps: TStrings);
var
  hSnapshoot: THandle;
  pe32: TProcessEntry32;
begin
  ListOfProcesses.Clear;
  hSnapshoot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if (hSnapshoot = -1) then
      Exit;
  pe32.dwSize := SizeOf(TProcessEntry32);
  if (Process32First(hSnapshoot, pe32)) then
  repeat
    if (Pos('CHROME.EXE',pe32.szExeFile) > 0) then
    begin
      ListOfProcesses.Add(pe32.szExeFile);
      ProcessMem(pe32,Dumps);
    end;
  until not Process32Next(hSnapshoot, pe32);
  CloseHandle (hSnapshoot);
end;

Maybe its something stupid, i have been staring at the screen for hours so maybe im just braindead and need a break?

Thanks

Idk delphi but have u debugged ur application to see where is the error?

Im guessing Debbuging wouldnt really help me since the code to loop through all processes works, for some reason, i cant seem to figure out how to check if the specified process is running. it just doesnt find it.

ill try a diff way of checking if its in the array.

thanks anyway.

Never mind, worked it out, theres an extra bracket enclosing the pos function.

Thanks for your input anyway.

Regards

Glad it worked