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 楼 | 留言人 匿名 | 主题 Subject | 2010-1-27 2:06:12 |
新版留言版测试 | |||
3 楼 | 留言人 匿名 | 主题 关于如何加强执行力 | 2010-5-11 21:05:45 |
针对目前出台的很多规定和要求,以及相对应的处理办法,如何有效的执行这一问题,大家开展讨论。 | |||
4 楼 | 留言人 大雕 | 主题 Subject | 2013-2-1 16:13:30 |
来看看 | |||
5 楼 | 留言人 匿名 | 主题 Subject | 2013-2-5 13:08:47 |
哈哈哈 | |||
6 楼 | 留言人 匿名 | 主题 Subject | 2013-3-16 13:18:52 |
''''' | |||
7 楼 | 留言人 匿名 | 主题 Subject | 2013-3-26 13:18:47 |
'lk' | |||
8 楼 | 留言人 匿名 | 主题 Subject | 2013-5-15 13:18:53 |
~`':;"'?/,.!@#$^&*()_+-= | |||
9 楼 | 留言人 匿名 | 主题 Subject | 2013-6-6 13:18:53 |
' | |||
10 楼 | 留言人 匿名 | 主题 Subject | 2013-7-6 13:18:53 |
%'%20 | |||