モナーの *やさしい* Delphi質問スレ Ver.7
■ このスレッドは過去ログ倉庫に格納されています
0063Delフサギコ ◆zE1iiRdQ
NGNGOutputDebugStringというAPI関数を書けば
IDEのイベントログWindowに出力結果が表示されます。
procedure TForm1.Button3Click(Sender: TObject);
begin
OutputDebugString('OutputDebugStringで文字を出力');
end;
(ス)または
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;
 ̄ ̄ ̄ ̄ ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
\ ∧,,∧
ミ゚Д゚,,∩
⊂;゙ ,ミ ←
 ̄  ̄ ミ゙゙_ ミ〜 ト  ̄  ̄  ̄
∪゙ヽ ミ オ
/ ∪ \
/ : オ
/ || . ォ \
/ | : ォ \
/ .
| . ォ
■ このスレッドは過去ログ倉庫に格納されています