1. Pascal / Говнокод #17429

    +86

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    function TSnifferMainForm.GetSetInjected(pID:Cardinal; Get:Boolean=False):Boolean;
type rParam=record _pID:Cardinal; _Get,_Res:Boolean; end;
const PE_STR='*RODC_PE ';
var Params:rParam;
function ProcCloseEnum(Handle:THandle; _Params:Integer):BOOL; stdcall;
var TempPID:Cardinal; hCap:string; lCap:integer;
begin
Result:=True;
GetWindowThreadProcessId(Handle,TempPID);
if TempPID=rParam(Pointer(_Params)^)._pID then begin
lCap:=SendMessage(Handle,WM_GETTEXTLENGTH,0,0);
lCap:=lCap+1;
SetLength(hCap,lCap-1);
SendMessage(Handle,WM_GETTEXT,lCap,LongInt(@hCap[1]));
if not rParam(Pointer(_Params)^)._Get then if Pos(PE_STR,hCap)=0 then SetWindowText(Handle,PAnsiChar(PE_STR+hCap)) else SetWindowText(Handle,PAnsiChar(StringReplace(hCap,PE_STR,'',[rfReplaceAll])))
else if Pos(PE_STR,hCap)<>1 then rParam(Pointer(_Params)^)._Res:=False else rParam(Pointer(_Params)^)._Res:=True;
Result:=False; end;
end;
begin
Params._pID:=pID; Params._Get:=Get;
EnumWindows(@ProcCloseEnum,Integer(@Params));
Result:=Params._Res;
end;

    Нет, сраный коллбек, я сделаю тебя локальным чего бы мне это не стоило!

    Запостил: KOTOM, 12 Января 2015

    Комментарии (1) RSS

    Добавить комментарий