当前位置: 源码素材网 » Delphi源码 » 系统相关 » 详情页

Delphi 演示启动控制面板、屏幕保护等操作

本程序演示了如何在Delphi程序中启动控制面板、屏幕保护、获取浏览器信息等操作,下面列举一些具体的实现代码:
  1:启动屏幕保护程序
  只需要一句话就可以了:SendMessage(HWND_BROADCAST,WM_SYSCOMMAND,SC_SCREENSAVE,0);
  2:启动控制面板
  procedure TForm1.Button2Click(Sender: TObject);代码中详细。
  3:得到系统默认的浏览器
  function TForm1.GetBrowerPath(AValue: String): string;
  var
   X:integer;
   tmpstr:string;
  begin
   Result:='没有默认的浏览器';
   if AValue='' then exit;
   for X:=2 to Length(AValue) do
   begin
  更多源码请下载查看……

  • 相关标签:屏幕保护 浏览器 控制面板
  • 调试环境:Delphi7+
  • 文件大小:8.49K
  • 资源评级:
  • 更新时间:2018-07-09
  • 相关链接:暂无演示

源码测试截图:

Delphi 演示启动控制面板、屏幕保护等操作运行截图

相似源码:屏幕保护 浏览器 控制面板 Delphi源码下载:Delphi 演示启动控制面板、屏幕保护等操作 测试截图

下载声明:

本站资源仅供学习参考,禁止用于非法途径。若“Delphi 演示启动控制面板、屏幕保护等操作”源代码侵犯了您的权益,请尽快告诉我们。