빈거울 wrote:

> 안녕하세요.

> WM_COPYDATA 를 사용해서 데이타를 주고 받을 때.

> 데이타를 던진 쪽을 죽이려고 해도 죽지가 않습니다.

> WM_CLOSE를 해도 죽지 않는데 아시는 분 계신가요 ?

>

> 감사합니다..

>

> 보내는 부분.

> var

> wnn:HWND;

> DataStruct: TCopyDataStruct;

> Data: TData;

> begin

> wnn:=FindWindow('TReceiving','받기');

> Data.s := Edit1.Text;

> DataStruct.dwData := wnn;

> DataStruct.cbData := SizeOf(TData);

> DataStruct.lpData := @Data;

> SendMessage(wnn, WM_COPYDATA,wParam(Application.Handle), lParam(@DataStruct));

> end;

>

> 받는 부분.

> var

> wnn : HWND;

> Data: TData;

> begin

> CopyMemory(@data, Message.CopyDataStruct^.lpData, SizeOf(TData));

> wnn := FindWindow('TForm1', nil);

> SendMessage(wnn,WM_CLOSE,0,0); <- 죽이 않음...

> if wnn > 0 then begin

> ShowMessage('닫기 에러');

> end else begin

> ShowMessage('닫기 성공');

> end;

> Memo1.lines.add(Data.s);

> end;



PostMessage(wnn, WM_CLOSE, 0, 0); <==혹시 모르니까 요거한번 사용해보세요

일단 Data는 제대로 받는지 궁금합니다.

CopyMemory(@data, Message.CopyDataStruct^.lpData, SizeOf(TData));

이 함수를 그냥 메인에다가 놓은면 안될 것 같은데...?

SendMessage로 보냈으니 메시지 펌핑하는 곳이나 WinProc같은 곳에서 처리해야할 것 같은데요?



그리고, 소스를 보니 실재로 죽이는데 관여하는 부분은 두줄이군요.

wnn := FindWindow(... 와

SendMessage(wnn, WM_CLOSE, 0,0) 인데



제 생각에 제대로 안된다면 Find를 잘못해서 정확히 그 윈도우의 핸들을 못구했거나

SendMessage에서 wparam와 lparam이 제대로 안되었을 것 같습니다.

이런거는 API 책보면 나와 있으니 잠시 보면 되겠군요.

FindWindow에서 잘 찾습니다. 그리고 데이타도 잘 넘어 오고요.



그리고. 받는 부분을 메인에 놓은 것이 아니라. 함수를 하나 만들어서 사용하고



있습니다..



그런데도. 안되니.. 이상하네요..