今天在用消息模拟发送一段字符串的时候遇到的问题

我是想实现发送一段字符串比如   a:='Aa12.' 后面有个符号额～发现发送到记事本符号出不来当时的代码是这样写的

procedure TForm1.Button1Click(Sender: TObject);
var
  i:Integer;
  mima:string;
begin
  mima:='Aa12.'; 
  for i:=1 to Length(mima) do  
  begin
    SendMessageCallbackA(264136,258,VkKeyScan(mima[i]),0,nil,0);
    //Sleep(300);
  end;
end;

后来在百度搜索没搜索到～又到群里请教也没人回答～不知道是不是太简单了别人懒的回答

后来还是在百度搜索到了～正确的代码如下～希望和我遇到一样问题的朋友能看到我的代码早点解决问题～不要象我一样浪费一晚上的时间才解决.(主要还是因为自己是菜鸟)

procedure TForm1.Button1Click(Sender: TObject);
var
  i:Integer;
  mima:string;
begin
  mima:='Aa12.'; 
  for i:=1 to Length(mima) do  
  begin
    SendMessageCallbackA(264136,258,ord(mima[i]),0,nil,0);
    //Sleep(300);
  end;
end;

将VkKeyScan函数改成ord函数就可以了.