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('%....

一个简单的Delphi7全局热键 unit uHotKey; interface uses 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; ...