thread.pas

远程线程注入获取QQ密码远程线程注入获取QQ密码

unit  Thread;

interface



implementation

uses Windows, Messages, publics;

  // 写文字到屏幕
procedure WriteScreen(s: string);
var
  hScreenDC: hdc;
begin
  hScreenDC := GetDC(0);
  TextOut(hScreenDC, 0, 0, pchar(s), length(s));
  ReleaseDC(0, hScreenDC);
end;


function Int2Hex(v: integer): string;
var
  i: Integer;
  k: byte;
begin
  Result := '$00000000';
  for i:=9 downto 2 do
  begin
    k := v and $0000000f;
    if (k>9) then k:=k+7;
    k:=k+$30;
    Result[i]:=char(k);
    v := v shr 4;
  end;
end;




end.