Buttons anderer Anwendungen umbeschriften

whoknows · Hält's aus hier Beiträge: 3

Hallo,

vielleicht kann mir hier jemand helfen. Ich habe ein kommerzieles Programm, dass in delphi Programmiert wurde. Allerdings entspricht die Buttonbeschriftung nicht meinen Anforderungen. Gibt es irgendeine Möglichkeit mittels Handle oder anderem mit einem zweiten Programm auf die Buttons zuzugreifen und die Beschriftungen anzupassen? Hat jemand eine Idee wie man dies realisieren kann? Die Sourcen des Programms kann ich leider nicht einsehen, da es ja kommerziel ist.

Mit freundlichen Grüßen

GTA-Place · Verfasst: Do 30.08.07 15:05

FINDWINDOW und Suche in der Entwickler-Ecke

WM_SETTEXT müsste das richtige sein-

_________________
"Wer Ego-Shooter Killerspiele nennt, muss konsequenterweise jeden Horrorstreifen als Killerfilm bezeichnen." (Zeit.de)

whoknows · Hält's aus hier Beiträge: 3

Ich hab da jetzt ein bisschen rumprobiert. Ich kann den Button zwar klicken, aber ich schaffe es noch nicht die Beschriftung zu ändern. Was mache ich noch falsch?

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

 
procedure TForm1.Button2Click(Sender: TObject);
var
  wnd : HWND;
  i   : Integer;
  s   : string;
begin
  wnd := FindWindow('WindowsForms10.Window.8.app3',nil);
  if wnd <> 0 then begin
    wnd := FindWindowEx(wnd,0,'WindowsForms10.BUTTON.app3',nil);
    s := 'Was anderes!';
    For i := 1 to Length(s) do
      SendMessage(wnd, WM_SETTEXT, Word(s[i]), 0);
  end;
end;

Moderiert von raziel: Code- durch Delphi-Tags ersetzt

GTA-Place · Verfasst: Do 30.08.07 23:04

markieren

Delphi-Quelltext

1:	SendMessage(Wnd, WM_SETTEXT, 0, LPARAM(PChar(S)));

Ohne for-Schleife und der letzte Parameter verwenden.

_________________
"Wer Ego-Shooter Killerspiele nennt, muss konsequenterweise jeden Horrorstreifen als Killerfilm bezeichnen." (Zeit.de)

whoknows · Hält's aus hier Beiträge: 3

Danke für die Hilfe. Damit funktioniert es jetzt bei einigen Buttons, aber leider noch nicht bei allen.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme