Morgen,
ich hab dank dieses Tut´s
www.delphi-library.d...rtet+wird_19370.html meiner Anwendung "beigebracht" das sie nicht mehrmals geöffnet werden kann.
Das funktioniert auch einwandfrei, aber sollte die Application schon laufen wird sie nicht in den Vordergrund gerückt, was ja nach dem Code:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
| procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if (Msg.message = ActivationMessage) then
begin
Application.Restore;
SetForegroundWindow(Handle);
SetActiveWindow(Handle);
Handled := True;
end; |
so sein sollte.....
was an sich nicht ganz so tragisch ist, aber da ich auch parameter zu Laufzeit an meine Anwendung schicken will ist das ein riesen Problem....
siehe diese Tut:
www.delphi-library.d...ebergeben_20679.html
in selbiger Procedure befindet sich die Codezeile zum auslesen :
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
| procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if (Msg.message = ActivationMessage) then
begin
Memo1.Lines.Add(ReadStringFromMMF(MyGUID + 'MMF'));
Application.Restore;
SetForegroundWindow(Handle);
Handled := True;
end;
end; |
Aber die Procedure wird ja gar nich ausgeführt...
Kann einer sagen wieso das nicht funzt?
(ich habs 2 mal genau nach Anleitung gemacht)
