怎样用postMessage发送字符窜,一定给分 var cp: pchar;begin cp := PChar(allocmem(2)); cp := 'j'; postMessage(Handle, WM_keydown, LongInt(cp), 0);end; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 取地址好象不行你是用WINDOWS自带的计算器吧你可以用一个循环POSTMESSAGE把一个字符串送过去用ORD(str[i]) 都说了不用wm_keydown用wm_char procedure SendString(aHandle:HWND;const s:string);var i:integer;begin for i:=1 to length(s) do PostMessage(aHandle,WM_IME_CHAR,ord(s[i]),0);end; wolaixue:如果发送汉字怎吗写? SendString(Edit1.Handle,'我来学习'); wolaixue:这个函数在那里,找不着阿 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;procedure SendString(aHandle:HWND;const s:string);var Form1: TForm1;implementation{$R *.dfm}procedure SendString(aHandle:HWND;const s:string);var i:integer;begin for i:=1 to length(s) do PostMessage(aHandle,WM_IME_CHAR,ord(s[i]),0);end;procedure TForm1.Button1Click(Sender: TObject);begin SendString(Edit1.Handle,'我来学习');end;end.我的系统是WINDOES ME,DELPHI 6,通过了啊! WM_IME_CHAR改成WM_CHAR通过,谢谢 delphi如何用TADOStoredProc调用mysql的存储过程? 数据模块的问题 while语句循环问题 如何使sqlserver客户端不装数据库驱动程序? 问一个函数的意思? 高分寻求这样的代码(关于画线路图方面的) 如何比较时间的先后顺序? Delphi编写标准Dll的问题 Indy10.5.6中的FullD12.bat 不能处理含有空格的文件名和路径名,我的终极解决方案 如合作才能够真正释放内存资源?请大家讨论,请高手指点迷津。 delphi的朋友要帮忙 怎样从一个INI文件中读出信息?急!急!急!急!急!急!急!急!急!急!急!
你是用WINDOWS自带的计算器吧
你可以用一个循环POSTMESSAGE
把一个字符串送过去
用ORD(str[i])
var
i:integer;
begin
for i:=1 to length(s) do
PostMessage(aHandle,WM_IME_CHAR,ord(s[i]),0);
end;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;procedure SendString(aHandle:HWND;const s:string);var
Form1: TForm1;implementation{$R *.dfm}procedure SendString(aHandle:HWND;const s:string);
var
i:integer;
begin
for i:=1 to length(s) do
PostMessage(aHandle,WM_IME_CHAR,ord(s[i]),0);
end;procedure TForm1.Button1Click(Sender: TObject);
begin
SendString(Edit1.Handle,'我来学习');
end;end.我的系统是WINDOES ME,DELPHI 6,通过了啊!