Hi
ich habe eine Anwendung die nur einmal gestartet werden darf. Wenn jetzt aber eine 2. Instanz mit Parameter gestartet wird, dann sollten die Parameter zuerst an die 1. Instanz geschickt werden und danach erst die Anwendung beendet werden.
Also hab ich gesucht und auch folgenden Code gefunden:
Delphi-Quellcode:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
MutexFensterHandle : THandle;
S : String;
begin
MutexFensterHandle := FindWindow('TForm1', 'TestAnwendung');
if MutexFensterHandle <> 0 then
begin
S := 'Test';
SendMessage(MutexFensterHandle, WM_ParamterSend, 0, DWORD(PChar(S)));
SetForegroundWindow(MutexFensterHandle);
end
else Showmessage('Es ist ein Fehler beim finden des Fensterhandels aufgetreten');
end;
Delphi-Quellcode:
const
WM_ParamterSend = WM_USER + 5;
[..]
procedure ParamterReceive(var msg: TMessage); message WM_ParamterSend;
[..]
procedure TForm1.ParamterReceive(var msg: TMessage);
begin
msg.Result := 1;
ShowMessage(PChar(msg.lParam));
end;
In meiner Testanwendung funktioniert der Code perfekt (Sendet die Nachricht an sich selber)
In meinem eigentlichen Programm bekomme ich aber nur eine paar kryptische Zeichen ausgegeben (2. Instanz sendet an 1. Instanz)
Meine Vermutung ist das nur der Pointer geschickt wird und dieser bei der 1. Instanz dann auf einen zufälligen Wert zeigt. Stimmt das? Wie kann ich das am besten Lösen?
Nur so zur Info das ist meine erste Verwendung von SendMessage also nicht böse sein wenn dies ganz einfach zu lösen ist
