Hallo,
ich habe nun schon das halbe Forum durchgelesen, aber leider noch nichts zu meinen Problem gefunden, vieleicht kann mir jemand weiter helfen.
Mein Progrämmchen soll einen ToolButton in einem Fremden Programm betätigen. Leider bekomme ich den Handle dafür nicht.
Hier mein Bsp. Prg.
Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9:
| procedure TfrmMain.Button1Click(Sender: TObject); var MFwnd, hTb, hTbb: HWND; begin MFwnd:= FindWindow(pChar('TFormMain'),nil); hTb:= FindWindowEx(MFwnd,0,'TToolbar',nil); hTbb:= FindWindowEx(hTb,0,nil,'ToolButton14');
PostMessage(htbb, BM_CLICK, 0, 0); end; |
Für hTb bekomme ich den Handle, aber bei hTbb bekomme ich immer 0 zurück.
Was mache ich falsch???