Moin.
Zwei Applikationen kommunizieren via WM miteinander. Folgendermaßen implementiert:
Sender:
Delphi-Quellcode:
procedure TSendForm.FormCreate(Sender: TObject);
begin
WM_CMD_MY_WM := RegisterWindowMessage ('MyWm');
end;
...
...
PostMessage(HWND_BROADCAST, WM_CMD_MY_WM, 90, 0);
...
...
Empfänger:
Delphi-Quellcode:
procedure TRecForm.FormCreate(Sender: TObject);
begin
WM_CMD_MY_WM := RegisterWindowMessage ('MyWm');
end;
procedure TRecForm.WndProc(var msg : TMessage);
begin
if msg.Msg = WM_CMD_MY_WM then
begin
ShowMessage('Bingo ' + IntToStr(msg.WParam) + ' ' + IntToStr(msg.LParam));
end
else
begin
inherited WndProc(msg);
end;
end;
Funktioniert soweit wunderbar. Nun soll aber die Empfänger Applikation mit Admin Rechten laufen.
Wenn ich diese nun durch Manifest oder mit 'Als Administrator ausführen' mit Admin Rechten starte, funktioniert es nicht mehr.
Wieso ist das so und was kann ich machen damit das trotzdem funktioniert?
Vielen Dank.