//ProgressBar1进度条的名字<br>//PBM_DELTAPOS:常量,在CommCtrl单元中定义,表示在当前位置上增加第三个参数个单位进度的长度<br>//1:增加一个单位,如果为n,则增加n个单位<br>//0:设为0就可以了,没有用<br>//ret: 返回值,其值为增加以前进度条的位置<br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br> ret: Integer;<br>begin<br> ret := SendMessage(ProgressBar1.Handle, PBM_DELTAPOS, 1, 0);<br>end;<br>