[Delphi] WM_COPYDATA 로 통신하기

보내는 쪽

 

 

procedure TForm1.Button1Click(Sender: TObject);
var
  DataBuf: TCopyDataStruct;
  s: String;
  aHWND: HWND;

 

begin
  s:='XXXXX 안녕 개새끼야 씨발놈아';
  DataBuf.cbData:=Length(Trim(s))+1;
  DataBuf.lpData:=PChar(s);

 

  aHWND:=FindWindow('TForm2', 'Form2');
  if aHWND=0 then OutputDebugString('없다!')
  else begin
    SendMessage(aHWND, WM_COPYDATA, Handle, lParam(@DataBuf));
    OutputDebugString('보냈다');
  end;

 

  CloseHandle(aHWND);

end;