procedure TMainForm.UniFormCreate(Sender: TObject);//在代码中可以通过: var FServerIP ,FServerPort:string; begin FServerIP := UniApplication.Parameters.Values['ServerIP']; FServerPort := UniApplication.Parameters.Values['ServerPort']; end;
procedure TMainForm.UniFormCreate(Sender: TObject);//在代码中可以通过: var FServerIP ,FServerPort:string; begin FServerIP := UniApplication.Parameters.Values['ServerIP']; FServerPort := UniApplication.Parameters.Values['ServerPort']; end;