本文整理自网络，侵删。
function IntToBinStr(v: Integer): String;
var
b: array [0 .. 32] of Char;
o: Integer;
const
Chars: array [0 .. 1] of Char = ('0', '1');
begin
o := 31;
if v <> 0 then
begin
while v <> 0 do
begin
b[o] := Chars[v and $1];
v := v shr 1;
Dec(o);
end;
b[32] := #0;
Result := PChar(@b[o + 1]);
end
else
Result := '0';
end;
来源：http://blog.qdac.cc/?p=3443
相关阅读 >>
Delphi windows 下用 Delphi 代码杀死进程，或者杀死自己
更多相关阅读请进入《Delphi》频道 >>
