Hallo
DP!
Ich habe ein Problem und komme einfach nicht weiter ...
Ich möchte mit einem Protocol eine anwendung öffen was so auch sehr gut funktioniert bsp.: test://Hallo. Die Anwendung öffnet sich und es erscheint das Hallo als message.
Ich möchte jetzt das nachfolgende Nachrichten in dem gleichen fenster angezeigt werden und nicht das Programm nochmal geöffnet wird. Dazu verwende ich ein helper.exe (ist mit Protocol registriert). Diese Prüft ob anwendung schon läuft und wenn ja soll das Passieren:
Delphi-Quellcode:
const
WM_MY_MESSAGE = WM_USER + 4242;
// helper.exe (Sender)
procedure SendtoApp(sTex:string);
var
h: thandle;
begin
h := FindWindow(nil, 'Project1');
If h <> 0 Then begin
SendMessage(H, WM_MY_MESSAGE, 0, DWORD(stex));
end;
end;
// Project1.exe (Empfänger)
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
AppMessage(msg,handled);
end;
procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
var
S: PChar;
begin
if Msg.message = WM_MY_MESSAGE then
begin
try
S := Pchar(msg.lParam);
try
showmessage(S);
finally
Freeandnil(S);
end;
Handled := True;
except
exit;
end;
end;
end;
// quelle: http://www.swissdelphicenter.ch/de/showcode.php?id=163
// Resultat: Zugriffsverletzung im sekunden tackt
Vielen dank schon einmal
