보내는 쪽
procedure TForm1.Button1Click(Sender: TObject);
var
DataBuf: TCopyDataStruct;
s: String;
aHWND: HWND;
var
DataBuf: TCopyDataStruct;
s: String;
aHWND: HWND;
begin
s:='XXXXX 안녕 개새끼야 씨발놈아';
DataBuf.cbData:=Length(Trim(s))+1;
DataBuf.lpData:=PChar(s);
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;
if aHWND=0 then OutputDebugString('없다!')
else begin
SendMessage(aHWND, WM_COPYDATA, Handle, lParam(@DataBuf));
OutputDebugString('보냈다');
end;
CloseHandle(aHWND);
end;
'Delphi' 카테고리의 다른 글
| [Delphi] 커서 포함 화면캡쳐 (0) | 2009.04.18 |
|---|---|
| [Delphi] Indy10 TCP - 구조체 데이터 주고받기 (0) | 2009.04.18 |
| [Delphi] Indy10 - TIdTCPServer 를 이용해 원하는 클라이언트에 원하는 타이밍에 Send 하기 (0) | 2009.04.18 |
| [Delphi] Indy10 을 이용한 Stream 전송 (TCP/IP) (0) | 2009.04.18 |
| 간단한 키보드 훅 (0) | 2009.04.18 |
