怎么样发送ctrl+b ( 积分: 20 )

J

jjm1227

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-05

• #1

procedure TForm1.Timer1Timer(Sender: TObject);<br>var<br>f,c:thandle;<br>user:string;<br>begin<br>f:=findwindow('#32770',nil);<br>if f&gt;0 then<br>begin<br>c:=findwindowex(f,0,'ComboBox',nil);<br>if c&gt;0 then<br>begin<br>user:=edit1.Text ;<br>SendMessage(c, WM_SETTEXT, 256,integer(user));<br>[red]在这里怎么写入ctrl+b[/red]<br><br>end;<br>end;

 

J

jjm1227

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-05

• #2

procedure TForm1.Timer1Timer(Sender: TObject);<br>var<br>f,c:thandle;<br>user:string;<br>begin<br>f:=findwindow('#32770',nil);<br>if f&gt;0 then<br>begin<br>c:=findwindowex(f,0,'ComboBox',nil);<br>if c&gt;0 then<br>begin<br>user:=edit1.Text ;<br>SendMessage(c, WM_SETTEXT, 256,integer(user));<br>[red]在这里怎么写入ctrl+b[/red]<br><br>end;<br>end;

 

X

xianguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-05

• #3

http://www.delphibbs.com/keylife/iblog_show.asp?xid=13774

 

J

jjm1227

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-05

• #4

有没有用<br>SendMessage<br><br>来做的.

 

J

jlyin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-05

• #5

查ASCII码表吧，<br><br>我只是在短信通讯用到过，比如串口调试要发回车换行；<br>#0D#0A

 

J

jjm1227

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-05

• #6

还是不行..