| 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 | |||