Delphi
EZAge
这个作者很懒,什么都没留下…
展开
-
存储单位格式化(B、KB、MB、GB、TB、PB)
function FormatSize(size:Cardinal):string;const us:array [0..5] of string=('B','KB','MB','GB','TB','PB'); u=1024;var i:Integer; d:Double;begin i:=0; d:=size; while d>u do begin d:=d/u; Inc(i); end; Result:=Format('%....原创 2021-08-06 12:47:41 · 219 阅读 · 0 评论 -
D7全局热键
一个简单的Delphi7全局热键unit uHotKey;interfaceuses Windows, SysUtils, Messages, Classes;const VK_0=$30; //0键 VK_1=$31; //1键 VK_2=$32; //2键 VK_3=$33; //3键 VK_4=$34; //4键 VK_5=$35; ...原创 2019-03-11 17:29:08 · 219 阅读 · 0 评论