Send Message an einen Dienst

[Digielm]

Hallo an alle

ich habe einen Code hier gefunden

Delphi-Quellcode:

    dwMessagenew := RegisterWindowMessage(Progguid);
    HAPPLICATION := 0;
    HMAINFORM := 0;
    repeat
      HAPPLICATION := FindWindowex(0,HAPPLICATION,'TApplication', progname);
    until HAPPLICATION <> Application.Handle;
    if HAPPLICATION <> 0 then
    begin
      Windows.ShowWindow(HAPPLICATION, SW_Normal);
      Windows.BringWindowToTop(HAPPLICATION);
      Windows.SetForegroundWindow(HAPPLICATION);
      HMAINFORM := FindWindowEx(0,0,mainform, nil);
      if (HMAINFORM <> 0) then
      begin
          AtomSend := GlobalAddAtom(MyMessage);
          SendMessage(HMAINFORM,dwMessagenew,0,Atomsend);
      end;
    end;

Das klappt ohne Probleme wenn ich eine Sichtbare Application habe.
Klappen tut das leider nicht wenn die Applikation ein Dienst ist oder die Showmainform = false gesetzt wurde.
Gibt es eine andere Möglichkeit ein Sendmessage auszuführen an eine bestimmte Applikation ?