procedure TForm1.Button1Click(Sender: TObject);
Var
UserName,Password,LoginUrl:String;
begin
UserName:=Edit1.text;
Password:=Edit2.Text;
LoginUrl:='https://reg.163.com/logins.jsp?username=(UserName)&password=(Password)&url=http://fm163.163.com/coremail/fcg/ntesdoor2';
Shellexecute(0,'open','iexplore.exe',Pchar(LoginUrl),'',SW_SHOWNORMAL); //
end;
end.
评论11
最新资源