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 ?