Text in ein fremdes Fenster an bestimmter Position

[simjoh]

Hallo,

ich möchte im geöffneten Fenster eines laufenden Programms einen Text an eine bestimmt Position setzten. Momentan mache ich das so, wobei der Text ('Hallo') in die Caption (warum auch immer gerade dorthin) des Fensters geschrieben wird (in FHWnd ist das Handle des Fensters gespeichert):

Delphi-Quellcode:

function FUNC_SendInput(const s: string):String;
begin
  if FHWnd=0 then
  begin
    Application.MessageBox(PChar('Fehler!'),'');
    exit;
  end;
  SetForegroundWindow(FHWnd);
  
  Sendmessage(fhwnd,WM_SETTEXT,0,Integer(PChar(s)));

end;

procedure TForm.Button1Click(Sender: TObject);
begin
  FUNC_SendInput('Hallo');
end;

Das funzt auch so, 'Hallo' erscheint im Fenster. Ich will es aber nicht in die Caption schreiben, sondern am liebsten per Koordinaten an eine bestimmt Stelle.
Kann mir jemand helfen?

Nette Grüße

[Neutral General]

Hi,

Also mit WM_SETTEXT kannst du nur den Text/Caption von Objekten mit Handle ändern. Was du machen könntest, ist das ganze mit Canvas zu "malen". Das Problem ist jedoch das das ganze einfach wieder übermalt wird bei der nächsten WM_PAINT Message an das Objekt...

So würde man das dann ungefähr machen:

Delphi-Quellcode:

var C: TCanvas;
begin
  C:= TCanvas.Create;
  C.Handle := GetDC(FHwnd);
  C.TextOut(x,y,Text);
  C.Free;
end;

Gruß
Neutral General

[simjoh]

Hallo,

danke sehr, das funzt so. Du hast aber natürlich recht, dass mein Text immer wieder überschrieben wird. Fällt da jemand noch ne andere Lösung ein oder kann man die genannte irgendwie ausbauen?

Grüße

[shmia]

Immer daran denken: sämliche Manipulation über Fensterhandles (zwwichen 2 versch. Anwendungen)
werden unter Windows Vista nicht mehr funktionieren! :warn:
SendMessage wird zwar ausgeführt, kommt aber bei der fremden Anwendung nicht an.

[simjoh]

Du meinst damit, Canvas ist die optimale Lösung?

[toms]

Zitat:

Zitat von shmia

Immer daran denken: sämliche Manipulation über Fensterhandles (zwwichen 2 versch. Anwendungen)
werden unter Windows Vista nicht mehr funktionieren! :warn:
SendMessage wird zwar ausgeführt, kommt aber bei der fremden Anwendung nicht an.

Hallo shima,

Kommt es nicht auch darauf an, was für ein UI privilege die Anwendung hat?
Siehe Webseiten-Titel"User Interface Privilege Isolation (UIPI)"

Zitat:

More specifically, applications in lower privilege modes cannot generally send messages to higher privileged applications unless the higher privileged application explicitly allows that message by calling ChangeWindowMessageFilter(). Similarly, lower privileged applications can read but cannot modify an HWND owned by higher privileged applications. For compatibility reasons, SendMessage and other APIs will return success even if the API was blocked because of privilege issues. Similarly, where compatibility impact is high and security risk is low sometimes low-privileged applications are allowed to send unsolicited messages to high privileged applications.

[simjoh]

Hat jemand noch ne Idee?

[LizardKaiser]

Timer + Zeichenoperation?

[bitsetter]

Hi,

es ist zwar nicht optimal aber eine andere Variante, mit dem TStaticText kann man ja auch Text anzeigen, du setzt ihn auf das fremde Fenster.

Delphi-Quellcode:

Windows.SetParent(Statictext1.Handle, FHWnd);

[simjoh]

Ja, Timer + Zeichnen geht auch, hab ich auch schon probiert, da flackerts aber so.

Zu dem anderen Vorschlag: Kannste nochmal was genauer erklären wie das geht?

Danke an alle.