2012 年 1月 9 日随笔档案 - 曼波

2012年1月9日

摘要： Delphi程序必须在资源里面嵌入MANIFEST信息一、首先编辑一个文件，内容如下：<?xml version="1.0" encoding="UTF-8" standalone="yes"?><assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0"> <trustInfo xmlns="urn:schemas-microsoft-com:asm.v3"& 阅读全文

posted @ 2012-01-09 17:05 曼波阅读(644) 评论(0) 推荐(0) 编辑

另外一种延时的办法

摘要： Sleep会引起程序停不动的现象，很多时候我们可能不想出现这种情况，那么就自己动手写一个吧//延时DT毫秒procedure TimeDelay(DT: Dword);var tt: dword;begin tt := gettickcount(); //取的当前计算机时间 while gettickcount() - tt < dt do //判断是否超出延迟的时间（单位毫秒） application.ProcessMessages;end; 阅读全文

posted @ 2012-01-09 16:51 曼波阅读(216) 评论(0) 推荐(0) 编辑

怎样判断Windows的DPI大小？

摘要：在设计软件的时候，很多人都没有注意到DPI的问题，因为我们绝大多数用户默认都是使用96，但是也有些用户是使用120的。如果没有注意到这点，那么软件运行在120下面的话会出现排版混乱的情况。 function IsSmallDPI: boolean;var DC: HDC;begin DC := GetDC(0); Result := (GetDeviceCaps(DC, logpixelsx) = 96); ReleaseDC(0, DC);end; 阅读全文

posted @ 2012-01-09 16:42 曼波阅读(1465) 评论(0) 推荐(0) 编辑