Tasten ausgeben

[KleinAmann]

hey danke für die Antworten,

Delphi-Quellcode:

procedure TPanel.Button1Click(Sender: TObject);
var
  i : Integer;
  wnd: HWND;
begin
  wnd := FindWindow('cabalmain', nil);
  if wnd <> 0 then
  begin
        wnd := FindWindowEx(wnd, 0, 'cabalmain', nil);
        i := 1;
        while i < 10 do
            begin
              if i = 1 then begin Sleep(4000); PressKey(vk_NUMPAD4); Edit2.Text := 'Taste 4 aktiviert'; i:= i+1; Sleep(1900); end;
              begin
                if i > 1 then
                begin
                  i:= i+1;
                  Edit2.Text := 'Taste 1 aktiviert';
                  PressKey(vk_NUMPAD1);
                  Sleep(1400);
                  Edit2.Text := 'Taste 2 aktiviert';
                  PressKey(vk_NUMPAD2);
                  Sleep(1400);
                  end else Edit2.Text := 'faild';
        end;
    end;
  end;
end;

leider funktioniert dass hier nur in Notepad und nicht bei der cabalmain.exe

was ist zu tun?

Naja sorry das ich Frag hatt kaum Internet letzter Zeit viel stress und meine Kumpels wollen endlich dass Programm also sry.

Mfg D○MI