[KOOL]

Из моего лаунчера:

Код:

procedure TMainForm.FillForms(n:integer);
var Hnd,  i:cardinal;
    s, c:string;
begin
  Hnd:=GetForegroundWindow;
  if Hnd=0 then
    Exit;
  c:=GetText(Hnd);
  if Lowercase(c)='world of warcraft' then
    begin
      for i:=1 to Length(<логин>)do
        SendMessage(Hnd, wm_char, Ord(<логин>[i]), 0);
      SendMessage(Hnd, WM_KEYDOWN, VK_TAB, 0);
      SendMessage(Hnd, WM_KEYUP, VK_TAB, 0);
      s:=<пароль>;
      for i:=1 to Length(s)do
        SendMessage(Hnd, WM_CHAR, Ord(s[i]), 0);
      SendMessage(Hnd, WM_KEYDOWN, VK_TAB, 0);
      SendMessage(Hnd, WM_KEYUP, VK_TAB, 0);
      SendMessage(Hnd, WM_KEYDOWN, VK_RETURN, 0);
      SendMessage(Hnd, WM_KEYUP, VK_RETURN, 0);
    end;
end;