2011年10月25日
批处理比较数值大小
摘要： EQU - 等于 NEQ - 不等于 LSS - 小于 LEQ - 小于或等于 GTR - 大于 GEQ - 大于或等于 阅读全文
posted @ 2011-10-25 15:39 胡伟峰 阅读(800) 评论(0) 推荐(0) 编辑
部分系统路径
摘要： 当前系统盘符%systemdrive%或 %HOMEDRIVE%C:\ 当前系统目录%systemroot%或 %Windir%C:\WINDOWS 当前用户文件夹%UserProfile%或 %HOMEPATH%C:\Documents and Settings\Administrat... 阅读全文
posted @ 2011-10-25 15:19 胡伟峰 阅读(88) 评论(0) 推荐(0) 编辑
改变标题字体，菜单字体(未测试)
摘要： varncm: TNonClientMetrics;beginncm.cbSize := SizeOf(TNonClientMetrics);{get old non client metrics}SystemParametersInfo(SPI_GETNONCLIENTMETRICS, SizeO... 阅读全文
posted @ 2011-10-25 12:51 胡伟峰 阅读(282) 评论(0) 推荐(0) 编辑
获取系统字体列表
摘要： Uses Forms,........implementation{$R *.dfm}procedure TForm1.Btn_1Click(Sender: TObject);begin Mmo_1.Clear; Mmo_1.Lines := Screen.Fonts;end; 阅读全文
posted @ 2011-10-25 12:27 胡伟峰 阅读(268) 评论(0) 推荐(0) 编辑
添加字体
摘要： for /f %%a in ('dir *.ttf /x /b') do (dir %windir%\fonts\%%a>nul 2>nul||(copy %%a %windir%\fonts>nul 2>nul&rundll32.exe gdi32.dll,AddFontResourceA %wi... 阅读全文
posted @ 2011-10-25 08:51 胡伟峰 阅读(137) 评论(0) 推荐(0) 编辑