en ... //中键 if GetAsyncKeyState(VK_RButton)<>0 then ... //右键 ◇[DELPHI]设置窗体的最大显示 [DELPHI]设置窗体的最大显示 LPHI] onformCreate 事件 self.width:=screen.width; self.height:=screen.height; ◇[DELPHI]按键接受消息 [DELPHI]按键接受消息 OnCreate 事件中处理:Application.OnMessage:=MyOnMessage; procedure Tform1.MyOnMessage(var MSG:TMSG;var Handle:Boolean); begin if msg.message=256 then ... //ANY 键
第 4 页 共 31 页
if msg.message=112 then ... //F1 if msg.message=113 then ... //F2 end; ◇[杂类]隐藏共享文件夹 杂类] 共享效果:可访问,但不可见(在资源管理、网络邻居中) 取共享名为:direction$ 访问://computer/dirction/ ◇[Java Script]
Java Script 网页
常用效果 网页 60 秒定时关闭 关闭窗口
关闭 定时转 URL
设为首页
设为首页 收藏本站
收藏本站 加入频道
加 入 频 道 [DELPHI]随机产生文本色 ◇[DELPHI]随机产生文本色 randomize;//随机种子 memo1.font.color:=rgb(random(255),random(255),random(255)); ◇[DELPHI]DELPHI5 UPDATE 升级补丁序列号 100000315 90X25fx0 ◇[DELPHI]文件名的非法字符过滤 [DELPHI]文件名的非法字符过滤 for i:=1 to length(s) do if s[i] in ['\','/',':','*','?','<','>','|'] then ◇[DELPHI]转换函数的定义及说明 [DELPHI]转换函数的定
义及说明 LPHI] datetimetofiledate (datetime:Tdatetime):longint; 将 Tdatetime 格式的日期时间值转 换成 DOS 格式的日期时间值