FindWindow in einem Service unter Vista

[Shark99]

Hi.

Hier ist mein Code:

Delphi-Quellcode:

procedure SendMessageToWindow(msg: LongWord;value:longword=0);
var Wnd: THandle;
begin
  Wnd := FindWindow('myClass', NIL);
  if Wnd > 0 then
  begin
       if IsWindowResponding(Wnd,100) then
          SendMessage( HWND_BROADCAST,
               RegisterWindowMessage('myAppMessage'),
               msg,
               value )
       else
           Error('hung!!');
  end;
end;

Es funktioniert in einer normalen Application (sowohl vista als auch xp).
Es funktioniert in einem Service unter XP.
Es funktioniert NICHT in einem Service unter Vista. Wnd ist da immer 0.

Anscheinend funktioniert FindWindow in einem Service unter Vista nicht mehr.

Gibt es eine andere Möglichkeit Nachchrichten an ein Fenster zu schicken? (damit es z.B. in den Vordergrund kommt).

Danke im Voraus!