第一页最后页总共有98目前在第1下一页
1 楼留言人 匿名主题 空2010-1-24 21:43:21
unit Unit1;interface uses Windows,Messages; type TForm1=class(TForm) Label1: TLabel; private {Private declarations} procedure WMDeviceChange(var Msg:TMessage);message WM_DEVICECHANGE; public {Public declarations} end; var Form1:TForm1; implementation {$R *.dfm} procedure TForm1.WMDeviceChange(var Msg:Tmessage); var myMsg:String; begin Case Msg.Wparam of 32768: begin myMsg:='U盘插入'; Label1.Caption:=myMsg end; 32772: begin myMsg:='U盘拔出'; Label1.Caption:=myMsg; end; end; end; end.

2 楼留言人 匿名主题 Subject2010-1-27 2:06:12
新版留言版测试

3 楼留言人 匿名主题 关于如何加强执行力2010-5-11 21:05:45
针对目前出台的很多规定和要求,以及相对应的处理办法,如何有效的执行这一问题,大家开展讨论。

4 楼留言人 大雕主题 Subject2013-2-1 16:13:30
来看看

5 楼留言人 匿名主题 Subject2013-2-5 13:08:47
哈哈哈

6 楼留言人 匿名主题 Subject2013-3-16 13:18:52
'''''

7 楼留言人 匿名主题 Subject2013-3-26 13:18:47
'lk'

8 楼留言人 匿名主题 Subject2013-5-15 13:18:53
~`':;"'?/,.!@#$^&*()_+-=

9 楼留言人 匿名主题 Subject2013-6-6 13:18:53
'

10 楼留言人 匿名主题 Subject2013-7-6 13:18:53
%'%20

第一页最后页总共有98目前在第1下一页
主题:  留言人:
输入验证码