登录
首页 » Delphi源码 » Delphi 控制键盘指示灯

Delphi 控制键盘指示灯

于 2023-04-11 发布 文件大小:5.29 kB
0 226
下载积分: 2 下载次数: 1

代码说明:

Delphi 控制键盘指示灯,控制键盘灯打开或关闭。就像大小写切换时候,小键盘上面的灯会亮起、关闭,比较简单的一个小功能,适合入门学者参考学习。

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • delphi开发的谷歌翻译工具内含
    delphi开发的谷歌翻译工具,使用该工具可以不用打开浏览器,然后输入谷歌翻译地址才能进行翻译工作, 而这个工具可以快速打开并直接在文本框中输入你要翻译的文本内容即可翻译了。 同时,你拿到此源码还可以进行二次开发,以满足你更多需要和想象。
    2022-01-25 22:56:02下载
    积分:1
  • Delphi 屏蔽键盘 sleep和wake up键
    如何屏蔽sleep和wake up键,一个是待机键,一个是唤醒键,屏蔽可有效避免误操作,不过本代码过于简单,屏蔽效果有待测试,核心代码如下:   procedure TForm1.WMPowerBroadcast(var message: TMessage);   begin    message.Result := BROADCAST_QUERY_DENY;   end;
    2022-06-30 14:51:25下载
    积分:1
  • Delphi 百叶窗的方式显示图像
    百叶窗效果的图像显示,这个效果我觉得大家不会陌生吧,在电视上、电脑上,这种切换图片显示的方式还是挺常见的,像百叶窗的样式,本效果重在演示图像的解析。
    2022-02-04 23:25:14下载
    积分:1
  • Delphi使用AES算法加密下载
    整合网上下载到的资源(ElAES.pas,AES.pas),在Delphi7下编译后,测试能用
    2023-07-07 06:10:03下载
    积分:1
  • Delphi 利用API绘制弧形
    Delphi 利用API绘制弧形,   begin    ArcRect := ClientRect;    Canvas.Pen.Width:=2;    for i:=1 to 10 do    begin    Arc(Canvas.Handle,ArcRect.Left,ArcRect.Top,ArcRect.Right,    ArcRect.Bottom,ArcRect.Right,(ArcRect.Bottom-ArcRect.Top) div 2,    ArcRect.Left,(ArcRect.Bottom-ArcRect.Top) div 2);    InflateRect(ArcRect,-2,-2);    Canvas.Pen.Color := PaletteIndex(i+10);    end;
    2022-03-21 03:44:09下载
    积分:1
  • Delphi getTime 获取当前日期时间实例
    Delphi getTime 获取当前日期时间,用的是DateTimeToStr,运行本窗口后,自动获取当前电脑上的时间,显示在窗体指定的Lable标签中,这是核心的源代码:   procedure TForm1.Timer1Timer(Sender: TObject);   begin    Label1.Caption := DateTimeToStr(now());   end;
    2022-11-15 02:10:03下载
    积分:1
  • delphi windows远程桌面链接,带代理功能,支持win2012
    delphi windows远程桌面链接源码,带代理功能,支持win2012 原创代码
    2023-02-10 08:55:03下载
    积分:1
  • Delphi 在窗体上显示超级连接效果
    Delphi7.0实现超级连接效果,在窗体上显示超级链接,这个似乎比较简单了,在网页上这是基本的功能,不过如何把一个超链接显示在窗口中,和网页上有些区别,通过这个例子你将学会如何在窗体上实现链接的显示,以及多种链接状态的自定义功能。
    2023-03-23 16:40:03下载
    积分:1
  • Delphi控制电脑蜂鸣器或扬声器发声音
    Delphi控制电脑蜂鸣器或扬声器发声音,有些称之为喇叭,不过测试发现,这个是优先机箱蜂鸣器发出声音,或没装蜂鸣器,则会从音箱中发声音,实现的代码很简单,以下代码即可实现:   procedure TForm1.Button1Click(Sender: TObject);   var    i,j : integer;   begin    for i := 1000 to 2000 do    begin    j := i;    windows.Beep(1000,3000);    end;   end;
    2022-02-05 03:44:28下载
    积分:1
  • 用Delphi编写锁定电脑的程序
    Delphi锁定计算机,锁定电脑,不允许别人可以操作,类似Windows自带的锁定程序,其实锁定是非常简单的,不几行代码就能实现:   procedure TForm1.SpeedButton1Click(Sender: TObject);   begin    LockWorkStation;   end;   若需要完整的源码,请下载本源码包。
    2022-04-28 20:57:54下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载