改键精灵Delphi源码

【例子介绍】

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

【相关图片】

【源码结构】

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;