帮忙将以下VB代码弄成Delphi的,100分独享,先谢谢了http://support.microsoft.com/default.aspx?scid=kb;EN-US;q202480