Benutzer definierte Messages Handling

[Tarry]

Hi,
Ich moechte, dass wenn jemand mein Program zum zweiten mal oeffnet (Eine Instanz schon laeuft) sich die erste Instanz aus dem System Tray wiederherstellt.

Ich versuche dies mit der Hilfe von Windows Messages durchzusetzen, aber es funktioniert einfach nicht.
Entweder wird meine Message nicht gesendet oder nicht empfangen. Der Code wird nicht ausgefuert.

Ich bin mit meinem Latein am Ende...
Hier sind die betroffenen Code Schnipsel.

Beim Starten des Programms (Senden der Message):

Delphi-Quellcode:

uses
  [..]
  Messages
  [..]

const tAlreadyRunning = 'The program is already running !';
      AppName = 'Alarm Clock by Tarry91';
      [b]UM_RISEANDSHINE = WM_USER + 100;[/b]

var mHandle: THandle;    // Mutexhandle
 
begin
  mHandle := CreateMutex(nil,True,AppName);
  If GetLastError = ERROR_ALREADY_EXISTS
    Then begin
         // application.MessageBox(tAlreadyRunning, AppName, mb_ok+MB_ICONINFORMATION);
         [b]SendMessage(FindWindow(nil,pchar(AppName)),UM_RISEANDSHINE,0,0);[/b]
         end
    Else Begin
          Application.Initialize;               
          Application.Title:= 'Alarm Clock by Tarry91';
          Application.CreateForm(TMainForm, MainForm);
          Application.Run;
         End;
  If mHandle <> 0 Then CloseHandle(mHandle);
end.

In dem Hauptprogramm (Deklaration und Handling der Message):

Delphi-Quellcode:

[...]
const UM_RISEANDSHINE = WM_USER + 100;
[...]
procedure RiseAndShine(var Msg: TMessage); message UM_RISEANDSHINE;

Delphi-Quellcode:

procedure TMainForm.RiseAndShine(var Msg: TMessage);
begin
  ShowMessage('Test');
  MainForm.Show;
  Msg.Result := 1;
end;

Ich hoffe ihr koennt heraufinden, warum die Message nie ankommt :)

Danke schonmal,
Thomas

[omata]

Delphi-Quellcode:

SendMessage(FindWindow(nil, pchar('MainForm')), UM_RISEANDSHINE, 0, 0);

FindWindow sucht nicht nach der Application sondern nach der Fenstercaption.

[Tarry]

Zitat:

Zitat von omata

Delphi-Quellcode:

SendMessage(FindWindow(nil, pchar('Form1')), UM_RISEANDSHINE, 0, 0);

FindWindow sucht nicht nach der Application sondern nach der Fenstercaption.

Hi,
Aber meine Fenstercaption ist die gleiche, wie der Application name ("Alarm Clock by Tarry91"). :gruebel:
Gibt es eine Moeglichkeit zu checken ob FindWindow, das Fenster gefunden hat ?

Danke,
Thomas

[omata]

Ja, der Rückgabewert von FindWindow muss <> 0 sein.

[Tarry]

Zitat:

Zitat von omata

Ja, der Rückgabewert von FindWindow muss <> 0 sein.

Danke,
der Rueckgabewert ist <> 0 (2229586 um genau zu sein).
Kann es sein das die Message gesendet wird, aber nicht ankommt ?

Wie kann ich das testen ?

Gruss,
Thomas

[omata]

Das Beispiel, das ich oben angehängt habe, funktioniert bei mir.

[himitsu]

Programmübergreifende Messages sollte man auch nicht einfach so definieren.
Dafür gibt es RegisterWindowMessage

ein Beispiel ist z.B. in dem dort angehängten Code zu finden,

oder in der DP
RegisterWindowMessage
OK, ich weiß daß die Suche da nix findet (das Wort ist zu lang), aber [google]RegisterWindowMessage site:delphipraxis.net[/google]

[omata]

Neues Beispiel

[Tarry]

Zitat:

Zitat von omata

Neues Beispiel

Ich werde daraus nicht schlau :(
Ich kann einfach keinen Unterschied zwischen deiner und meiner Version finden :gruebel:
Koennte es daran liegen, dass ich die Komponente CoolTrayIcon benutze ?

Gruss,
Thomas

[omata]

Funktioniert das Beispiel bei dir?