Taste drücken durch Programm ?

[Helmut]

So, hab das Programm erstmal im grundkonzept fertig.

Es gibt einen knopf (button2, button 1 spielt jetzt noch keine rolle) auf den man klickt, dann wird der 2. kanal aktibiert.
In dem edit1-feld sollte man den namen des fensters angeben, allerdings funktioniert das nur manchmal. Ich glaube das liegt an der konvertierung von String zu PChar. Selbst wenn man den richtigen namen eingibt kommt "fenster nicht gefunden".

Und eine zweite sache funktioniert auchnochnicht:
er gibt keine meldung aus wenn er den button nicht findet oder wenn die verbindung aufgebaut ist (wollte das so machen das wenn nach 5 durchläufen alle mal "deaktivieren" gefunden wurde, ist die verbindung aufgebaut).

Ich muss heute nachmittag nochmal suchen was da falsch ist, auf die schnelle fällts mir nämlich nicht auf..

Hier mal der gesamte quellcode:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, ExtCtrls;

type
  TForm1 = class(TForm)
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    MainMenu1: TMainMenu;
    Datei1: TMenuItem;
    Beenden1: TMenuItem;
    Button1: TButton;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Timer1: TTimer;
    procedure Button2Click(Sender: TObject);
    procedure Beenden1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    procedure clickit(name_: PChar);
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  test : integer;
  fenstername: PChar;
  error: boolean;

implementation

{$R *.dfm}

procedure Tform1.ClickIt(name_: PChar);
var
  hWnd : Cardinal;
  hBtn : Cardinal;
begin
  hWnd := FindWindow(nil, 'Verbunden mit XXL arcor');
  if hWnd = 0 then
  begin
    timer1.Enabled:=false;
    Messagebox(Handle, 'Fenster nicht gefunden', 'Fehler', MB_ICONSTOP);
    button1.enabled:=true;
    button2.Enabled:=true;
    error:=true;
    exit; 
  end;
  hBtn := FindWindowEx(hWnd, 0, nil, 'A&ktivieren');
  if hBtn = 0 then 
  begin
    hBtn := FindWindowEx(hWnd, 0, nil, '&Deaktivieren');
    if hBtn = 0 then
    begin
     //showmessage('Der Knopf wurde nicht gefunden. Schalten sie eventuell die Details ein.');
     Messagebox(Handle, 'Der Knopf wurde nicht gefunden. Schalten sie eventuell die Details ein.', 'Fehler', MB_ICONSTOP);
     button1.Enabled:=true;
     button2.Enabled:=true;
     timer1.enabled:=false;
     exit;
    end;
    test:=test+1;
    if test>5 then
    begin
     timer1.enabled:=false;
     showmessage('2.Kanal aktiviert!');
    end;
    exit;
  end;
   test:=0;
   SendMessage(hBtn, BM_CLICK, 0, 0);
end; 


procedure TForm1.Button2Click(Sender: TObject);
begin
error:=false;
timer1.tag:=1;
button1.Enabled:=false;
button2.Enabled:=false;
fenstername:=PChar(edit1.text);
timer1.enabled:=true;
end;

procedure TForm1.Beenden1Click(Sender: TObject);
begin
application.terminate;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if (test>5) or (error=true) then
 begin
  timer1.Enabled:=false;
  timer1.tag:=0;
  test:=0;
  if error<>true then showmessage('2. Kanal aktiviert!');
  button1.Enabled:=true;
  button2.Enabled:=true;
  exit;
 end
 else
 begin
  if timer1.tag=1 then clickit(fenstername);
 end;
end;
end.