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 ?

[Luckie]

Da fehlt mal wieder das Grundlagenwissen zu Diensten. Dienste laufen in einer anderen Windows Station und haben somit erstmal keinen Zugriff auf die interaktive Windows Station und deren Desktops. Nutze andere Möglichkeiten der Interprozesskommunikation, wie memoryMappedFiles, NamedPipes, Mailsolts oder was es sonst noch so gibt.