摘要:
当用户的键盘和鼠标无操作超过才一个时间值时,执行锁屏程序 //使用TTimer控件的OnTime事件procedure TForm1.Timer1Timer(Sender: TObject); begin //锁屏.当用户设置了自动锁屏,并且锁屏程序没有启动时,这两个都是自定义变量 if UserI 阅读全文
摘要:
uses FileCtrl; //引用这个单元就可以了,不用添加其他打开类组件 var Dir: string; begin if SelectDirectory( '选择目录 ', ' ',Dir) then //Dir存储着用户选择的目录名称 edit1.Text :=dir; end; 阅读全文