>>480

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
num:integer;
begin
num := SendMessage(GetDlgItem(hWnd, IDC_MCDBEDIT),WM_GETTEXTLENGTH,0,0);
s := StringOfChar(#0,num+1);
SendMessage(GetDlgItem(hWnd, IDC_MCDBEDIT),WM_GETTEXT,num+1,LPARAM(s));
MessageBox(Handle, PChar(s),'取得', MB_OK);
end;