基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 1 元　

支付宝支付

微信支付

   源码介绍

---

 冰封王座改键精灵外挂，写于很多年前，代码乱，没做优化

procedure TfChangeKey.RegKeySingleJiNeng;
VAR
  w: Word;
begin
  IF (edtNUM6.Text <> '') and (edtZDY0.Text <> '') then
BEGIN
    MyJiNengKey[1] := TextToShortCut(edtNUM6.Text);
    Myjinengcall[1]:=TextToShortCut(edtZDY0.Text);
end;
  IF (edtNUM8.Text <> '') and (edtZDY2.Text <> '') then
BEGIN
    MyJiNengKey[2] := TextToShortCut(edtNUM8.Text);
    Myjinengcall[2]:=TextToShortCut(edtZDY2.Text);
end;
  IF (edtNUM10.Text <> '') and (edtZDY4.Text <> '') then
BEGIN
    MyJiNengKey[3] := TextToShortCut(edtNUM10.Text);
    Myjinengcall[3]:=TextToShortCut(edtZDY4.Text);
end;
  IF (edtNUM7.Text <> '') and (edtZDY1.Text <> '') then
BEGIN
    MyJiNengKey[4] := TextToShortCut(edtNUM7.Text);
    Myjinengcall[4]:=TextToShortCut(edtZDY1.Text);
end;
  IF (edtNUM9.Text <> '') and (edtZDY3.Text <> '') then
BEGIN
    MyJiNengKey[5] := TextToShortCut(edtNUM9.Text);
    Myjinengcall[5]:=TextToShortCut(edtZDY3.Text);
end;
  IF (edtNUM11.Text <> '') and (edtZDY5.Text <> '') then
BEGIN
    MyJiNengKey[6] := TextToShortCut(edtNUM11.Text);
    Myjinengcall[6]:=TextToShortCut(edtZDY5.Text);
end;
end;