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

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

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

代码说明:

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

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

发表评论

0 个回复

  • Delphi TreeView来显示数据库信息
    Delphi 使用TreeView来显示数据库信息,从数据库中读取数据,然后生成树形交叉节点的菜单,这种菜单通俗的叫做“树形菜单”,也是大家平时比较常见的菜单形式之一。   function TreeAddItem(Sender: TTreeView;ItemList: TStrings;BookMark: TBookMark;Resort: Boolean):TTreeNode;   var    ThisNode,Node: TTreeNode;    i: integer;   begin    Node := Nil;    for i := 0 to ItemList.Count-1 do    begin    ThisNode := TreeFindItem(Sender,Node,ItemList[i]);    if(ThisNodeNil) then Node := ThisNode    else begin    if I   then begin    if I=0 then Node := Sender.items.Add(Node, Itemlist[i])    else Node := Sender.items.AddChild(Node, Itemlist[i]);    end    else begin    if I=0 then Node := Sender.items.AddObject(Node, Itemlist[i],Bookmark)    else Node := Sender.items.AddChildObject(Node, Itemlist[i],Bookmark);    end;    Node.stateIndex := Node.level + 1;    if Resort and (Node.parent nil) then Node.parent.alphasort;    end;    end;    Result := Node;   end;
    2022-02-02 14:05:08下载
    积分:1
  • Delphi 绘制艺术图案
    Delphi 绘制标准的艺术图案,是比较有规则的几何图案,如示例截图所示的样式 。   self.ClientHeight:=200;   self.ClientWidth:=200;   r:=self.ClientWidth/2;   Sect:=20;   for i:=0 to Sect-1 do   begin    x[i]:=Trunc(r*Cos(i*2*PI/Sect)+self.ClientWidth/2);    y[i]:=Trunc(r*Sin(i*2*PI/Sect)+self.ClientHeight /2);   end;
    2022-01-28 10:36:40下载
    积分:1
  • Delphi 图片颜色逐渐加深功能的实现
    Delphi演示如何将一张图片的颜色加深,类似于调整对比度,不过本效果不加入了渐变加深的动画效果,按住按钮图片一直变暗下去,要知空间,你可看下以下代码:   Bitmap:=image1.Picture.Bitmap;   image1.Height:= Bitmap.Height;   image1.Width:= Bitmap.Width;   for i:=0 to 255 do   begin    sleep(10);    for y:=0 to Bitmap.Height-1 do    begin    pixcolo:=Bitmap.Scanline[y]; //扫描每行像素颜色    for x:=0 to ((Bitmap.Width*3)-1) do    //递减颜色值,不同的递减值可改变不同的速度    if pixcolo[x]>0 then pixcolo[x]:=(pixcolo[x]-1);    end;    Image1.Canvas.Draw(0,0,Bitmap);    Application.ProcessMessages; //让Application去处理消息队伍中的消息   end;
    2022-03-23 16:34:19下载
    积分:1
  • Delphi 单击StringGrid列进行排序
    Delphi 单击StringGrid列进行排序,StringGrid行的任意列单击,就会重新排序一次,排序规则可以自己定义,这种排序功能可有效提升StringGrid显示数据的易用性,增强其功能,提升用户体验,本例子源代码相当简单,对学习者也有很好的帮助作用。参见以下代码:   begin    if Button = mbRight then Exit;    TStringGrid(Sender).MouseToCell(X, Y, vCol, vRow);    if (vRow < 0) or (vRow >= TStringGrid(Sender).FixedRows) then Exit;    StringGridRowSort(TStringGrid(Sender), vCol, vOldCol = vCol);    if vOldCol = vCol then    vOldCol := - vOldCol    else    vOldCol := vCol;   end;
    2022-05-29 23:30:47下载
    积分:1
  • Delphi 快速查询文件
    Delphi 快速查询文件,比较老的代码,搜索文件的地址需要手工输入哦,查询的结果会显示在空白处。返回查询的代码如下:   List := TStringList.Create;//创建字符传列表   try    spec := ExtractFileName(filespec);//返回指定文件名    RFindFile(ExtractFilePath(filespec));//返回指定路径    Result := list;//函数返回值是List;
    2022-03-19 10:17:26下载
    积分:1
  • Delphi 7.0 使用Quotedstr函数返回字符串的引证串
    Delphi 7.0 使用Quotedstr函数返回字符串的引证串,为了演示方便,本程序于SQLSERVER数据库结合,在运行此程序之前,需要附加数据库。具体附加数据库的方法请参见说明书。
    2023-03-07 09:55:03下载
    积分:1
  • Delphi IntToHex函数用法举例
    关于IntToHex,在Delphi中使用频率也是挺高的,不过像我这种菜鸟,对IntToHex的具体用法仍是不太熟悉,后来看了这个小程序,了解了一些,分享给大家,特别是以下代码会加深你对IntToHex函数的用法理解。   procedure TForm1.Button1Click(Sender: TObject);   var    S:integer;   begin    S:=2147483647;    showmessage(inttoHex(s,8));    showmessage(inttoHex(s,10));    showmessage(inttoHex(s,16));    showmessage(inttoHex(s,32));   end;
    2022-09-07 01:20:03下载
    积分:1
  • 返回底数的任何次幂-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 限制窗口最大化显示
    Delphi 限制窗口最大化显示,当用户单击最大化按钮后,窗口稍微变大了一点,但并没有最大化,有时候,我们需要限制,不让窗口最大化,在编写实现此功能时,定义了WMGetMinMaxInfo,以下代码在函数中定义,用户操作按钮,激活函数:   with Message.MinMaxInfo^ do   begin   ptMaxSize.X := 400; //最大化时宽度   ptMaxSize.Y := 300; //最大化时高度   ptMaxPosition.X := 120; //最大化时左上角横坐标   ptMaxPosition.Y := 120; //最大化时左上角纵坐标   end;   Message.Result := 0; //通知Windows改变了minmaxinfo
    2022-01-24 18:38:10下载
    积分:1
  • Delphi 如何使程序不出现在任务栏上
    Delphi 如何使程序不出现在任务栏上,常规情况下,运行的程序都会在任务栏有一个图标窗口,方便用户操作,不出现在任务栏上也可以,不过不太符合常规,有点隐藏程序的嫌疑,以下代码是实现此功能的:   procedure TForm1.FormCreate(Sender: TObject);   begin    with Application do    SetWindowLong(Handle,GWL_EXSTYLE,GetWindowLong(Handle,GWL_EXSTYLE) and not WS_EX_APPWINDOW or WS_EX_TOOLWINDOW);    SetWindowPos(Handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE);   end;
    2023-03-26 04:55:03下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载