说明: var currentMsg: integer; procedure TForm1.CntClick(Sender: TObject); begin SakPOP1.Host := EditHost.text; SakPOP1.UserId := EditUserId.text; SakPOP1.UserPasswd := EditPasswd.text; StatusBar1.Panels[0].text := 'Wait a moment, please...'; SakPOP1.conn
<use_mail> 上传 | 大小:633kb