Verhindern, das Form.Caption verändert wird...

[FriFra]

Es gibt Programme, wie z.B. WT-Raid, die die Caption das aktiven Fensters verändern um zusätzliche Infos anzuzeigen.
Wie kann ich verhindern, das dies passiert? Ich will selbst bestimmen was in der Form.Caption steht :evil:!

[Daniel B]

Immer wieder und ganz schnell selbst was reinschreiben?!

[FriFra]

Das ist keine gute Lösung. Besser fände ich, wenn man die entspr. Message blockieren könnte, sofern nicht mein Programm selbst die Caption ändert. Für Deinen Vorschlag würde ein Timer mit sehr kurzem Intervall benötigt werden, was die Performance zu stark beeinträchtigen würde.

[Daniel B]

In einem Thread oder evtl. doch Timer, 100ms sollten reichen, das Handle des Fensters merken und anhand dem die Caption abfragen und falls es sich geändert hat, dann Deines wieder schreiben.

[FriFra]

Das will ich so nicht machen... um die Caption zu verändern wird doch dem Fenster eine entspr. Message zugesandt. Genau diese Message müsste man blockieren! Aber wie?

[moin339]

:hi: FriFra

Warum willst du den User nicht selbst entscheiden lassen was in der Caption steht. Wenn er ein programm hat, dass die Caption ändert, dann bistimmt nicht ohne Grund.

ciao, moin339

[Daniel]

Vermutlich wirst Du die sog. 'WindowProc' überschreiben müssen. Ich bin alles andere als ein Fachman dafür, aber grob gesagt ist es wohl so, daß diese Window-Proc der zentrale Dreh- und Angelpunkt für die meisten -wenn nicht sogar für alle- Nachrichten ist, die an Dein Festenr gehen sollen.
Innerhalb dieser Window-Proc kann man die eingehenden Messages nach Typ sortieren und sich dadurch der Nachricht "WM_SETTEXT" (vermutlich wird es diese sein) bemächtigen und deren weitere Ausführung verhindern oder aber den Text mit dem von Dir gewünschten Inhalten überschreiben und die weitere Ausführung dann mit den neuen Parametern zulassen.

Weitere Infos wirst Du vermutlich in "dem Luckie sein" Tutorial finden. Alternativ auch in dem Delphi-Forum Deiner Wahl: WndProc :wink:.

[FriFra]

Aber ich finde das Fenster meines Programmes nicht wieder, wenn die Caption anders ist! Der Grund des Users ist mir egal. Ich habe die Caption auch nicht ohne Grund gewählt!

[moin339]

Zitat:

Zitat von FriFra

Aber ich finde das Fenster meines Programmes nicht wieder, wenn die Caption anders ist! Der Grund des Users ist mir egal. Ich habe die Caption auch nicht ohne Grund gewählt!

Das kann ja kein Problem sein. Dafür müsste es auf jeden fall eine Lösung geben (ohne Caption)
Dann musst du aber mal etwas genauer schildern warum du es nicht wiederfindest.

ciao, moin339

[Luckie]

Dann nimm einen eindeutingen Klassennamen.

[FriFra]

Zitat:

Zitat von moin339

Das kann ja kein Problem sein. Dafür müsste es auf jeden fall eine Lösung geben (ohne Caption)
Dann musst du aber mal etwas genauer schildern warum du es nicht wiederfindest.

ciao, moin339

Weil Findwindow nunmal die Caption benötigt...
Wenn ich nach einer bestimmten laufenden exe suchen würde, was durchaus kein grosses Problem ist, müsste ich alle Tasks abklappern, was aber viel zu lange dauern würde.

[FriFra]

Zitat:

Zitat von Luckie

Dann nimm einen eindeutingen Klassennamen.

wie mache ich das? wie finde ich dann das Fenster?

[Luckie]

Zitat:

Zitat von FriFra

Zitat:

Zitat von Luckie

Dann nimm einen eindeutingen Klassennamen.

wie mache ich das?

In dem du deiner Form einen gescheiten Namen gibst

Zitat:

wie finde ich dann das Fenster?

Mit FindWindow?

[Daniel B]

Nur so mal als Beispiel:

Delphi-Quellcode:

const
  ClassName = 'Setsuna Labs';
  AppName = 'MyFinalFantasy I';

Falls es um NonVLC geht...

[Christian Seehase]

Moin FriFra,

wozu brauchst Du denn FindWindow?
Wenn Du Daniels Vorschlag benutzt könntest Du es so machen

Delphi-Quellcode:

type
  TfrmMAIN = class(TForm)
    // ...
    procedure WndProc(var msg : TMessage); override;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

implementation

procedure TfrmMAIN.WndProc(var msg : TMessage);
begin
  if (msg.Msg = WM_SETTEXT) and (PChar(msg.LParam) <> 'Die Caption, die erhalten werden soll.') then exit;
  inherited WndProc(msg);
end;