Suche einen Fehlerfinder!

[himitsu]

probier mal dieses hier

Delphi-Quellcode:

function _SendData(Const vData, ReceiverTitle: String): Boolean;
type
  TlParamRecord = packed Record
    none, count: DWord;
    Pointer: Pointer;
  end;
var
  vs_cds: TlParamRecord;
  hwndRec: HWND;
const
  MHAdditionalIdentifier = '_CAL987qwerty2468';
  WM_COPYDATA_MH = $4A;
begin
  if ReceiverTitle <> '' then begin
    vs_cds.count   := Length(vData);
    vs_cds.Pointer := PChar(vData);
    hwndRec := FindWindow('AutoIt v3 GUI', PChar(ReceiverTitle + MHAdditionalIdentifier));
    Result  := (hwndRec <> 0) and (SendMessage(hWndRec, WM_COPYDATA_MH, 0, DWord(@vs_cds)) <> 0);
  end else Result := False;
end;