幾個測試用的函數

function IsKeyDebug: Boolean;
begin
  if GetKeyState(VK_RCONTROL)<0 then
    Result:=True
  else
    Result:=False;
end;

function IsKeysDebug: Boolean;
begin
  if (GetAsyncKeyState(VK_RCONTROL) < 0) and (GetAsyncKeyState(VK_RSHIFT) < 0) then
    Result:=True
  else
    Result:=False;
end;

function ClipStr(AStr: String): Boolean;
begin
  Clipboard.SetTextBuf(PChar(AStr));
end;

function ClipLog(AStr: String): Boolean;
begin
  if IsKeyDebug or (debughook <> 0) then
  begin
    ClipStr(AStr);
  end;
end;