Nach Handle Suche Selfclick

[Asatru]

Ich glaube ich hab grad bissle zu tief in de flasche geguckt und deshalb sind gedanken lost *fg*

Delphi-Quellcode:

  
procedure TForm1.Button1Click(Sender: TObject);
var
  wnd: HWND;
begin
wnd:= findwindow(nil,PCHar('Problem'));
    if wnd <> 0 then
    begin
      delay(1000);
      Button1.selfclick();
    end;

Wie Thema und code schon sagt soll Button1 sich selbstklicken, nur irgendwie komm ich grad net uff die richtige schreibeweise.

Hoffe mir kann jem,and nen anstoss geben


MFG

[fkerber]

Hi!

Du könntest etwas mehr Code zeigen...
In welcher Prozedur steht dieser Code denn?

Außerdem könntest du Delphi- statt Code-Tags verwenden, dann funktioniert auch das Highlighting richtig...


Ciao, Frederic

[Asatru]

es gibt sogesehen für diese procedur nicht mehr quellcode, sobald ich button1 drücke startet er eben ein andereprogramm was entweder startet oder ein Fehlerfenster auswirft! Und sobald das fehler fenster eben ausgeworfen wird soll sich button1 selbst drücken!


PS: Habs für dich oben mal editiert



MFG

[fkerber]

Hi!

Naja, ein bisschen mehr als eben ist es ja geworden...

Dann versuche es mal mit

Button1Click(Self);
Ciao, Frederic

[Asatru]

rofle danke schön....


war mir eigentlich sicher dasauch schon mal geschrieben zu haben aber anscheinend hatte ich da was verklehrt!


1000 Dank!


MFG

[Luckie]

Ist auch kein schöner Programmierstil. Lager den Code in eine extra Funktion aus und rufe diese auf.