1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

function loadedcheck(pid: integer): boolean;
var s: string;
    f: file of integer;
    str: integer;
begin
  s := getexepath;
  assignfile(f,pchar(s+'stealth_redux.ini'));
  {$i-}
  system.Reset(f);
  {$i+}
  result := false;
  closefile(f);
end;