Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Nachricht senden (https://www.delphipraxis.net/15785-nachricht-senden.html)

Beg 4. Feb 2004 09:10


Nachricht senden
 
Hallo,

ich möchte mit SendMessage Daten an eine andere Anwendung schicken.
Ich habe es mit WM_COPYDATA probiert, klappt soweit ganz gut,
aber wenn ich einen variablen Titel für die (Empfänger)Form verwenden...

Kann jemand helfen?

Gruß

Beg

Phoenix 4. Feb 2004 10:00

Re: Nachricht senden
 
Wenn Du Deine Frage nicht konkret stellst sondern nur ... fragst, nicht ein wenig Code postest und das Problem beschreibst was Du hast, wahrscheinlich nicht.

Beg 4. Feb 2004 10:10

Re: Nachricht senden
 
hatte eigentlich mehr geschrieben!
...
aber wenn ich einen variablen Titel für die (Empfänger)Form verwenden möchte habe ich keine
Ahnung wohin ich die Nachricht senden soll.

Also : Fenstertitel(Empfänger) = Fenstername + [Benutzername] + [Datenbankname]
wobei [...] variabel sind.

Wenn ich nun mit SendMessage(FindWindow(nil,Pchar('Fenstername')),W M_COPYDATA, ...
eine Nachricht senden möchte kommt sie nicht an!

Luckie 4. Feb 2004 10:19

Re: Nachricht senden
 
Vergib eine möglichst eindeutige Fensterklasse und nutze diese für FindWindow.

Beg 4. Feb 2004 10:57

Re: Nachricht senden
 
@Luckie
und der Fenstername? Wenn ich dort nichts angebe kommt auch nichts an!

FindWindow(Pchar('TfrmAnwendung'),nil) -> geht nicht

Luckie 4. Feb 2004 11:03

Re: Nachricht senden
 
Überprüf mal, ob du überhaupt ein Handle bekommst. Sollte jedenfalls theoretisch so gehen.

Beg 4. Feb 2004 11:05

Re: Nachricht senden
 
Sorry,
ich glaub ich bin noch nicht ganz wach!
Es funktioniert!

Danke!

Gruß Beg


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:35 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz