Information / Botschaft von Excel zu Delphi-Programmen

[Reimer Buelk]

Hallo miteinander,

ich möchte eine Botschaft von Excel zu meinem Programm senden. Ich habe das folgendes Makro gefunden:

Option Explicit
Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long

Const WM_SYSCOMMAND = &H112
Const SC_CLOSE = &HF060
Const WM_CLOSE = &H10
Const LNULL = 0&

Sub Schliessen()
Dim lReturn As Long
Dim hwnd As Long

hwnd = [Nummer Fenster]

If hwnd Then lReturn = SendMessage(hwnd, WM_CLOSE, LNULL, LNULL)
End Sub

Mit der Botschaft WM_CLOSE gehts auch. Aber wenn ich eine
eigene Botschaft senden möchte geht es nicht.

Warum nicht ???

Wie kann ich Alternativ Information von Excel zu meinem Programm schicken, wenn dieses passiv sein soll ?

[Bernhard Geyer]

Welche Message wolltest Du senden

[Reimer Buelk]

Irrgendeine - welche ich in Delphi abfangen kan

[Bernhard Geyer]

An welches Fenster schichst Du die Meldung? Ans Fenster von TApplication oder an dein Sichtbares "Hauptfenster"

[Reimer Buelk]

Die Message wird an das Hauptfenster der Anwendung gesendet,
also Form1, und mit...

procedure TForm1.WndProc(var Msg: TMessage);
begin
case Msg.Msg of
wm_ID : begin
Box(wm_ID); // wm_ID = 1024
end;
end;
inherited WndProc(Msg);
end;

versuche ich dann die Message abzufangen, was mir bilang nicht gelang