es hat zwar nichts damit zu tun, aber ok...hier mein source code fürs empfangen (so wird diese Thread wenigstens in der übersicht wieder nach oben geschoben^^):
Delphi-Quellcode:
procedure TForm1.WMCopyData(
var Msg: TWMCopyData);
var sText:
Array of Char; Item:
String; ForegroundThreadID,ThisThreadID:Cardinal;
begin
case Msg.CopyDataStruct.dwData
of
MY_SENTPARAM:
begin
SetLength(sText,Msg.CopyDataStruct.cbData);
StrLCopy(PChar(sText),Msg.CopyDataStruct.lpData,Msg.CopyDataStruct.cbData);
Item:=PChar(sText);
Listbox1.Items.Add(Item);
MY_SHOWAPP:
begin
ForegroundThreadID:=GetWindowThreadProcessID(GetForegroundWindow);
ThisThreadID:=GetWindowThreadProcessId(
Handle);
if AttachThreadInput(ThisThreadID,ForegroundThreadID,True)
then begin
BringWindowToTop(
Handle);
SetForegroundWindow(
Handle);
AttachThreadInput(ThisThreadID,ForegroundThreadID,False);
end;
end;
end;
ist mein problem wirklich so schwer zu lösen oder möchte mir hier einfach niemand ne lösung schreiben?^^