今天在用消息模擬發送一段字符串的時候遇到的問題

我是想實現發送一段字符串比如   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函數就可以了.