在程序中向网站发布信息，但如果要先登录该怎么办？程序中如何判断是否登录？

判断是否已经联到 internet 
 
  使用 NetMasters Powersock 控件读取本地IP 地址，如果是"0.0.0.0" 说明没有连接。 
例子： 
void __fastcall TForm1::Button1Click(TObject *Sender) 
{ 
if (Powersock1->LocalIP == "0.0.0.0") 
ShowMessage("not connected"); 
else 
ShowMessage(Powersock1->LocalIP); 
}