登录
首页 » Delphi源码 » Delphi 模拟Windows “显示桌面”功能

Delphi 模拟Windows “显示桌面”功能

于 2023-06-01 发布 文件大小:5.32 kB
0 209
下载积分: 2 下载次数: 1

代码说明:

Delphi 模拟Windows “显示桌面”功能,对于功能就不再详述了,单击后,会看到Windows桌面,具体的实现方法也挺简单的,下面几行代码就搞定了:   if IsWindowVisible(h) then    PostMessage(h, WM_SYSCOMMAND, SC_MINIMIZE, 0);   h := GetNextWindow(h, GW_HWNDNEXT);   完整的可编译源码请你下载源码包吧。

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

发表评论

0 个回复

  • 返回底数的任何次幂-Delphi方法
    Delphi 返回底数的任何次幂,本演示求2的4次幂、3的3次幂,求解过程如下:   procedure TForm1.Button1Click(Sender: TObject);   begin    Edit1.Text := FloatToStr(Power(2,4));    Edit2.Text := FloatToStr(Power(3,3));   end;   以上代码定义在按钮事件中,当用户单击按钮后激活。
    2022-03-01 01:34:29下载
    积分:1
  • Delphi 使用API函数拔号
    Delphi 使用API函数拔号,拨号程序,基于api的方法实现,有兴趣下载源码参考一番。
    2022-01-26 01:52:58下载
    积分:1
  • Delphi添加图层蒙版
    Delphi添加图层蒙版,运行本程序后,在屏幕上添加一层阴影,透明度大概在70%左右,可看作是在屏幕上方蒙了一层薄膜的感觉,代码简单:procedure TForm1.FormCreate(Sender: TObject);   var    bTrans: Byte;    OldStyle: Integer;   begin    form1.Color := clGradientActiveCaption;    WindowState := wsMaximized;    BorderStyle := bsNone;    FormStyle := fsStayOnTop;    OldStyle := GetWindowLong(Handle, GWL_EXSTYLE);    SetWindowLong(Handle, GWL_EXSTYLE, OldStyle or WS_EX_LAYERED Or WS_EX_TRANSPARENT);    bTrans := 128;    SetLayeredWindowAttributes(Handle, 0, bTrans, LWA_ALPHA);   end;
    2022-02-06 10:25:25下载
    积分:1
  • Delphi 多帧动画播放
    Delphi 多帧动画播放,Delphi将多幅连续的BMP图像显示在一起,形成了动画的效果,类似于GIF的类型动画。每一张图片都是一帧,将帧快速的连起来,就形成了动画效果。
    2023-07-24 05:15:03下载
    积分:1
  • Delphi中使用Word的一个例子
    这个程序演示了使用Word作为自动化服务器,Delphi地自动化控制器是如何将一个查询结果插入到word文档中,在程序调用过程中返回应用参数.这个调用在英文和法文版的 Word中相同。如果这个过程不存在,存在一个不同的Word翻译版本。   对中文Word请在指定处插入。
    2022-02-12 22:24:48下载
    积分:1
  • Delphi 使播放的Flash随窗口大小改变
    Delphi 使播放的Flash随窗口大小改变,也就是让Flash播放的窗口内容随着父窗口的大小而自动适应,把窗口拉大时,Flash画面也会跟着变大,让内容适应窗口大小的变化。
    2022-05-31 21:57:49下载
    积分:1
  • Delphi Shadow窗口阴影立体效果
    Delphi 制作立体窗口阴影效果,这个阴影看上去很明显,不过不是线性的,线性的实现起来要比这种阴影复杂一些。   ShadowWidth:integer; //用于确定阴影的宽度或高度   RightShadow:TForm; //主窗口的右边产生一个阴影窗口   BottomShadow:TForm; //主窗口的下部产生一个阴影窗口   procedure WMWindowPosChanged(var Msg:TWMWindowPosChanged);message wm_windowposchanged;
    2022-05-14 21:59:11下载
    积分:1
  • Delphi实现动态的窗口标题栏文字
    Delphi实现动态的窗口标题栏文字,让标题栏文字滚动,有以下动态变化形式:标题左循环,标题左右移动,停靠右端,设置移动时间间隔,每隔多少毫秒移动一个字等。可以在标题上设置一些醒目的内容,再使用本效果,吸引使用者的注意,是一种很不错的提醒方式。
    2022-01-27 16:11:55下载
    积分:1
  • Delphi开发的模型飞机测控平台 附
    Delphi开发的模型飞机测控平台 附源代码,里面主要涉及多线程操作、GPS、传感器、端口操作等一系列系统控制的技巧,还包括了许多操作函数,比如绘制飞行轨迹的函数、绘制坐标刻度的函数、用户界面读取发送数据指令的函数、还有线程的同步、线程互斥等。   由于有调试目的,如果要求发送字符格式的数据,就直接发送用户输入的字符串,其他情况下,都是发送打包好的数据矩阵。   调用其它函数实现发送串口数据的功能。注意函数GetData还没有实现线程的互斥,目的是把发送的数据保存在各个线程中。   在此提示: 由于传输系统总会有一定的吴码率,那么为了避免轨迹图出现问题,例如坐标范围过大需要除去粗大误差,考虑到模型飞机的飞行速度不会超过10m/s,考虑到数子传输系统的下传速度,设定如果位置变化超过20m就去掉。
    2022-08-16 19:54:45下载
    积分:1
  • Delphi 在图片中写入文字
    在图片中写入文字(写入文字后按回车键),Delphi 图片合成 效果,图片与字符的合并,在图片中写入文字,就像PhotoShop中完成的效果,有兴趣的参考源码吧。
    2023-03-24 10:00:04下载
    积分:1
  • 696516资源总数
  • 106457会员总数
  • 15今日下载