Delphi7做的一个简易分辨率设置源码分享！吾爱首发！

zhujf 发表于 2017-11-20 11:05

最近有对电脑操作不熟悉的朋友说win10设置分辨率比较难找，所以随手写了一个简易的设置工具，将源代码发出来与各位对Delphi入门感兴趣的朋友一起互相学习！本人也是初学者，望各位大神们多多指教！
软件引用了第三方AlphaControls皮肤控件，源代码里有使用说明，也可以自己百度搜索!
软件添加了一个简单的水波纹效果！代码里有比较详细的说明！

默认测试了WIN7 64位与WIN10 64位操作系统，完美运行！请右键选择管理员方式运行！

关键代码部分： begin
                              if (Trunc(IntPower(2, DevModeInfo^.dmBitsPerPel)) = 4294967296) then
                                    s := '真彩色(32)位';
                              if (Trunc(IntPower(2, DevModeInfo^.dmBitsPerPel)) = 65536) then
                                    s := '增强色(16)位';
                              if (Trunc(IntPower(2, DevModeInfo^.dmBitsPerPel)) = 256) then
                                 s := '256色';
                        ListBox1.Items.Add(IntToStr(DevModeInfo^.dmPelsWidth) + 'x' + IntToStr(DevModeInfo^.dmPelsHeight) + ', ' + s + ' , ' + IntToStr(DevModeInfo.dmDisplayFrequency) + 'hz');// 将获得的分辨率和其他信息显示到listbox1列表里。
                        GetMem(DevModeInfo, SizeOf(TDevMode));
                        for i := ListBox1.Items.Count - 1 downto 1 do    //防止有重复的项
                           begin
                              if ListBox1.Items = ListBox1.Items then
                              ListBox1.Items.Delete(i);
                        end;
                     end;
还一个随机水波纹代码：
               begin
                  if Random(8) = 1 then //这里产生一个随机数
                  mywater.Blob(-1, -1, Random(1) + 1, Random(500) + 50);
                  mywater.Render(mybmp, img1.Picture.Bitmap);

                  with img1.Canvas do
                     begin
                           Brush.Style := bsClear;
                           Font.Size := 12;
                           Font.Color := $FFFFFF;
                           //下面这句话必须有，否则无水波效果！
                  TextOut((mybmp.Width - TextWidth('')) div 2 + 2, 10, '');
                        end;

源码及AlphaControls皮肤控件下载地址：https://pan.baidu.com/s/1qYQcchu 密码vbft

xiaoguyan 发表于 2017-11-20 11:37

谢谢分享，不过已经再用其他类似软件了。

王美君 发表于 2017-11-20 12:18

吾爱有你更精彩，谢谢你了

Ashes 发表于 2017-11-20 12:20

做win10的软件还用delphi7，太落伍了，建议使用 10.2.1 Tokyo，设置好了manifest就能跑在win10上了。

9152pojie 发表于 2017-11-21 11:39

看到d7，自然的就进来了！

wzqoo 发表于 2017-11-24 17:29

D7啊，友情支持一下。{:1_921:}

asong 发表于 2018-7-9 07:12

百度地址已失效

页: [1]

吾爱破解 - 52pojie.cn's Archiver

Delphi7做的一个简易分辨率设置源码分享！吾爱首发！