C++Builder相談室 Part5

>>124さん>>127さん>>130-131
var　　　　　　　　　　　　　　　　//　 ∧,,∧　　こんなん作れ
　hwndNotepadEdit: HWND;//　ミﾟДﾟ,,彡
　　　　　　　　　　　　　　　　　　// ﾐ)日⊂ミ
procedure DebugPrintNotepad( S:string );
var
　hwndNotepad: HWND;
begin
　if not isWindow( hwndNotepadEdit )
　then begin
　　hwndNotepad := FindWindow( 'Notepad','無題 - メモ帳' );
　　hwndNotepadEdit := FindWindowEx( hwndNotepad,0,'Edit',nil );
　end;
　if not isWindow( hwndNotepadEdit ) then exit;
　SendMessage( hwndNotepadEdit,EM_REPLACESEL,0,LPARAM( PChar( S+#13#10 )));
end;