如何修改外部程序的编辑框的可写性？？？

Question

如何修改外部程序的编辑框的可写性？？？

Answer 1

这样试试：
获取编辑框的句柄，修改这个句柄的窗口样式，去掉ES_READONLY这个样式

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  h,e:thandle;
begin
  h:=FindWindow(nil,'DForm');  //DForm为外部程序标题
  if h=0 then
  begin
     ShowMessage('程序没找到!');
     exit;
  end;
  e:=FindWindowEx(h,0,nil,'Edit1');
  if e=0 then
  begin
     ShowMessage('编辑框Edit1没找到!');
     exit;
  end;
  SendMessage(e,EM_SETREADONLY,0,0);  //设Edit1可写
end;