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