Einzelnen Beitrag anzeigen

wadriller

Registriert seit: 25. Feb 2009
43 Beiträge
 
Delphi XE2 Professional
 
#1

Edit einer Fremdanwendung füllen - Es will einfach nicht klappen

  Alt 15. Okt 2013, 11:49
Hallo zusammen.

Seit gestern wühle ich mich durchs Forum und hab jetzt glaube alle Wege durch und nichts scheint zu klappen.

Relativ einfache Geschichte.

Ich habe ein kleines Programm welches ein Edit und 2 Buttons hat.

In das Edit will ich mit meinem Delphiprogramm etwas eintragen und einen Knopf drücken.

Soweit so klar.
Findwindow, FindwindowEx, Sendmessage klappen aber einfach nicht.

Den Findcode habe ich mir sowohl mal mit WinSpy als auch mit X-Spy generieren lassen.
Beim debuggen wird wohl auch ein Handle ermittelt aber das Sendmessage scheint trotzdem nicht zu gehen.

Hier mal der übersichtliche Code:

Code:
var
  wnd, cwnd: HWND;
begin
  wnd:=0;
  cwnd:=0;
  wnd := FindWindow('#32770', '');
  cwnd := FindWindowEx(wnd, 0, 'Edit', nil);

  if cwnd <> 0 then
  begin
    SendMessage(cwnd,WM_Settext,0,integer(pchar('12')));
  end;
end;
Bei WinSpy kann ich das Edit auswählen und auch via WinSpy füllen.
Nur per Delphi geht es irgendwie nicht.

Kann man eine Anwendung gegen "Fremdsteuerung" schützen ?

Wenn es hilft kann ich auch den Link zu der Exe posten die ich steuern will.
Gruß
Michael
  Mit Zitat antworten Zitat