我是想实现发送一段字符串比如 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函数就可以了.