Autor Beitrag
Bronstein
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 578
Erhaltene Danke: 1

WIN XP
Delphi 6 / Delphi 2006 / Delphi XE
BeitragVerfasst: Mi 08.11.06 10:20 
Wie kann ich z.B. unter Word die Aktion Datei Neu von einem externen Programm starten. Word ist nicht mein externes Programm, es handelt sich um ein anderes.

Die Leiste heißt in Delphi glaub ich: ActionMainMenu

Habe folgenden Code um auf einen Button eines externen Programms zu drücken:

ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
var
  Button, hHandleDesFensters, wnd : HWND;
  Text : pchar;
  len: Integer;
  windowlongid: LONGint ;
  s   : string;
  i   : Integer;
begin
  SetLastError(0);
  hHandleDesFensters := FindWindow(nil, pchar('Mde'));
  if hHandleDesfensters <> 0 then
  begin
    Button:= FindWindowEx(hHandleDesFensters, 0'TButton'nil);
    if Button <> 0 then
    begin
      windowlongid := getwindowlong(Button, gwl_id);
      SendMessage(GetParent(Button), WM_COMMAND, MAKEWPARAM(windowlongID, BN_CLICKED), Button );
    end
    else
      Messagebox(Handle, PChar(SysErrorMessage(GetLastError)), 'Fehler', MB_ICONSTOP);
  end
  else
    Messagebox(Handle, PChar(SysErrorMessage(GetLastError)), 'Fehler', MB_ICONSTOP);


Aber wie kann ich so ein Menü steuern.
Habe einfach nichts gefunden!

_________________
Es gibt keine dummen Fragen nur dumme Antworten!!!
kandesbunzler
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 116
Erhaltene Danke: 1


Delphi 7, XE2
BeitragVerfasst: Di 26.12.06 15:39 
Hallo,

versuche mal, mittels XSpy die Bezeichnung des Buttons herauszufinden und damit 'TButton' zu ersetzen.

Auf bald ...
kandesbunzler.