輔助教程下載點

...........................................................................................

procedure TForm1.Button1Click(Sender: TObject);
var
I:Integer;
WindowName:String;
begin
  Ghwnd := FindWindow(nil, 'Element Client');
  If Ghwnd=0 then
  showmessage('找不到遊戲視窗');
  For I:=1 to 100 do
  begin
    WindowName:='Element Client'+Format('%d',);
    Ghwnd1 := FindWindow('ElementClient Window', Pchar(WindowName));
    If Ghwnd1=0 then
    begin
      SetWindowText(Ghwnd,Pchar(WindowName));
      break;
    end;
    Application.ProcessMessages;
  end;
end;

{:2_371:}{:2_371:}

謝謝大大分享

辛苦了   拿走瞜!!!!

謝謝囉哈哈哈ㄏ哈哈多謝你的分享

thanksthanksthanksthanksthanksthanksthanksthanksthanksthanksthanksthanksthanksthanksthanksthanksthanksthanks

來看看.................................................

找好久~~~謝謝大大~~~~~~~~~~~~~~~~

謝謝大大分享
                                                                                                                                          謝謝大大謝謝大大分享分享

感恩~~~~~~~~~~~~~~
辛苦了~~~~~~~~~~~~~~~~