also im prinzip hab ich den ja nur vom link oben abgeschreiben.. dachte vllt ist da ja ein genereller bug drinn.. nja hier mal meins:
Delphi-Quellcode:
//Vom Project1:
begin
hPrevWin := FindWindow(nil, 'BTswitcherHilfe');
If hPrevWin <> 0 Then
begin
txt:='testtext';
SetForegroundWindow(hPrevWin);
SendMessage(hPrevWin, WM_USER+77, 0, DWORD(PChar(txt)));
application.Terminate;
end
else
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end;
end.
Delphi-Quellcode:
//oben bei private:
private
procedure OnMyMessage(var Msg: TMessage); message WM_USER+77;
Delphi-Quellcode:
//und dann unten:
procedure tform1.OnMyMessage(var Msg: TMessage);
var txt: PChar;
begin
txt := PChar(msg.lParam);
msg.Result := 1;
ShowMessage(txt);
end;
..so das ganze ist eine billige variante zum verhindern des mehrfachstarts und dabei soll dann zur ersten instanz eine message gegeben werden. (später soll die message den paramstr enthalten.. das kommt ja dann noch)
mfg