怎样在当前光标处插入一串字符,最好是中文。(30分)

  • 主题发起人 主题发起人 我爱PASCAL
  • 开始时间 开始时间

我爱PASCAL

Unregistered / Unconfirmed
GUEST, unregistred user!
f1:=GetForegroundWindow;
f2:=GetWindowThreadProcessId(f1,nil);
AttachThreadInput(GetCurrentThreadId,f2,true);
f3:=getfocus;
AttachThreadInput(GetCurrentThreadId,f3,false);
if f3 = 0 then Exit;
SendMessage(f3, $0286, integer('A'), 0);

以上代码只能插入一个字符。
 
s:='我';
SendMessage(f3, wm_char, ord(s[1]), 0);
SendMessage(f3, wm_char, ord(s[2]), 0);
 
我又找到一句:
SendMessage(f3, wm_char, (ord(str[1]) shl 8) + ord(str[2]), 0);
也可以;
这样应该精炼一点而且是不是要稳定一点.
 
后退
顶部