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

zhujf

最近有对电脑操作不熟悉的朋友说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[i - 1] 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

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

王美君

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

Ashes

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

9152pojie

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

wzqoo

D7啊，友情支持一下。

asong

百度地址已失效