>>512

本スレ>>294 に既出だが単にprintfデバッグしたいだけなら
これで充分でないの？実行PCに開発環境を入れておく必要もないし

__fastcall TForm1::TForm1( TComponent* Owner) : TForm( Owner )
{
　　::AllocConsole();
}

void __fastcall TForm1::FormMouseDown( TObject*, TMouseButton,
　　TShiftState, int nX, int nY )
{
　　HANDLE hStdout = ::GetStdHandle( STD_OUTPUT_HANDLE );
　　if( hStdout != INVALID_HANDLE_VALUE ){
　　　　TCHAR Message[ 1024 ];
　　　　DWORD dwLength = (DWORD)::wsprintf( Message, TEXT("%d, %d\n"), nX, nY );
　　　　DWORD dwLengthWritten;
　　　　::WriteConsole( hStdout, Message, dwLength, &dwLengthWritten, NULL );
　　}
}