1 2 3 4 5 6 7 8 9101112131415161718192021222324
//テキストを取得する場合 //メッセージの定義 const WM_GETTEXT = $D; //テキスト取得 const WM_GETTEXTLENGTH = $E; //テキストの長さ取得 Memo = CMemo.Create; Memo.Text = "ABCDEF"; Hnd = Memo.Handle; //ハンドル //まずは文字列の長さを求める //パラメータはどちらも0 Len = SendMessage(Hnd,WM_GETTEXTLENGTH,0,0); Inc(Len); //nullの分を足す //メモリを確保 Alloc(s,Len); //テキスト取得 //WParamは文字列の長さ //LParamは文字列を入れる変数 SendMessage(Hnd,WM_GETTEXT,Len,s); Mes(s); //テキスト表示