제가 필요해서 간단히 만든 델파이 디버그뷰 프로그램입니다.

기존의 OutputDebugString은 개발모드에서는 동작이 안되고, 실행파일로 실행될때만
메세지 전달이 되서 불편했었는데요..

그래서 델파이 개발모드에서도 디버깅을 쉽게할수 있도록 만들었습니다.

원리는 WM_COPYDATA 메세지를 이용해서, 디버그뷰 프로그램으로 메세지를 보내서 확인하는 방식입니다.




개발중인 프로그램이 있다면, 아래코드를 넣어주세요.

  SendHWND := xxxxxx 부분만 다운받은 디버그뷰 핸들값을 넣어주시면 됩니다.


//------------------------------------------------------------//
// 디버그메세지 전송
//------------------------------------------------------------//
procedure DebugMsg(const Msg: String);
var
  SendHWND : HWND;
  TestHWND : HWND;
  Data : TCOPYDATASTRUCT;
  len : Integer;
begin
  SendHWND := 5838300;
  len := Length(Msg) + 1;

  Data.dwData:=0;
  Data.cbData:=len;
  Data.lpData:=pChar(Msg);

  SendMessage(SendHWND, WM_COPYDATA, TestHWND, LPARAM(@Data));
end;